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
