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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGRSZZPT 670 printed Oct 16, 2024@17:43:54 Page 2
RGRSZZPT ;ALB/RJS-UTILITY FOR CIRN ;4/11/96
+1 ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
+2 ;
SKIP(SILENT,ARRAY) ;
+1 ;Pass Silent=1 if you want this call to be silent
+2 SET SILENT=$GET(SILENT)
+3 IF $GET(@ARRAY@(.01))=""!($GET(@ARRAY@(.01))["@")
Begin DoDot:1
+4 IF SILENT=""
USE IO(0)
WRITE !,"MISSING PATIENT NAME, CANNOT FILE"
End DoDot:1
QUIT 1
+5 IF $GET(@ARRAY@(.09))=""!($GET(@ARRAY@(.09))["@")
Begin DoDot:1
+6 IF SILENT=""
USE IO(0)
WRITE !,"MISSING PATIENT SSN, CANNOT FILE"
End DoDot:1
QUIT 1
+7 IF $GET(@ARRAY@(.03))=""!($GET(@ARRAY@(.03))["@")
Begin DoDot:1
+8 IF SILENT=""
USE IO(0)
WRITE !,"MISSING PATIENT DOB, CANNOT FILE"
End DoDot:1
QUIT 1
+9 IF $GET(@ARRAY@(991.01))=""!($GET(@ARRAY@(991.01))["@")
Begin DoDot:1
+10 IF SILENT=""
USE IO(0)
WRITE !,"MISSING ICN, CANNOT FILE"
End DoDot:1
QUIT 1
+11 QUIT 0
