16 lines
655 B
Mathematica
16 lines
655 B
Mathematica
|
RGRSZZPT ;ALB/RJS-UTILITY FOR CIRN ;4/11/96
|
||
|
;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
|
||
|
;
|
||
|
SKIP(SILENT,ARRAY) ;
|
||
|
;Pass Silent=1 if you want this call to be silent
|
||
|
S SILENT=$G(SILENT)
|
||
|
I $G(@ARRAY@(.01))=""!($G(@ARRAY@(.01))["@") D Q 1
|
||
|
. I SILENT="" U IO(0) W !,"MISSING PATIENT NAME, CANNOT FILE"
|
||
|
I $G(@ARRAY@(.09))=""!($G(@ARRAY@(.09))["@") D Q 1
|
||
|
. I SILENT="" U IO(0) W !,"MISSING PATIENT SSN, CANNOT FILE"
|
||
|
I $G(@ARRAY@(.03))=""!($G(@ARRAY@(.03))["@") D Q 1
|
||
|
. I SILENT="" U IO(0) W !,"MISSING PATIENT DOB, CANNOT FILE"
|
||
|
I $G(@ARRAY@(991.01))=""!($G(@ARRAY@(991.01))["@") D Q 1
|
||
|
. I SILENT="" U IO(0) W !,"MISSING ICN, CANNOT FILE"
|
||
|
Q 0
|