| [613] | 1 | FBAAS79 ;AISC/GRR-PRINT SINGLE 7079 ;07OCT86
|
|---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | D:'$D(FBSITE(0)) SITEP^FBAAUTL S FBPROG=$S($P(FBSITE(1),"^",6)="":"I 1",1:"I $P(^(0),""^"",3)=2")
|
|---|
| 5 | 1 D GETVET^FBAAUTL1 G Q:'DFN
|
|---|
| 6 | D GETAUTH^FBAAUTL1 G 1:FTP']""
|
|---|
| 7 | S FBK=+FTP
|
|---|
| 8 | EN1 ;ENTRY POINT FROM AUTHORIZATION OPTION (FBAAAUT)
|
|---|
| 9 | Q:'$D(^FBAAA(DFN,1,FBK,0)) S FBZZ(0)=^(0),J=$P(FBZZ(0),"^",13)
|
|---|
| 10 | S J=$S(J=1:$P(FBZZ(0),"^"),J=2:$P(FBZZ(0),"^"),J=3:$S($D(^FBAAA(DFN,4)):$P(^(4),"^",2),1:$P(FBZZ(0),"^")),1:$P(FBZZ(0),"^")) K FBZZ
|
|---|
| 11 | D OUTPUT
|
|---|
| 12 | 2 S FBJ=DT,VAR="DFN^FBK^FBJ",VAL=DFN_"^"_FBJ_"^"_FBK,PGM="START^FBAAS79",IOP="Q" D ZIS^FBAAUTL G Q:FBPOP
|
|---|
| 13 | ;
|
|---|
| 14 | START D SITEP^FBAAUTL S UL="",$P(UL,"-",120)="-",FBPG=0 U IO D GOT^FBAA79
|
|---|
| 15 | ;
|
|---|
| 16 | Q D END^FBAA79,CLOSE^FBAAUTL Q
|
|---|
| 17 | OUTPUT ;
|
|---|
| 18 | W !!?8,"This report produces a 132 character output.",! Q
|
|---|
