AFSLEAPR.m

AFSLEAPR ;IHS/OIRM/DSD/JDM,HJT - EDIT PAYMENT APPROPRIATION; [ 10/27/2004   4:21 PM ]

 ;;3.0t1;1166 APPROVALS FOR PAYMENT;**13**;

 ;ACR*2.1*13.02 IM13574   REMOVED REDUNDANT CODE FOR CACHE' COMPLIANCE

 ;Edit payment appropriation number.

READX ;EP;TO EDIT PAYMENT APPROPRIATION NUMBER

 D EXIT

 F  D R1 Q:$D(AFSQUIT)

EXIT K AFSLFYR,AFSLSCHD,AFSLSQNO,AFSQUIT,AFSLANSD,AFSLIFLG,AFSLNFND,AFSLNOD2,AFSLNZRO,AFSLSFND,AFSLSZRO,AFSLYFND,AFSLYZRO,AFSLFYR,AFSLSCHD,AFSLSQNO,AFSLYNOD,AFSLSNOD,AFSLNNOD,DIR,DR,DIE,C,D,C0,DA,DI,DIC,X

 Q

R1 K DIR

 ;Begin Y2k fix

 S DIR(0)="FO^4:4"   ;Y2000

 ;S DIR(0)="FO^2:2"

 S DIR("A")="Which FISCAL YEAR"

 W !

 D ^DIR

 K DIR

 ;I Y'?2N D  Q

 I Y'?4N D  Q    ;Y2000

 .;End Y2k fix

 .W !,"No FISCAL YEAR selected."

 .H 2

 .S AFSQUIT=""

 S AFSLYNOD=$O(^AFSLAFP("B",Y,0))

 I 'AFSLYNOD W !,"FISCAL YEAR not found." Q

 F  D R2 Q:$D(AFSQUIT)

 K AFSQUIT

 Q

R2 S DIC="^AFSLAFP("_AFSLYNOD_",1,"

 S DA(1)=AFSLYNOD

 S DIC(0)="AEMQZ"

 S DIC("A")="Which BATCH NO..."

 D ^DIC

 I +Y<1 D  Q

 .W !,"No BATCH NUMBER selected."

 .H 2

 .S AFSQUIT=""

 S AFSLSNOD=+Y

 F  D R3 Q:$D(AFSQUIT)

 K AFSQUIT

 Q

R3 S DIC="^AFSLAFP("_AFSLYNOD_",1,"_AFSLSNOD_",1,"

 S DA(2)=AFSLYNOD

 S DA(1)=AFSLSNOD

 S DIC(0)="AEMQZ"

 S DIC("A")="Which SEQUENDE NO"

 D ^DIC

 I +Y<1 D  Q

 .W !,"No SEQUENCE NUMBER selected."

 .H 2

 .S AFSQUIT=""

 S AFSLNNOD=+Y

 S DIE="^AFSLAFP("_AFSLYNOD_",1,"_AFSLSNOD_",1,",DA=AFSLNNOD,DA(1)=AFSLSNOD,DA(2)=AFSLYNOD

 S DR="57T"

 D ^DIE

 Q

AFSLEAPR  ;IHS/OIRM/DSD/JDM,HJT - EDIT PAYMENT APPROPRIATION; [ 10/27/2004   4:21 PM ]

 +1       ;;3.0t1;1166 APPROVALS FOR PAYMENT;**13**;

 +2       ;ACR*2.1*13.02 IM13574   REMOVED REDUNDANT CODE FOR CACHE' COMPLIANCE

 +3       ;Edit payment appropriation number.

READX     ;EP;TO EDIT PAYMENT APPROPRIATION NUMBER

 +1        DO EXIT

 +2        FOR 

               DO R1

               IF $DATA(AFSQUIT)

                   QUIT 

EXIT       KILL AFSLFYR,AFSLSCHD,AFSLSQNO,AFSQUIT,AFSLANSD,AFSLIFLG,AFSLNFND,AFSLNOD2,AFSLNZRO,AFSLSFND,AFSLSZRO,AFSLYFND,AFSLYZRO,AFSLFYR,AFSLSCHD,AFSLSQNO,AFSLYNOD,AFSLSNOD,AFSLNNOD,DIR,DR,DIE,C,D,C0,DA,DI,DIC,X

 +1        QUIT 

R1         KILL DIR

 +1       ;Begin Y2k fix

 +2       ;Y2000

           SET DIR(0)="FO^4:4"

 +3       ;S DIR(0)="FO^2:2"

 +4        SET DIR("A")="Which FISCAL YEAR"

 +5        WRITE !

 +6        DO ^DIR

 +7        KILL DIR

 +8       ;I Y'?2N D  Q

 +9       ;Y2000

           IF Y'?4N

               Begin DoDot:1

 +10      ;End Y2k fix

 +11               WRITE !,"No FISCAL YEAR selected."

 +12               HANG 2

 +13               SET AFSQUIT=""

               End DoDot:1

               QUIT 

 +14       SET AFSLYNOD=$ORDER(^AFSLAFP("B",Y,0))

 +15       IF 'AFSLYNOD

               WRITE !,"FISCAL YEAR not found."

               QUIT 

 +16       FOR 

               DO R2

               IF $DATA(AFSQUIT)

                   QUIT 

 +17       KILL AFSQUIT

 +18       QUIT 

R2         SET DIC="^AFSLAFP("_AFSLYNOD_",1,"

 +1        SET DA(1)=AFSLYNOD

 +2        SET DIC(0)="AEMQZ"

 +3        SET DIC("A")="Which BATCH NO..."

 +4        DO ^DIC

 +5        IF +Y<1

               Begin DoDot:1

 +6                WRITE !,"No BATCH NUMBER selected."

 +7                HANG 2

 +8                SET AFSQUIT=""

               End DoDot:1

               QUIT 

 +9        SET AFSLSNOD=+Y

 +10       FOR 

               DO R3

               IF $DATA(AFSQUIT)

                   QUIT 

 +11       KILL AFSQUIT

 +12       QUIT 

R3         SET DIC="^AFSLAFP("_AFSLYNOD_",1,"_AFSLSNOD_",1,"

 +1        SET DA(2)=AFSLYNOD

 +2        SET DA(1)=AFSLSNOD

 +3        SET DIC(0)="AEMQZ"

 +4        SET DIC("A")="Which SEQUENDE NO"

 +5        DO ^DIC

 +6        IF +Y<1

               Begin DoDot:1

 +7                WRITE !,"No SEQUENCE NUMBER selected."

 +8                HANG 2

 +9                SET AFSQUIT=""

               End DoDot:1

               QUIT 

 +10       SET AFSLNNOD=+Y

 +11       SET DIE="^AFSLAFP("_AFSLYNOD_",1,"_AFSLSNOD_",1,"

           SET DA=AFSLNNOD

           SET DA(1)=AFSLSNOD

           SET DA(2)=AFSLYNOD

 +12       SET DR="57T"

 +13       DO ^DIE

 +14       QUIT