ACRFEA4D.m

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

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

 ;;ACRFEA4 CON'T

E1 ;EP;

 K ACRQUIT,DIR

 W @IOF

 W !?5,"Edit data for Document NO. ",@ACRON,ACRDOC,@ACROF,"  (",ACRID,")"

 I $P(ACRDOC0,U,19) D

 .W !!?5,"***** NOTE ***** THIS IS A CALL AGAINST BPA ",$P(^ACRDOC($P(ACRDOC0,U,19),0),U,2)

 .W !

 S:'$D(ACRREFX) ACRREFX=ACRREF

 I $P(ACRDOC0,U,15) D

 .W !!?5,"***** NOTE *****"

 .W !?5,"THIS IS ",$S(ACRREFX'=130&(ACRREFX'=600):"MODIFICATION",1:"AMENDMENT")," # ",$P(ACRDOC0,U,9)," OF DOCUMENT # ",$P($G(^ACRDOC(+$P(ACRDOC0,U,15),0)),U,2)

 .W !

 S:ACRREFX=499 ACRREFX=ACRREF

 S:ACRREF=210 ACRREFX=103

 I "^116^204^103^349^326^"[(U_ACRREFX_U) D ^ACRFSSPO

 I ACRREFX=103 S ACRREF=103 D

 .W !!?10,"1"

 .W ?15,"Basic Data"

 .W !?10,"2"

 .W ?15,"Enter Contract/Small Purchase Data"

 .W !?10,"3"

 .W ?15,"Add/Edit Items"

 .W !?10,"4"

 .W ?15,"Send for Approval"

 .W !?10,"5"

 .W ?15,"Print Document"

 .W !?10,"6"

 .W ?15,"Edit Quantity Discount"

 .W !?10,"7"

 .W ?15,"Edit Boiler Plate Statement"

 .W !?10,"8"

 .W ?15,"Review Document Status"

 .W !?10,"9"

 .W ?15,"Return Requisition for Resubmission"

 .W !?10,"10"

 .W ?15,"Edit Narrative/Justification"

 .W !?10,"11"

 .W ?15,"Add/Edit Vendor Data"

 .W !?10,"12"

 .W ?15,"Edit Procurement Status Report"

 .W !?10,"13"

 .W ?15,"Review Attachments"

 .W !?10,"14"

 .W ?15,"Shipping Instructions"

 .W !?10,"15"

 .W ?15,"Print Bidders List"

 .W !?10,"16"

 .W ?15,"Electronic Commerce"

 .W !?10,"17"

 .W ?15,"Small Purchase Checklist"

 .I $G(ACRPOT)>2500 D

 ..W !?10,"18"

 ..W ?15,"Print Cost Comparison Report"

 .S ACREND=$S($G(ACRPOT)>2500:18,1:17)

 I ACRREFX=349!(ACRREFX=326) S ACRREF=ACRREFX D

 .W !!?10,"1"

 .W ?15,"Basic Data"

 .W !?10,"2"

 .W ?15,"Enter Contract/Small Purchase Data"

 .W !?10,"3"

 .W ?15,"Add/Edit Items"

 .W !?10,"4"

 .W ?15,"Send for Approval"

 .W !?10,"5"

 .W ?15,"Print Document"

 .W !?10,"6"

 .W ?15,"Edit Quantity Discount"

 .W !?10,"7"

 .W ?15,"Edit Boiler Plate Statement"

 .W !?10,"8"

 .W ?15,"Review Document Status"

 .W !?10,"9"

 .W ?15,"Return Requisition for Resubmission"

 .W !?10,"10"

 .W ?15,"Edit Narrative/Justification"

 .W !?10,"11"

 .W ?15,"Add/Edit Vendor Data"

 .W !?10,"12"

 .W ?15,"Edit Procurement Status Report"

 .W !?10,"13"

 .W ?15,"Review Attachments"

 .W !?10,"14"

 .W ?15,"Shipping Instructions"

 .W !?10,"15"

 .W ?15,"Print Bidders List"

 .W !?10,"16"

 .W ?15,"Electronic Commerce"

 .I $G(ACRPOT)>2500 D

 ..W !?10,"17"

 ..W ?15,"Print Cost Comparison Report"

 .S ACREND=$S($G(ACRPOT)>2500:17,1:16)

 I ACRREFX=116!(ACRREFX=101) D

 .W !!?10,"1"

 .W ?15,"Basic Data"

 .W !?10,"2"

 .W ?15,"Requested Vendor"

 .W !?10,"3"

 .W ?15,"Edit Narrative/Justification"

 .W !?10,"4"

 .W ?15,"Add/Edit Items"

 .W !?10,"5"

 .W ?15,"Send for Approval"

 .W !?10,"6"

 .W ?15,"Print Document"

 .W !?10,"7"

 .W ?15,"Edit Quantity Discount"

 .W !?10,"8"

 .W ?15,"Edit Boiler Plate Statement"

 .W !?10,"9"

 .W ?15,"Specify Number of Attachments"

 .W !?10,"10"

 .W ?15,"Review Document Status"

 .W !?10,"11"

 .W ?15,"Shipping Instructions"

 .W !?10,"12"

 .W ?15,"Delete This Request"

 .I $G(ACRPOT)>2500 D

 ..W !?10,"13"

 ..W ?15,"Print Cost Comparison Report"

 .S ACREND=$S($G(ACRPOT)>2500:13,1:12)

 I ACRREFX=130 D

 .W !!?10,"1"

 .W ?15,"Basic Data"

 .W !?10,"2"

 .W ?15,"Edit Comments/Purpose of Travel"

 .W !?10,"3"

 .W ?15,"Travel Destination and Mode of Travel"

 .W !?10,"4"

 .W ?15,"Add/Edit Travel Days"

 .W !?10,"5"

 .W ?15,"Edit Airline Information"

 .W !?10,"6"

 .W ?15,"Send for Approval"

 .W !?10,"7"

 .W ?15,"Print Document"

 .W !?10,"8"

 .W ?15,"Review Document Status"

 .W !?10,"9"

 .W ?15,"Edit Object Class Code"

 .W !?10,"10"

 .W ?15,"Delete This Travel Request"

 .S ACREND=10

 I ACRREFX=600 D

 .W !!?10,"1"

 .W ?15,"Edit Travel Days"

 .W !?10,"2"

 .W ?15,"Edit Airline Information"

 .W !?10,"3"

 .W ?15,"Send for Approval"

 .W !?10,"4"

 .W ?15,"Print Document"

 .W !?10,"5"

 .W ?15,"Review Document Status"

 .W !?10,"6"

 .W ?15,"Travel Destination and Mode of Travel"

 .W !?10,"7"

 .W ?15,"Cancel This Travel Order"

 .W !?10,"8"

 .W ?15,"Enter/Edit Trip Report"

 .S ACREND=8

 I ACRREFX=148 D

 .W !!?10,"1"

 .W ?15,"Basic Data"

 .W !?10,"2"

 .W ?15,"Enter Training Vendor"

 .W !?10,"3"

 .W ?15,"Edit Justification/Training Need"

 .W !?10,"4"

 .W ?15,"Add/Edit Training Costs"

 .W !?10,"5"

 .W ?15,"Send for Approval"

 .W !?10,"6"

 .W ?15,"Print Document"

 .W !?10,"7"

 .W ?15,"Review Document Status"

 .W !?10,"8"

 .W ?15,"Delete This Training Request"

 .W !?10,"9"

 .W ?15,"Group Training"

 .S ACREND=9

 .I $$ACSREQ^ACRFTO(ACRDOCDA)=1 D

 ..W !?10,"10",?15,"Sign Agreement to Continue in Service"

 ..S ACREND=10

 Q

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

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

 +2       ;;ACRFEA4 CON'T

E1        ;EP;

 +1        KILL ACRQUIT,DIR

 +2        WRITE @IOF

 +3        WRITE !?5,"Edit data for Document NO. ",@ACRON,ACRDOC,@ACROF,"  (",ACRID,")"

 +4        IF $PIECE(ACRDOC0,U,19)

               Begin DoDot:1

 +5                WRITE !!?5,"***** NOTE ***** THIS IS A CALL AGAINST BPA ",$PIECE(^ACRDOC($PIECE(ACRDOC0,U,19),0),U,2)

 +6                WRITE !

               End DoDot:1

 +7        IF '$DATA(ACRREFX)

               SET ACRREFX=ACRREF

 +8        IF $PIECE(ACRDOC0,U,15)

               Begin DoDot:1

 +9                WRITE !!?5,"***** NOTE *****"

 +10               WRITE !?5,"THIS IS ",$SELECT(ACRREFX'=130&(ACRREFX'=600):"MODIFICATION",1:"AMENDMENT")," # ",$PIECE(ACRDOC0,U,9)," OF DOCUMENT # ",$PIECE($GET(^ACRDOC(+$PIECE(ACRDOC0,U,15),0)),U,2)

 +11               WRITE !

               End DoDot:1

 +12       IF ACRREFX=499

               SET ACRREFX=ACRREF

 +13       IF ACRREF=210

               SET ACRREFX=103

 +14       IF "^116^204^103^349^326^"[(U_ACRREFX_U)

               DO ^ACRFSSPO

 +15       IF ACRREFX=103

               SET ACRREF=103

               Begin DoDot:1

 +16               WRITE !!?10,"1"

 +17               WRITE ?15,"Basic Data"

 +18               WRITE !?10,"2"

 +19               WRITE ?15,"Enter Contract/Small Purchase Data"

 +20               WRITE !?10,"3"

 +21               WRITE ?15,"Add/Edit Items"

 +22               WRITE !?10,"4"

 +23               WRITE ?15,"Send for Approval"

 +24               WRITE !?10,"5"

 +25               WRITE ?15,"Print Document"

 +26               WRITE !?10,"6"

 +27               WRITE ?15,"Edit Quantity Discount"

 +28               WRITE !?10,"7"

 +29               WRITE ?15,"Edit Boiler Plate Statement"

 +30               WRITE !?10,"8"

 +31               WRITE ?15,"Review Document Status"

 +32               WRITE !?10,"9"

 +33               WRITE ?15,"Return Requisition for Resubmission"

 +34               WRITE !?10,"10"

 +35               WRITE ?15,"Edit Narrative/Justification"

 +36               WRITE !?10,"11"

 +37               WRITE ?15,"Add/Edit Vendor Data"

 +38               WRITE !?10,"12"

 +39               WRITE ?15,"Edit Procurement Status Report"

 +40               WRITE !?10,"13"

 +41               WRITE ?15,"Review Attachments"

 +42               WRITE !?10,"14"

 +43               WRITE ?15,"Shipping Instructions"

 +44               WRITE !?10,"15"

 +45               WRITE ?15,"Print Bidders List"

 +46               WRITE !?10,"16"

 +47               WRITE ?15,"Electronic Commerce"

 +48               WRITE !?10,"17"

 +49               WRITE ?15,"Small Purchase Checklist"

 +50               IF $GET(ACRPOT)>2500

                       Begin DoDot:2

 +51                       WRITE !?10,"18"

 +52                       WRITE ?15,"Print Cost Comparison Report"

                       End DoDot:2

 +53               SET ACREND=$SELECT($GET(ACRPOT)>2500:18,1:17)

               End DoDot:1

 +54       IF ACRREFX=349!(ACRREFX=326)

               SET ACRREF=ACRREFX

               Begin DoDot:1

 +55               WRITE !!?10,"1"

 +56               WRITE ?15,"Basic Data"

 +57               WRITE !?10,"2"

 +58               WRITE ?15,"Enter Contract/Small Purchase Data"

 +59               WRITE !?10,"3"

 +60               WRITE ?15,"Add/Edit Items"

 +61               WRITE !?10,"4"

 +62               WRITE ?15,"Send for Approval"

 +63               WRITE !?10,"5"

 +64               WRITE ?15,"Print Document"

 +65               WRITE !?10,"6"

 +66               WRITE ?15,"Edit Quantity Discount"

 +67               WRITE !?10,"7"

 +68               WRITE ?15,"Edit Boiler Plate Statement"

 +69               WRITE !?10,"8"

 +70               WRITE ?15,"Review Document Status"

 +71               WRITE !?10,"9"

 +72               WRITE ?15,"Return Requisition for Resubmission"

 +73               WRITE !?10,"10"

 +74               WRITE ?15,"Edit Narrative/Justification"

 +75               WRITE !?10,"11"

 +76               WRITE ?15,"Add/Edit Vendor Data"

 +77               WRITE !?10,"12"

 +78               WRITE ?15,"Edit Procurement Status Report"

 +79               WRITE !?10,"13"

 +80               WRITE ?15,"Review Attachments"

 +81               WRITE !?10,"14"

 +82               WRITE ?15,"Shipping Instructions"

 +83               WRITE !?10,"15"

 +84               WRITE ?15,"Print Bidders List"

 +85               WRITE !?10,"16"

 +86               WRITE ?15,"Electronic Commerce"

 +87               IF $GET(ACRPOT)>2500

                       Begin DoDot:2

 +88                       WRITE !?10,"17"

 +89                       WRITE ?15,"Print Cost Comparison Report"

                       End DoDot:2

 +90               SET ACREND=$SELECT($GET(ACRPOT)>2500:17,1:16)

               End DoDot:1

 +91       IF ACRREFX=116!(ACRREFX=101)

               Begin DoDot:1

 +92               WRITE !!?10,"1"

 +93               WRITE ?15,"Basic Data"

 +94               WRITE !?10,"2"

 +95               WRITE ?15,"Requested Vendor"

 +96               WRITE !?10,"3"

 +97               WRITE ?15,"Edit Narrative/Justification"

 +98               WRITE !?10,"4"

 +99               WRITE ?15,"Add/Edit Items"

 +100              WRITE !?10,"5"

 +101              WRITE ?15,"Send for Approval"

 +102              WRITE !?10,"6"

 +103              WRITE ?15,"Print Document"

 +104              WRITE !?10,"7"

 +105              WRITE ?15,"Edit Quantity Discount"

 +106              WRITE !?10,"8"

 +107              WRITE ?15,"Edit Boiler Plate Statement"

 +108              WRITE !?10,"9"

 +109              WRITE ?15,"Specify Number of Attachments"

 +110              WRITE !?10,"10"

 +111              WRITE ?15,"Review Document Status"

 +112              WRITE !?10,"11"

 +113              WRITE ?15,"Shipping Instructions"

 +114              WRITE !?10,"12"

 +115              WRITE ?15,"Delete This Request"

 +116              IF $GET(ACRPOT)>2500

                       Begin DoDot:2

 +117                      WRITE !?10,"13"

 +118                      WRITE ?15,"Print Cost Comparison Report"

                       End DoDot:2

 +119              SET ACREND=$SELECT($GET(ACRPOT)>2500:13,1:12)

               End DoDot:1

 +120      IF ACRREFX=130

               Begin DoDot:1

 +121              WRITE !!?10,"1"

 +122              WRITE ?15,"Basic Data"

 +123              WRITE !?10,"2"

 +124              WRITE ?15,"Edit Comments/Purpose of Travel"

 +125              WRITE !?10,"3"

 +126              WRITE ?15,"Travel Destination and Mode of Travel"

 +127              WRITE !?10,"4"

 +128              WRITE ?15,"Add/Edit Travel Days"

 +129              WRITE !?10,"5"

 +130              WRITE ?15,"Edit Airline Information"

 +131              WRITE !?10,"6"

 +132              WRITE ?15,"Send for Approval"

 +133              WRITE !?10,"7"

 +134              WRITE ?15,"Print Document"

 +135              WRITE !?10,"8"

 +136              WRITE ?15,"Review Document Status"

 +137              WRITE !?10,"9"

 +138              WRITE ?15,"Edit Object Class Code"

 +139              WRITE !?10,"10"

 +140              WRITE ?15,"Delete This Travel Request"

 +141              SET ACREND=10

               End DoDot:1

 +142      IF ACRREFX=600

               Begin DoDot:1

 +143              WRITE !!?10,"1"

 +144              WRITE ?15,"Edit Travel Days"

 +145              WRITE !?10,"2"

 +146              WRITE ?15,"Edit Airline Information"

 +147              WRITE !?10,"3"

 +148              WRITE ?15,"Send for Approval"

 +149              WRITE !?10,"4"

 +150              WRITE ?15,"Print Document"

 +151              WRITE !?10,"5"

 +152              WRITE ?15,"Review Document Status"

 +153              WRITE !?10,"6"

 +154              WRITE ?15,"Travel Destination and Mode of Travel"

 +155              WRITE !?10,"7"

 +156              WRITE ?15,"Cancel This Travel Order"

 +157              WRITE !?10,"8"

 +158              WRITE ?15,"Enter/Edit Trip Report"

 +159              SET ACREND=8

               End DoDot:1

 +160      IF ACRREFX=148

               Begin DoDot:1

 +161              WRITE !!?10,"1"

 +162              WRITE ?15,"Basic Data"

 +163              WRITE !?10,"2"

 +164              WRITE ?15,"Enter Training Vendor"

 +165              WRITE !?10,"3"

 +166              WRITE ?15,"Edit Justification/Training Need"

 +167              WRITE !?10,"4"

 +168              WRITE ?15,"Add/Edit Training Costs"

 +169              WRITE !?10,"5"

 +170              WRITE ?15,"Send for Approval"

 +171              WRITE !?10,"6"

 +172              WRITE ?15,"Print Document"

 +173              WRITE !?10,"7"

 +174              WRITE ?15,"Review Document Status"

 +175              WRITE !?10,"8"

 +176              WRITE ?15,"Delete This Training Request"

 +177              WRITE !?10,"9"

 +178              WRITE ?15,"Group Training"

 +179              SET ACREND=9

 +180              IF $$ACSREQ^ACRFTO(ACRDOCDA)=1

                       Begin DoDot:2

 +181                      WRITE !?10,"10",?15,"Sign Agreement to Continue in Service"

 +182                      SET ACREND=10

                       End DoDot:2

               End DoDot:1

 +183      QUIT