source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBAAVD3.m@ 767

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1FBAAVD3 ;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.
4RDV ; 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
40EXIT ;
41 K DA,DIE,DR,IFN,FBBT,FBSG
42 Q
Note: See TracBrowser for help on using the repository browser.