| [613] | 1 | PRCFDE2 ;WISC/LKG-ENTER/EDIT CERTIFIED INVOICE ;7/19/95 14:32
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | VENDOR ;Edit Vendor information
|
|---|
| 5 | N PRCFERR,I
|
|---|
| 6 | I '$G(PRCF("VENDA")) S X="Incomplete Vendor Information on PO/1358. Unable to Edit Vendor Data.*" D MSG^PRCFQ Q
|
|---|
| 7 | S (PRCFA("VEND"),DA)=PRCF("VENDA")
|
|---|
| 8 | G:$G(PRCF("NUVEND")) A
|
|---|
| 9 | D HILO^PRCFQ,INFO^PRCFAC3
|
|---|
| 10 | K IOINHI,IOINLOW,IOINORM,PRCTMP D EDIT^PRCFAC31
|
|---|
| 11 | I 'Y!($D(DIRUT)) W !!,"No further action is being taken on this Vendor.",! G VENDX
|
|---|
| 12 | A L +(^PRC(440.3,DA),^PRC(440,DA)):5 E W !,"Vendor information being edited by another user",! G VENDX
|
|---|
| 13 | K ^PRC(440.3,DA) S %X="^PRC(440,DA,",%Y="^PRC(440.3,DA," D %XY^%RCR
|
|---|
| 14 | A1 S DIE=440,DR=$S($P($G(^PRC(411,PRC("SITE"),0)),U,20):$S($D(^XUSEC("PRCFA VENDOR EDIT",DUZ)):"[PRCF FMS VENEDIT2B]",1:"[PRCF FMS VENEDIT2]"),1:$S($D(^XUSEC("PRCFA VENDOR EDIT",DUZ)):"[PRCF FMS VENEDIT1B]",1:"[PRCF FMS VENEDIT1]"))
|
|---|
| 15 | D ^DIE K DIE,DR,ORDER
|
|---|
| 16 | G:'$D(DA) A2
|
|---|
| 17 | S X=$G(^PRC(440,DA,7)),PRCFERR=0
|
|---|
| 18 | F I=3,7,8,9 I $P(X,U,I)="" S PRCFERR=1 Q
|
|---|
| 19 | I $G(PRCFERR) D G:Y=1 A1
|
|---|
| 20 | . W !!,"Warning - Payment Information for this Vendor is Incomplete."
|
|---|
| 21 | . W !,"Payment information will have to be re-edited, if vendor is to be paid."
|
|---|
| 22 | . S DIR(0)="Y",DIR("B")="YES",DIR("A")="Do you wish to re-edit the payment information now"
|
|---|
| 23 | . D ^DIR K DIR
|
|---|
| 24 | I '$G(PRCFERR) W ! D VEDIT^PRCHE1A(PRCFA("VEND"),PRC("SITE"))
|
|---|
| 25 | A2 L -^PRC(440.3,PRCF("VENDA")),-^PRC(440,PRCF("VENDA"))
|
|---|
| 26 | VENDX K DA,PRCFA("VEND"),DIRUT,DIROUT,DTOUT,DUOUT,%X,%Y
|
|---|
| 27 | S X="Returning to Payments Module.*" D MSG^PRCFQ
|
|---|
| 28 | Q
|
|---|
| 29 | CLSD1358(PODA,MSG) ;Determine if 1358, status Transaction Complete or
|
|---|
| 30 | ;Canceled, Totally Liquidated
|
|---|
| 31 | N PRCFX,PRCFY,PRCFZ
|
|---|
| 32 | Q:PODA'?1.N 0 Q:'$D(^PRC(442,PODA,0)) 0
|
|---|
| 33 | S PRCFX=$O(^PRCD(442.5,"C",1358,"")) Q:PRCFX="" 0
|
|---|
| 34 | I $P(^PRC(442,PODA,0),U,2)'=PRCFX Q 0
|
|---|
| 35 | S PRCFX=$P($G(^PRC(442,PODA,7)),U),PRCFZ=$P($P($G(^PRC(442,PODA,0)),U,3)," ")
|
|---|
| 36 | I PRCFX]"",";40;105;"[(";"_$P($G(^PRCD(442.3,PRCFX,0)),U,3)_";") D Q 1
|
|---|
| 37 | . W:MSG !,"Warning - This 1358 has been closed."
|
|---|
| 38 | . W:MSG !,"In order for this invoice to be paid, the ",PRCFZ," FCP Official will have ",!," to reopen this 1358 and maybe adjust its obligation amount."
|
|---|
| 39 | S PRCFY=$G(^PRC(442,PODA,8))
|
|---|
| 40 | I $P(PRCFY,U)-$P(PRCFY,U,2)'>0 D Q 1
|
|---|
| 41 | . W:MSG !,"Warning - This 1358 has already been totally liquidated."
|
|---|
| 42 | . W:MSG !,"In order for this invoice to be paid, the ",PRCFZ," FCP official must first do",!," an Increase Adjustment."
|
|---|
| 43 | Q 0
|
|---|
