ACRFDTP3.m

ACRFDTP3 ;IHS/OIRM/DSD/THL,AEF - DISPLAY FINANCIAL DATA;  [ 11/01/2001   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 ;;CONTINUATION OF ACRFDTP TO DISPLAY FINANCIAL DATA

H ;EP;

FDTP3 W !!?20,$S((ACRY["COMM"&'$D(ACRNEWOB)):"Edit ",1:"Select ")

 W @ACRON,ACRY,@ACROF

 Q

OBLAMT D H

 W !!,"ID NO."

 W ?8,"REQUEST #"

 W ?24,"IDENTIFIER"

 W ?40,"|ID NO."

 W ?48,"REQUEST #"

 W ?65,"IDENTIFIER"

 W !,"------  --------------- --------------- |------ ---------------  ---------------"

 S ACRFDX(5)="W !,ACRFD(1),?6,$S(ACRDISA1="""":ACRPRR1,1:ACRDISA1),?8,ACRFD21,?24,ACRID1 W:$D(ACR(ACRI+ACR10)) ?40,""|"",ACRFD(2),?47,$S(ACRDISA2="""":ACRPRR2,1:ACRDISA2),?48,ACRFD22,?65,ACRID2"

 Q

LOCBAMT D H

 W !!?9,"ID NO."

 W ?17,"DEPARTMENT"

 W ?54,"CAN NO."

 W ?63,"FY"

 W:$D(ACRFDIS) ?67,"O"

 W ?$X+2,"SSA"

 W !?9,"------"

 W ?17,"------------------------------"

 W ?54,"-------"

 W ?63,"--"

 W:$D(ACRFDIS) ?66,"-" W ?$X+2,"---"

 S ACRFDX(5)="Q:'$D(ACR(ACRI))  W !?2,""("",$P(^ACRLOCB(ACRFD(1),0),U,4),"")"",?9,ACRFD(1),?$X+8-$L(ACRFD(1)),ACRFDX,?54,ACRFD2,?63,$E(ACRFY,3,4) W:$D(ACRFDIS) ?$X+2,ACRFD1 W ?$X+2,ACRFD3"

 Q

ALCAMT D H

 W !!,"ID NO."

 W ?7,"LOCATION"

 W ?26,"ALLOW"

 W ?32,"SS"

 W ?35,"O FY"

 W ?40,"|ID NO."

 W ?48,"LOCATION"

 W ?67,"ALLOW"

 W ?73,"SS"

 W ?76,"O FY"

 W !,"------"

 W ?7,"------------------"

 W ?26,"-----"

 W ?32,"--"

 W ?35,"-"

 W ?37,"--"

 W ?40,"|------"

 W ?48,"------------------"

 W ?67,"-----"

 W ?73,"--"

 W ?76,"- --"

 S ACRFDX(5)="Q:'$D(ACR(ACRI))  W !,ACRFD(1),?$X+7-$L(ACRFD(1)),ACRFDX1,?$X+19-$L(ACRFDX1),ACRFD21,?$X+6-$L(ACRFD21),ACRFD31,?$X+1,ACRFD11,?$X+1,$E(ACRFY1,3,4)"

 S ACRFDX(5)=ACRFDX(5)_" Q:'$D(ACR(ACRI+ACR10))  W ?40,""|"",ACRFD(2),?$X+7-$L(ACRFD(2)),ACRFDX2,?$X+19-$L(ACRFDX2),ACRFD22,?$X+6-$L(ACRFD22),ACRFD32,?$X+1,ACRFD12,?$X+1,$E(ACRFY2,3,4)"

 Q

ALLAMT D H

 W !!,"ID NO."

 W ?7,"LOCATION"

 W ?26,"ALLOW"

 W ?32,"SS"

 W ?35,"O FY"

 W ?40,"|ID NO."

 W ?48,"LOCATION"

 W ?67,"ALLOW"

 W ?73,"SS"

 W ?76,"O FY"

 W !,"------"

 W ?7,"------------------"

 W ?26,"-----"

 W ?32,"--"

 W ?35,"-"

 W ?37,"--"

 W ?40,"|------"

 W ?48,"------------------"

 W ?67,"-----"

 W ?73,"--"

 W ?76,"- --"

 S ACRFDX(5)="Q:'$D(ACR(ACRI))  W !,ACRFD(1),?$X+7-$L(ACRFD(1)),ACRFDX1,?$X+19-$L(ACRFDX1),ACRFD21,?$X+6-$L(ACRFD21),ACRFD31,?$X+1,ACRFD11,?$X+1,$E(ACRFY1,3,4)"

 S ACRFDX(5)=ACRFDX(5)_" Q:'$D(ACR(ACRI+ACR10))  W ?40,""|"",ACRFD(2),?$X+7-$L(ACRFD(2)),ACRFDX2,?$X+19-$L(ACRFDX2),ACRFD22,?$X+6-$L(ACRFD22),ACRFD32,?$X+1,ACRFD12,?$X+1,$E(ACRFY2,3,4)"

 Q

APPAMT D H

 W !!?6,"ID NO."

 W ?14,"APPROPRIATN"

 W ?27,"O FY"

 W ?40,"|"

 W ?46,"ID NO."

 W ?54,"APPROPRIATN"

 W ?67,"O FY"

 W !?6,"------"

 W ?14,"-----------"

 W ?27,"-"

 W ?30,"--"

 W ?40,"|"

 W ?46,"------"

 W ?54,"-----------"

 W ?67,"-"

 W ?70,"--"

 S ACRFDX(5)="Q:'$D(ACR(ACRI))  W !?6,ACRFD(1),?$X+8-$L(ACRFD(1)),ACRFD21,?$X+14-$L(ACRFD21),ACRFD11,?$X+2,$E(ACRFY1,3,4) Q:'$D(ACR(ACRI+ACR10))  "

 S ACRFDX(5)=ACRFDX(5)_"W ?40,""|     "",ACRFD(2),?$X+8-$L(ACRFD(2)),ACRFD22,?$X+14-$L(ACRFD22),ACRFD12,?$X+2,$E(ACRFY2,3,4)"

 Q

ACRFDTP3  ;IHS/OIRM/DSD/THL,AEF - DISPLAY FINANCIAL DATA;  [ 11/01/2001   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001

 +2       ;;CONTINUATION OF ACRFDTP TO DISPLAY FINANCIAL DATA

H         ;EP;

FDTP3      WRITE !!?20,$SELECT((ACRY["COMM"&'$DATA(ACRNEWOB)):"Edit ",1:"Select ")

 +1        WRITE @ACRON,ACRY,@ACROF

 +2        QUIT 

OBLAMT     DO H

 +1        WRITE !!,"ID NO."

 +2        WRITE ?8,"REQUEST #"

 +3        WRITE ?24,"IDENTIFIER"

 +4        WRITE ?40,"|ID NO."

 +5        WRITE ?48,"REQUEST #"

 +6        WRITE ?65,"IDENTIFIER"

 +7        WRITE !,"------  --------------- --------------- |------ ---------------  ---------------"

 +8        SET ACRFDX(5)="W !,ACRFD(1),?6,$S(ACRDISA1="""":ACRPRR1,1:ACRDISA1),?8,ACRFD21,?24,ACRID1 W:$D(ACR(ACRI+ACR10)) ?40,""|"",ACRFD(2),?47,$S(ACRDISA2="""":ACRPRR2,1:ACRDISA2),?48,ACRFD22,?65,ACRID2"

 +9        QUIT 

LOCBAMT    DO H

 +1        WRITE !!?9,"ID NO."

 +2        WRITE ?17,"DEPARTMENT"

 +3        WRITE ?54,"CAN NO."

 +4        WRITE ?63,"FY"

 +5        IF $DATA(ACRFDIS)

               WRITE ?67,"O"

 +6        WRITE ?$X+2,"SSA"

 +7        WRITE !?9,"------"

 +8        WRITE ?17,"------------------------------"

 +9        WRITE ?54,"-------"

 +10       WRITE ?63,"--"

 +11       IF $DATA(ACRFDIS)

               WRITE ?66,"-"

           WRITE ?$X+2,"---"

 +12       SET ACRFDX(5)="Q:'$D(ACR(ACRI))  W !?2,""("",$P(^ACRLOCB(ACRFD(1),0),U,4),"")"",?9,ACRFD(1),?$X+8-$L(ACRFD(1)),ACRFDX,?54,ACRFD2,?63,$E(ACRFY,3,4) W:$D(ACRFDIS) ?$X+2,ACRFD1 W ?$X+2,ACRFD3"

 +13       QUIT 

ALCAMT     DO H

 +1        WRITE !!,"ID NO."

 +2        WRITE ?7,"LOCATION"

 +3        WRITE ?26,"ALLOW"

 +4        WRITE ?32,"SS"

 +5        WRITE ?35,"O FY"

 +6        WRITE ?40,"|ID NO."

 +7        WRITE ?48,"LOCATION"

 +8        WRITE ?67,"ALLOW"

 +9        WRITE ?73,"SS"

 +10       WRITE ?76,"O FY"

 +11       WRITE !,"------"

 +12       WRITE ?7,"------------------"

 +13       WRITE ?26,"-----"

 +14       WRITE ?32,"--"

 +15       WRITE ?35,"-"

 +16       WRITE ?37,"--"

 +17       WRITE ?40,"|------"

 +18       WRITE ?48,"------------------"

 +19       WRITE ?67,"-----"

 +20       WRITE ?73,"--"

 +21       WRITE ?76,"- --"

 +22       SET ACRFDX(5)="Q:'$D(ACR(ACRI))  W !,ACRFD(1),?$X+7-$L(ACRFD(1)),ACRFDX1,?$X+19-$L(ACRFDX1),ACRFD21,?$X+6-$L(ACRFD21),ACRFD31,?$X+1,ACRFD11,?$X+1,$E(ACRFY1,3,4)"

 +23       SET ACRFDX(5)=ACRFDX(5)_" Q:'$D(ACR(ACRI+ACR10))  W ?40,""|"",ACRFD(2),?$X+7-$L(ACRFD(2)),ACRFDX2,?$X+19-$L(ACRFDX2),ACRFD22,?$X+6-$L(ACRFD22),ACRFD32,?$X+1,ACRFD12,?$X+1,$E(ACRFY2,3,4)"

 +24       QUIT 

ALLAMT     DO H

 +1        WRITE !!,"ID NO."

 +2        WRITE ?7,"LOCATION"

 +3        WRITE ?26,"ALLOW"

 +4        WRITE ?32,"SS"

 +5        WRITE ?35,"O FY"

 +6        WRITE ?40,"|ID NO."

 +7        WRITE ?48,"LOCATION"

 +8        WRITE ?67,"ALLOW"

 +9        WRITE ?73,"SS"

 +10       WRITE ?76,"O FY"

 +11       WRITE !,"------"

 +12       WRITE ?7,"------------------"

 +13       WRITE ?26,"-----"

 +14       WRITE ?32,"--"

 +15       WRITE ?35,"-"

 +16       WRITE ?37,"--"

 +17       WRITE ?40,"|------"

 +18       WRITE ?48,"------------------"

 +19       WRITE ?67,"-----"

 +20       WRITE ?73,"--"

 +21       WRITE ?76,"- --"

 +22       SET ACRFDX(5)="Q:'$D(ACR(ACRI))  W !,ACRFD(1),?$X+7-$L(ACRFD(1)),ACRFDX1,?$X+19-$L(ACRFDX1),ACRFD21,?$X+6-$L(ACRFD21),ACRFD31,?$X+1,ACRFD11,?$X+1,$E(ACRFY1,3,4)"

 +23       SET ACRFDX(5)=ACRFDX(5)_" Q:'$D(ACR(ACRI+ACR10))  W ?40,""|"",ACRFD(2),?$X+7-$L(ACRFD(2)),ACRFDX2,?$X+19-$L(ACRFDX2),ACRFD22,?$X+6-$L(ACRFD22),ACRFD32,?$X+1,ACRFD12,?$X+1,$E(ACRFY2,3,4)"

 +24       QUIT 

APPAMT     DO H

 +1        WRITE !!?6,"ID NO."

 +2        WRITE ?14,"APPROPRIATN"

 +3        WRITE ?27,"O FY"

 +4        WRITE ?40,"|"

 +5        WRITE ?46,"ID NO."

 +6        WRITE ?54,"APPROPRIATN"

 +7        WRITE ?67,"O FY"

 +8        WRITE !?6,"------"

 +9        WRITE ?14,"-----------"

 +10       WRITE ?27,"-"

 +11       WRITE ?30,"--"

 +12       WRITE ?40,"|"

 +13       WRITE ?46,"------"

 +14       WRITE ?54,"-----------"

 +15       WRITE ?67,"-"

 +16       WRITE ?70,"--"

 +17       SET ACRFDX(5)="Q:'$D(ACR(ACRI))  W !?6,ACRFD(1),?$X+8-$L(ACRFD(1)),ACRFD21,?$X+14-$L(ACRFD21),ACRFD11,?$X+2,$E(ACRFY1,3,4) Q:'$D(ACR(ACRI+ACR10))  "

 +18       SET ACRFDX(5)=ACRFDX(5)_"W ?40,""|     "",ACRFD(2),?$X+8-$L(ACRFD(2)),ACRFD22,?$X+14-$L(ACRFD22),ACRFD12,?$X+2,$E(ACRFY2,3,4)"

 +19       QUIT