RGRSZZPT.m

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 ---RGRSZZPT   670     printed  Apr 09, 2024@20:47:19                                                                                                                                                                                                     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