source: FOIAVistA/trunk/r/FEE_BASIS-FB/FBAUTHP.m@ 1540

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

initial load of FOIAVistA 6/30/08 version

File size: 690 bytes
Line 
1FBAUTHP ;AISC/CMR - PRINT AUTH. BY AUTH # ;OCT 5, 1995
2 ;;3.5;FEE BASIS;;JAN 30, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 W !! S DIR(0)="FO^1:50^K:X'?.N1""-"".N X",DIR("A")="Enter Authorization Number",DIR("?")="Enter the Authorization Number that appears on the 7079",DIR("?",1)="Enter numerics followed by a dash followed by numerics."
5 D ^DIR K DIR I $D(DIRUT)!(Y']"") G END
6 S DFN=+$P(Y,"-"),FBPROG=+$P(Y,"-",2)
7 I 'DFN!('FBPROG) G ERR
8 I '$D(^FBAAA(DFN,1,FBPROG)) G ERR
9 S FBPROG="I FBI="_FBPROG,PI=""
10 D ^FBAADEM,END G FBAUTHP
11END K FBPROG,DFN,FBAUT,FBAAOUT,PI,POP,X,Y,Z,DTOUT,DUOUT,DIRUT
12 Q
13ERR W !,*7,"Invalid Authorization Number" D END G FBAUTHP
Note: See TracBrowser for help on using the repository browser.