15 lines
631 B
Mathematica
15 lines
631 B
Mathematica
GPLVITALS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR VITALS ; 6/6/08
|
|
;;0.1;CCDCCR;nopatch;noreleasedate
|
|
EXTRACT(VITXML,DFN,OUTXML) ; EXTRACT PROBLEMS INTO PROVIDED XML TEMPLATE
|
|
;
|
|
; VITXML AND OUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
|
|
; IVITXML WILL CONTAIN ONLY THE VITALS SECTION OF THE OVERALL TEMPLATE
|
|
;
|
|
N VITALSTMP,I
|
|
S VITALSTMP="^TMP($J,""MISSINGVITALS"")"
|
|
; ZWR @VITXML
|
|
D MISSING^GPLXPATH(VITXML,VITALSTMP) ; SEARCH XML FOR MISSING VARS
|
|
I @VITALSTMP@(0)>0 D ; IF THERE ARE MISSING VARS - MARKED AS @@X@@
|
|
. W "VITALS MISSING ",!
|
|
. F I=1:1:@VITALSTMP@(0) W @VITALSTMP@(I),!
|
|
Q |