DVBCWLQ.m

DVBCWLQ ;ALB/JAM LIVER, GALL BLADDER AND PANCREAS WKS ;19 FEBRUARY 1999

 ;;2.7;AMIE;**36,39**;Apr 10, 1995

 ;

 ; IOM - cpl (characters per line)

EN ;

 N DVBAX,ROU,DIF,XCNP,X,PG,TT,TNAM

 D:'$D(IOF) SETIOF W:(IOST?1"C-".E) @IOF

 S DVBAX="Compensation and Pension Examination",TT=IOM-$L(DVBAX)\2

 W !?TT,DVBAX

 S TNAM="LIVER, GALL BLADDER, AND PANCREAS"

 S DVBAX=TNAM,TT=IOM-$L(DVBAX)\2,PG=1

 W !?TT,DVBAX

 S DVBAX="# 0305 Worksheet",TT=IOM-$L(DVBAX)\2 W !?TT,DVBAX,!!

 W "Name: ",NAME,?45,"SSN: ",SSN,!!,"Date of Exam: ____________________",?45,"C-number: ",CNUM,!!,"Place of Exam: ___________________",!!

 S DIF="^TMP($J,""DVBAW"",",XCNP=0

 K ^TMP($J,"DVBAW")

 S ROU="DVBCWLQ1" S X=ROU X ^%ZOSF("LOAD")

 N LP,TEXT,STOP

 S LP=0,STOP=0

 F  S LP=$O(^TMP($J,"DVBAW",LP)) Q:(LP="")!(STOP)  D

 .S TEXT=^TMP($J,"DVBAW",LP,0)

 .I (TEXT'[";;")!(TEXT[";AMIE;") Q

 .I TEXT["TOF" D HD2

 .I TEXT["END" S STOP=1 Q

 .W:TEXT'["TOF" $P(TEXT,";;",2),! I $Y>55 D HD2

 K ^TMP($J,"DVBAW")

 Q

 ;

HD2 S PG=PG+1 W @IOF,!,"Page: ",PG,!!?7,"Compensation and Pension Exam for "_NAME,!!

 W ?4,TNAM,!!!

 Q

SETIOF ;  ** Set device control var's

 D HOME^%ZIS

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBCWLQ   1164     printed  Apr 23, 2025@18:06:50                                                                                                                                                                                                     Page 2

DVBCWLQ   ;ALB/JAM LIVER, GALL BLADDER AND PANCREAS WKS ;19 FEBRUARY 1999

 +1       ;;2.7;AMIE;**36,39**;Apr 10, 1995

 +2       ;

 +3       ; IOM - cpl (characters per line)

EN        ;

 +1        NEW DVBAX,ROU,DIF,XCNP,X,PG,TT,TNAM

 +2        if '$DATA(IOF)

               DO SETIOF

           if (IOST?1"C-".E)

               WRITE @IOF

 +3        SET DVBAX="Compensation and Pension Examination"

           SET TT=IOM-$LENGTH(DVBAX)\2

 +4        WRITE !?TT,DVBAX

 +5        SET TNAM="LIVER, GALL BLADDER, AND PANCREAS"

 +6        SET DVBAX=TNAM

           SET TT=IOM-$LENGTH(DVBAX)\2

           SET PG=1

 +7        WRITE !?TT,DVBAX

 +8        SET DVBAX="# 0305 Worksheet"

           SET TT=IOM-$LENGTH(DVBAX)\2

           WRITE !?TT,DVBAX,!!

 +9        WRITE "Name: ",NAME,?45,"SSN: ",SSN,!!,"Date of Exam: ____________________",?45,"C-number: ",CNUM,!!,"Place of Exam: ___________________",!!

 +10       SET DIF="^TMP($J,""DVBAW"","

           SET XCNP=0

 +11       KILL ^TMP($JOB,"DVBAW")

 +12       SET ROU="DVBCWLQ1"

           SET X=ROU

           XECUTE ^%ZOSF("LOAD")

 +13       NEW LP,TEXT,STOP

 +14       SET LP=0

           SET STOP=0

 +15       FOR 

               SET LP=$ORDER(^TMP($JOB,"DVBAW",LP))

               if (LP="")!(STOP)

                   QUIT 

               Begin DoDot:1

 +16               SET TEXT=^TMP($JOB,"DVBAW",LP,0)

 +17               IF (TEXT'[";;")!(TEXT[";AMIE;")

                       QUIT 

 +18               IF TEXT["TOF"

                       DO HD2

 +19               IF TEXT["END"

                       SET STOP=1

                       QUIT 

 +20               if TEXT'["TOF"

                       WRITE $PIECE(TEXT,";;",2),!

                   IF $Y>55

                       DO HD2

               End DoDot:1

 +21       KILL ^TMP($JOB,"DVBAW")

 +22       QUIT 

 +23      ;

HD2        SET PG=PG+1

           WRITE @IOF,!,"Page: ",PG,!!?7,"Compensation and Pension Exam for "_NAME,!!

 +1        WRITE ?4,TNAM,!!!

 +2        QUIT 

SETIOF    ;  ** Set device control var's

 +1        DO HOME^%ZIS

 +2        QUIT