source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBAACLU.m@ 1800

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

initial load of WorldVistAEHR

File size: 806 bytes
RevLine 
[613]1FBAACLU ;AISC/DMK-CLERK WHO ENTERED AUTHORIZATION ;01JAN89
2 ;;3.5;FEE BASIS;;JAN 30, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 I '$D(^XUSEC("FBAASUPERVISOR",DUZ)) W !!,*7,"This option is restricted to holders of the 'FBAASUPERVISOR' security key.",! G END
5ASKVET S DIC="^FBAAA(",DIC(0)="AEQM" D ^DIC G END:X="^"!(X=""),ASKVET:Y<0 S DA=+Y
6 S:'$D(^FBAAA(DA,1,0)) ^(0)="^161.01D^^"
7 W ! S DIC="^FBAAA("_DA_",1,",DIC(0)="AEQM" D ^DIC G ASKVET:X="^"!(X="")!(Y<0) S FBAUTH=+Y
8 S FBDUZ=$S('$D(^FBAAA(DA,1,FBAUTH,0)):"UNKNOWN",'$D(^FBAAA(DA,1,FBAUTH,100)):"UNKNOWN",1:$P(^FBAAA(DA,1,FBAUTH,100),"^")),FBUSER=$S($D(^VA(200,FBDUZ,0)):$P(^(0),"^",1),1:"UNKNOWN")
9 W !!,"The last user to enter/edit this Authorization was "_FBUSER_".",! G ASKVET
10END K DA,DIC,FBAUTH,FBDUZ,FBUSER,X,Y Q
Note: See TracBrowser for help on using the repository browser.