| 1 | FBAAVD3 ;WCIOFO/SAB-EDIT VENDOR FPDS DATA ;10/6/97
|
|---|
| 2 | ;;3.5;FEE BASIS;**9,10**;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | RDV ; ask vendor
|
|---|
| 5 | D GETVEN^FBAAUTL1 G:IFN="" EXIT S DA=IFN
|
|---|
| 6 | ; display vendor
|
|---|
| 7 | ;D EN1^FBAAVD
|
|---|
| 8 | ; check vendor
|
|---|
| 9 | I $D(^FBAA(161.25,"AF",DA)) D G RDV
|
|---|
| 10 | . ; linked vendor
|
|---|
| 11 | . W !,"Current vendor information is pending Austin processing."
|
|---|
| 12 | . W !,"Use the Display/Edit Vendor option if changes need to be made."
|
|---|
| 13 | I $D(^FBAA(161.25,DA,0)),$P(^(0),U,5)]"" D G RDV
|
|---|
| 14 | . ; awaiting reply from Austin
|
|---|
| 15 | . W !,"Current vendor information is pending Austin processing."
|
|---|
| 16 | . W !,"Use the Display/Edit Vendor option if changes need to be made."
|
|---|
| 17 | I $P($G(^FBAAV(DA,"ADEL")),U)="Y" D G RDV
|
|---|
| 18 | . W !,"Vendor has been deleted."
|
|---|
| 19 | . W !,"Use the Display/Edit Vendor option if changes need to be made."
|
|---|
| 20 | ; lock vendor
|
|---|
| 21 | L +^FBAAV(DA):5 I '$T D G RDV
|
|---|
| 22 | . W !,"Vendor is being accessed by another user."
|
|---|
| 23 | . W !,"Please try again later."
|
|---|
| 24 | ; save current FPDS data
|
|---|
| 25 | S FBBT("O")=$P($G(^FBAAV(DA,1)),U,10)
|
|---|
| 26 | D GETGRP^FBAAUTL6(DA)
|
|---|
| 27 | ; edit vendor FPDS data
|
|---|
| 28 | S DIE="^FBAAV(",DR="24;S FBBT=X;25;S:$$VGRP^FBAAUTL6(D0) Y=24"
|
|---|
| 29 | D ^DIE K DIE
|
|---|
| 30 | ; if data changed store in 161.25
|
|---|
| 31 | I $P($G(^FBAAV(DA,1)),U,10)'=FBBT("O")!$$GRPDIF^FBAAUTL6(DA) D
|
|---|
| 32 | . Q:$D(^FBAA(161.25,DA,0)) ; already queued, all actions inc. FPDS data
|
|---|
| 33 | . ; add to file 161.25 with action of F
|
|---|
| 34 | . S FBT="F",FBIEN1=DA,FEEO="" D SETGL^FBAAVD
|
|---|
| 35 | . K FBT,FBIEN1,FEEO
|
|---|
| 36 | ; unlock vendor
|
|---|
| 37 | L -^FBAAV(DA)
|
|---|
| 38 | ;
|
|---|
| 39 | G RDV
|
|---|
| 40 | EXIT ;
|
|---|
| 41 | K DA,DIE,DR,IFN,FBBT,FBSG
|
|---|
| 42 | Q
|
|---|
