DVBCWSM.m

DVBCWSM ;ALB/CMM RESPIRATORY MISC DISEASES WKS ; 10 Oct 2000

 ;;2.7;AMIE;**34**;Apr 10, 1995

 ;

 ; IOM represents cpl (characters per line) depending on print. select"

 ; The header will be centered for any print out.

 ;

EN N XX 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 DVBAX(1)="RESPIRATORY DISEASES, MISCELLANEOUS",PG=1

 S DVBAX(2)="(PVD, Neoplasms, Bacterial Infections,"

 S DVBAX(3)="Mycotic Lung Disease, Sarcoidosis, and Sleep Apnea)"

 F XX=1:1:3 S TT=IOM-$L(DVBAX(XX))\2 D

 .W !,?TT,DVBAX(XX)

 ; $L("# XXXX Worksheet")=16 for all worksheets

 ;

 W !?(IOM-16\2),"# 1520 Worksheet",!!

 W "Name: ",NAME,?45,"SSN: ",SSN,!

 W !,"Date of Exam: ____________________",?45,"C-number: ",CNUM

 W !!,"Place of Exam: ___________________",!!

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

 K ^TMP($J,"DVBAW")

 F ROU="DVBCWSM1" S X=ROU X ^%ZOSF("LOAD")

 K DIF,XCNP,ROU

 N LP,TEXT

 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

 .I $Y>55 D HD2

 .W:TEXT'["TOF" $P(TEXT,";;",2),!

 K ^TMP($J,"DVBAW"),TEXT,STOP,LP,PG,DVBAX,X

 Q

 ;

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

 W "RESPIRATORY DISEASES, MISCELLANEOUS",!!!

 Q

SETIOF ;  ** Set device control var's

 D HOME^%ZIS

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBCWSM   1455     printed  Mar 13, 2025@20:58:41                                                                                                                                                                                                     Page 2

DVBCWSM   ;ALB/CMM RESPIRATORY MISC DISEASES WKS ; 10 Oct 2000

 +1       ;;2.7;AMIE;**34**;Apr 10, 1995

 +2       ;

 +3       ; IOM represents cpl (characters per line) depending on print. select"

 +4       ; The header will be centered for any print out.

 +5       ;

EN         NEW XX

           if '$DATA(IOF)

               DO SETIOF

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

               WRITE @IOF

 +1        SET DVBAX="Compensation and Pension Examination"

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

 +2        WRITE !?TT,DVBAX,!

 +3        SET DVBAX(1)="RESPIRATORY DISEASES, MISCELLANEOUS"

           SET PG=1

 +4        SET DVBAX(2)="(PVD, Neoplasms, Bacterial Infections,"

 +5        SET DVBAX(3)="Mycotic Lung Disease, Sarcoidosis, and Sleep Apnea)"

 +6        FOR XX=1:1:3

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

               Begin DoDot:1

 +7                WRITE !,?TT,DVBAX(XX)

               End DoDot:1

 +8       ; $L("# XXXX Worksheet")=16 for all worksheets

 +9       ;

 +10       WRITE !?(IOM-16\2),"# 1520 Worksheet",!!

 +11       WRITE "Name: ",NAME,?45,"SSN: ",SSN,!

 +12       WRITE !,"Date of Exam: ____________________",?45,"C-number: ",CNUM

 +13       WRITE !!,"Place of Exam: ___________________",!!

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

           SET XCNP=0

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

 +16       FOR ROU="DVBCWSM1"

               SET X=ROU

               XECUTE ^%ZOSF("LOAD")

 +17       KILL DIF,XCNP,ROU

 +18       NEW LP,TEXT

 +19       SET LP=0

           SET STOP=0

 +20       FOR 

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

               if (LP="")!(STOP)

                   QUIT 

               Begin DoDot:1

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

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

                       QUIT 

 +23      ;I TEXT["TOF" D HD2

 +24               IF TEXT["END"

                       SET STOP=1

                       QUIT 

 +25               IF $Y>55

                       DO HD2

 +26               if TEXT'["TOF"

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

               End DoDot:1

 +27       KILL ^TMP($JOB,"DVBAW"),TEXT,STOP,LP,PG,DVBAX,X

 +28       QUIT 

 +29      ;

HD2        SET PG=PG+1

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

 +1        WRITE "RESPIRATORY DISEASES, MISCELLANEOUS",!!!

 +2        QUIT 

SETIOF    ;  ** Set device control var's

 +1        DO HOME^%ZIS

 +2        QUIT