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