source: FOIAVistA/trunk/r/FEE_BASIS-FB/FBAAS79.m@ 1169

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

initial load of FOIAVistA 6/30/08 version

File size: 862 bytes
Line 
1FBAAS79 ;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")
51 D GETVET^FBAAUTL1 G Q:'DFN
6 D GETAUTH^FBAAUTL1 G 1:FTP']""
7 S FBK=+FTP
8EN1 ;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
122 S FBJ=DT,VAR="DFN^FBK^FBJ",VAL=DFN_"^"_FBJ_"^"_FBK,PGM="START^FBAAS79",IOP="Q" D ZIS^FBAAUTL G Q:FBPOP
13 ;
14START D SITEP^FBAAUTL S UL="",$P(UL,"-",120)="-",FBPG=0 U IO D GOT^FBAA79
15 ;
16Q D END^FBAA79,CLOSE^FBAAUTL Q
17OUTPUT ;
18 W !!?8,"This report produces a 132 character output.",! Q
Note: See TracBrowser for help on using the repository browser.