source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCX1P.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
RevLine 
[613]1PRCX1P ;WISC/PLT-IFCAP ROTUINE TO FIX COPY REQUESTS & P.O ; 10/17/95 3:26 PM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;QUIT ; invalid entry
5 ;
6EN ;start FIXing
7 N PRCIVER,PRCRI,PRCFIXV,PRCOPT,PRC5INST,PRCQ21,PRCDUZ
8Q1 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 ;
16Q2 ;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
21Q3 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
27EXIT ;
28 QUIT
29 ;
Note: See TracBrowser for help on using the repository browser.