source: WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGRSZZPT.m@ 1147

Last change on this file since 1147 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 655 bytes
RevLine 
[613]1RGRSZZPT ;ALB/RJS-UTILITY FOR CIRN ;4/11/96
2 ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
3 ;
4SKIP(SILENT,ARRAY) ;
5 ;Pass Silent=1 if you want this call to be silent
6 S SILENT=$G(SILENT)
7 I $G(@ARRAY@(.01))=""!($G(@ARRAY@(.01))["@") D Q 1
8 . I SILENT="" U IO(0) W !,"MISSING PATIENT NAME, CANNOT FILE"
9 I $G(@ARRAY@(.09))=""!($G(@ARRAY@(.09))["@") D Q 1
10 . I SILENT="" U IO(0) W !,"MISSING PATIENT SSN, CANNOT FILE"
11 I $G(@ARRAY@(.03))=""!($G(@ARRAY@(.03))["@") D Q 1
12 . I SILENT="" U IO(0) W !,"MISSING PATIENT DOB, CANNOT FILE"
13 I $G(@ARRAY@(991.01))=""!($G(@ARRAY@(991.01))["@") D Q 1
14 . I SILENT="" U IO(0) W !,"MISSING ICN, CANNOT FILE"
15 Q 0
Note: See TracBrowser for help on using the repository browser.