DVBCWAH2.m

DVBCWAH2 ;ALB/RLC A&A OR HOUSEBOUND WKS ; 7 MARCH 1997

 ;;2.7;AMIE;**183**;Apr 10, 1995;Build 8

 ;

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

 S DVBAX="For AID AND ATTENDANCE OR HOUSEBOUND EXAMINATION",PG=1

 W !?22,"Compensation and Pension Examination",!,?(IOM-$L(DVBAX)\2),DVBAX,!?33,"# 1720 Worksheet",!!

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

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

 K ^TMP($J,"DVBAW")

 F ROU="DVBCWAH3" 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

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

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

 Q

 ;

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

 W "For AID AND ATTENDANCE OR HOUSEBOUND EXAMINATION",!!!

 Q

SETIOF ;  ** Set device control var's

 D HOME^%ZIS

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBCWAH2   1079     printed  Apr 09, 2024@20:52:17                                                                                                                                                                                                    Page 2

DVBCWAH2  ;ALB/RLC A&A OR HOUSEBOUND WKS ; 7 MARCH 1997

 +1       ;;2.7;AMIE;**183**;Apr 10, 1995;Build 8

 +2       ;

EN         if '$DATA(IOF)

               DO SETIOF

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

               WRITE @IOF

 +1        SET DVBAX="For AID AND ATTENDANCE OR HOUSEBOUND EXAMINATION"

           SET PG=1

 +2        WRITE !?22,"Compensation and Pension Examination",!,?(IOM-$LENGTH(DVBAX)\2),DVBAX,!?33,"# 1720 Worksheet",!!

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

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

           SET XCNP=0

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

 +6        FOR ROU="DVBCWAH3"

               SET X=ROU

               XECUTE ^%ZOSF("LOAD")

 +7        KILL DIF,XCNP,ROU

 +8        NEW LP,TEXT

 +9        SET LP=0

           SET STOP=0

 +10       FOR 

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

               if (LP="")!(STOP)

                   QUIT 

               Begin DoDot:1

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

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

                       QUIT 

 +13      ;I TEXT["TOF" D HD2

 +14               IF TEXT[";;END"

                       SET STOP=1

                       QUIT 

 +15               if TEXT'["TOF"

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

                   IF $Y>55

                       DO HD2

               End DoDot:1

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

 +17       QUIT 

 +18      ;

HD2        SET PG=PG+1

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

 +1        WRITE "For AID AND ATTENDANCE OR HOUSEBOUND EXAMINATION",!!!

 +2        QUIT 

SETIOF    ;  ** Set device control var's

 +1        DO HOME^%ZIS

 +2        QUIT