| 1 | PRCX1P ;WISC/PLT-IFCAP ROTUINE TO FIX COPY REQUESTS & P.O ; 10/17/95 3:26 PM
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;QUIT ; invalid entry
|
|---|
| 5 | ;
|
|---|
| 6 | EN ;start FIXing
|
|---|
| 7 | N PRCIVER,PRCRI,PRCFIXV,PRCOPT,PRC5INST,PRCQ21,PRCDUZ
|
|---|
| 8 | Q1 D EN^DDIOL(" "),EN^DDIOL("The option will fix the copied requests with wrong BBFY, APPROPRIATION")
|
|---|
| 9 | D EN^DDIOL(" and FCP/PRC(ACC).")
|
|---|
| 10 | ;D EN^DDIOL("The option 2 will rebuild the rejected MO/SO FMS-documents with wrong")
|
|---|
| 11 | ;D EN^DDIOL(" BBFY and APPROPRIATION in purchase orders.")
|
|---|
| 12 | ;D SC^PRC0A(.X,.Y,"Select IFCAP V5 FIX option","OM^1:(2237,1358) Requests(1996-) BBFY, APPROPRIATION and FCP/PRJ(ACC) EDIT;2:Purchase Orders(1996-) BBFY and APPROPRIATION rebuild","")
|
|---|
| 13 | ;G:X["^"!(X="") EXIT
|
|---|
| 14 | S PRCOPT=1
|
|---|
| 15 | ;
|
|---|
| 16 | Q2 ;select auto/single
|
|---|
| 17 | G:PRCOPT=2 Q3
|
|---|
| 18 | D SC^PRC0A(.X,.Y,"Select "_$P("(2237,1358) REQUESTS","^",PRCOPT)_" Edit Option","OM^1:AUTO EDIT TRANSACTIONS in file 410;2:MANUAL SELECT TRANSACTION in file 410","")
|
|---|
| 19 | G:X["^"!(X="") EXIT
|
|---|
| 20 | S $P(PRCOPT,"^",2)=X
|
|---|
| 21 | Q3 D YN^PRC0A(.X,.Y,"Ready to run the selected option ","O","NO")
|
|---|
| 22 | G:X["^"!(X="")!(Y<1) Q1
|
|---|
| 23 | I +PRCOPT<2 D D EN^PRCX1P1:$P(PRCOPT,"^",2)=1,EN1^PRCX1P1:$P(PRCOPT,"^",2)=2 G Q1
|
|---|
| 24 | . S PRCDD=410
|
|---|
| 25 | . QUIT
|
|---|
| 26 | D:PRCOPT=2 GECS^PRCX1P1
|
|---|
| 27 | EXIT ;
|
|---|
| 28 | QUIT
|
|---|
| 29 | ;
|
|---|
