ACRFPSR1.m

ACRFPSR1 ;IHS/OIRM/DSD/THL,AEF - PENDING SIGNATURE REPORT - CONT; [ 11/01/2001   9:44 AM ]

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

 ;;ROUTINE TO PRINT PENDING SIGNATURE REPORT

HEAD ;EP;REPORT HEADER

 W @IOF

 W !?5,"LIST OF ARMS DOCUMENTS BY:  "

 W $S(ACRX=1:"DEPARTMENT ACCOUNT",ACRX=2&'$D(ACRALL):"INDIVIDUAL",1:"PROCUREMENT OFFICE")

 W !!?5,"DOCUMENTS LEFT UNSIGNED FOR MORE THAN ",ACRTIME," DAYS"

 W ?55,"DATE: ",ACRTODAY

 W !?5,"--------------------------------------------"

 W ?55,"-----------------"

 W:ACRX=1!$D(ACRALL) !!?5,"PROCUREMENT OFFICE: ",ACRPO

 W:ACRX=1&'$D(ACRALL) !?5,"DEPARTMENT ACCOUNT: ",ACRLB

 W !!?5,"INDIVIDUAL"

 W ?27,"DOCUMENT/SIGNATURE TYPE"

 W ?56,"IDENTIFIER/DATE RECD"

 W !?5,"--------------------"

 W ?27,"---------------------------"

 W ?56,"--------------------"

 Q

ACRFPSR1  ;IHS/OIRM/DSD/THL,AEF - PENDING SIGNATURE REPORT - CONT; [ 11/01/2001   9:44 AM ]

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

 +2       ;;ROUTINE TO PRINT PENDING SIGNATURE REPORT

HEAD      ;EP;REPORT HEADER

 +1        WRITE @IOF

 +2        WRITE !?5,"LIST OF ARMS DOCUMENTS BY:  "

 +3        WRITE $SELECT(ACRX=1:"DEPARTMENT ACCOUNT",ACRX=2&'$DATA(ACRALL):"INDIVIDUAL",1:"PROCUREMENT OFFICE")

 +4        WRITE !!?5,"DOCUMENTS LEFT UNSIGNED FOR MORE THAN ",ACRTIME," DAYS"

 +5        WRITE ?55,"DATE: ",ACRTODAY

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

 +7        WRITE ?55,"-----------------"

 +8        IF ACRX=1!$DATA(ACRALL)

               WRITE !!?5,"PROCUREMENT OFFICE: ",ACRPO

 +9        IF ACRX=1&'$DATA(ACRALL)

               WRITE !?5,"DEPARTMENT ACCOUNT: ",ACRLB

 +10       WRITE !!?5,"INDIVIDUAL"

 +11       WRITE ?27,"DOCUMENT/SIGNATURE TYPE"

 +12       WRITE ?56,"IDENTIFIER/DATE RECD"

 +13       WRITE !?5,"--------------------"

 +14       WRITE ?27,"---------------------------"

 +15       WRITE ?56,"--------------------"

 +16       QUIT