source: ccr/trunk/p/GPLVITALS.m@ 30

Last change on this file since 30 was 3, checked in by George Lilly, 16 years ago

Inital release of GPL*.m files for creating a CCR from VistA. Usage EXPORTGPLCCR

File size: 631 bytes
Line 
1GPLVITALS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR VITALS ; 6/6/08
2 ;;0.1;CCDCCR;nopatch;noreleasedate
3EXTRACT(VITXML,DFN,OUTXML) ; EXTRACT PROBLEMS INTO PROVIDED XML TEMPLATE
4 ;
5 ; VITXML AND OUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
6 ; IVITXML WILL CONTAIN ONLY THE VITALS SECTION OF THE OVERALL TEMPLATE
7 ;
8 N VITALSTMP,I
9 S VITALSTMP="^TMP($J,""MISSINGVITALS"")"
10 ; ZWR @VITXML
11 D MISSING^GPLXPATH(VITXML,VITALSTMP) ; SEARCH XML FOR MISSING VARS
12 I @VITALSTMP@(0)>0 D ; IF THERE ARE MISSING VARS - MARKED AS @@X@@
13 . W "VITALS MISSING ",!
14 . F I=1:1:@VITALSTMP@(0) W @VITALSTMP@(I),!
15 Q
Note: See TracBrowser for help on using the repository browser.