|
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 | |
|---|
| 1 | GPLVITALS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR VITALS ; 6/6/08
|
|---|
| 2 | ;;0.1;CCDCCR;nopatch;noreleasedate
|
|---|
| 3 | EXTRACT(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.
