iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

killed TMP("CIAVMRPC",$J) after vitals section has been processed

This commit is contained in:
cje 2009-09-16 12:20:55 +00:00
parent c0ebd5c754
commit 1ee4904d35
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
p/C0CVITAL.m
View File

@ -356,6 +356,7 @@ VITRPMS ; EXTRACT VITALS FROM RPMS INTO PROVIDED XML TEMPLATE
I VITTMP(0)>0 D ; IF THERE ARE MISSING VARS - MARKED AS @@X@@ I VITTMP(0)>0 D ; IF THERE ARE MISSING VARS - MARKED AS @@X@@
. W "VITALS MISSING ",! . W "VITALS MISSING ",!
. F I=1:1:VITTMP(0) W VITTMP(I),! . F I=1:1:VITTMP(0) W VITTMP(I),!
K ^TMP("CIAVMRPC",$J)
Q Q
; ;
VITDRPMS(VDT) ; RUN DATE SORTING ALGORITHM FOR RPMS VITDRPMS(VDT) ; RUN DATE SORTING ALGORITHM FOR RPMS