| 1 | FBAAAV ;AISC/GRR-FLAG VENDOR FOR ADDITION IN CENTRAL FEE ;10JUL86
|
|---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | UPDATE ;enter here to update FMS vendor file - called from fbaa fms update option
|
|---|
| 5 | N FBDA,FBSAY S FBSAY=1 ;flag, if 1 then write
|
|---|
| 6 | W !! S DIC(0)="AEQM",DIC="^FBAAV(",DIC("S")="N FBVC S FBVC=$P($G(^FBAA(161.25,+Y,0)),U,2,3),FBVC=$TR(FBVC,U) I FBVC'[""C""&(FBVC'[""N"")&('$D(^FBAA(161.25,""AF"",+Y)))" D ^DIC G EXIT:X="^"!(X=""),UPDATE:Y<0 S (FBDA,DA)=+Y
|
|---|
| 7 | D EN1^FBAAVD
|
|---|
| 8 | W ! S DIR(0)="Y",DIR("A")="Is this vendor information correct",DIR("B")="No" D ^DIR K DIR G EXIT:$D(DIRUT),VER:Y
|
|---|
| 9 | I '$D(^XUSEC("FBAA ESTABLISH VENDOR",DUZ)) W !!,*7,"You must contact a vendorizing clerk or supervisor to update this record!" G EXIT
|
|---|
| 10 | S FBHDA=DA D EDITV^FBAAVD S DA=FBHDA
|
|---|
| 11 | S FBVC=$P($G(^FBAA(161.25,DA,0)),U,2,3),FBVC=$TR(FBVC,U) I FBVC["C" W !!?5,"Vendor flagged for updating!" G UPDATE
|
|---|
| 12 | VER W ! S DIR(0)="Y",DIR("A")="Are you sure you want to update this Vendor in the FMS and Central Fee vendor files",DIR("B")="NO",DIR("??")="^D HELP^FBAAAV"
|
|---|
| 13 | D ^DIR K DIR G:$D(DIRUT) EXIT I 'Y W !!,*7,"Will NOT be Updated" G UPDATE
|
|---|
| 14 | D SET(FBDA) G UPDATE
|
|---|
| 15 | ;
|
|---|
| 16 | SET(DA,FBSAY) ;INPUT: DA = ien of record to be updated
|
|---|
| 17 | ; FBSAY = flag to write: 1 for on (optional)
|
|---|
| 18 | Q:'+$G(DA) N DIE,DR,FBIEN1,FBLOCK,FBT S FBT="C",FBIEN1=DA D SETGL^FBAAVD W:$G(FBSAY) !!,*7,"Vendor flagged for updating!"
|
|---|
| 19 | S DIE="^FBAAV(",DA=FBIEN1,DR="30.01///@;9///@;13///@" D LOCK^FBUCUTL(DIE,DA,1) I FBLOCK D ^DIE L -^FBAAV(DA)
|
|---|
| 20 | ;K DA,DIE,DR,FBLOCK
|
|---|
| 21 | ;G UPDATE:FBSAY
|
|---|
| 22 | EXIT K FBT,FBTOV,X,FBEXDT,FBEXNDT,DIC,DIE,Y,DA,DIRUT,FBHDA,FBIEN1,FBTOV,FEEO,Z,Z1,ZZ,FBAAPN,FBDEL,FBID,FBLIEN,FBPARCD,FBTV,FBVIEN,FBV1,FBVC,FBZ,FBX,FBCNUM Q
|
|---|
| 23 | UPDT(FBDA) ;entry point from fbaavd2 - non-interactive
|
|---|
| 24 | ;INPUT: FBDA = ien of vendor in vendor file
|
|---|
| 25 | ;OUTPUT: set in vendor correction file as update (link to itself) if vendor does not exist, or another vendor is not already linked to it.
|
|---|
| 26 | Q:'+$G(FBDA) N FBSAY S FBSAY=0
|
|---|
| 27 | ;S DIC(0)="M",DIC="^FBAAV(" D ^DIC G EXIT:Y'>0 S FBDA=+Y
|
|---|
| 28 | I '$D(^FBAA(161.25,FBDA,0))&('$D(^FBAA(161.25,"AF",FBDA))) D SET(FBDA)
|
|---|
| 29 | Q
|
|---|
| 30 | HELP ;help for update of fms vendor file
|
|---|
| 31 | W !?10,"This option should only be used to update the FMS and Central"
|
|---|
| 32 | W !?10,"Fee vendor files in Austin with the appropriate information."
|
|---|
| 33 | W !?10,"(NOTE: The vendor may not exist in the FMS vendor file,"
|
|---|
| 34 | W !?10," or may exist, but the information in the FMS vendor"
|
|---|
| 35 | W !?10," file does not reflect accurate information.)"
|
|---|
| 36 | W !
|
|---|
| 37 | W !?10,"Use of this option should update the FMS system to reflect"
|
|---|
| 38 | W !?10,"what is currently in the DHCP system. Information at all"
|
|---|
| 39 | W !?10,"other VA Medical Centers using this vendor will also be updated."
|
|---|
