source:
WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBAALB.m@
1638
| Last change on this file since 1638 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 791 bytes | |
| Line | |
|---|---|
| 1 | FBAALB ;AISC/GRR-LIST PAYMENT RECORDS FOR A BATCH ;01JAN86 |
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995 |
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified. |
| 4 | BT K FBAANQ W !! S DIC="^FBAA(161.7,",DIC(0)="AEQM" D ^DIC G Q:X="^"!(X=""),BT:Y<0 S B=+Y,Z=^FBAA(161.7,B,0),FBTYPE=$P(Z,"^",3) |
| 5 | S VAR="FBTYPE^B",VAL=FBTYPE_"^"_B,PGM="START^FBAALB" D ZIS^FBAAUTL G:FBPOP Q S:IO=IO(0) FBAANQ=1 |
| 6 | START S Q="",$P(Q,"=",80)="=",FBAAOUT=0 U IO W:$E(IOST,1,2)="C-" @IOF D ENM^FBAACCB:FBTYPE="B3",ENP^FBAACCB:FBTYPE="B5",ENT^FBAACCB0:FBTYPE="B2",PRTC^FBAACCB1:FBTYPE="B9" |
| 7 | G:$D(FBAANQ) BT |
| 8 | Q D CLOSE^FBAAUTL K DIC,A,B,J,K,L,M,D,T,Y,Z,FBAANQ,FBAAOUT,FBTYPE,FBAC,FBAP,FBFD,FBPDT,FBSC,FBTD,A1,A2,CPTDESC,FBAACPT,FBIN,N,PGM,Q,S,V,VAL,VAR,VID,XY,ZS,FBVP,FBPV,DK,FBINTOT,FBINOLD,HDUZ,I,X,FBDX,FBI,FBK,FBL,FBPROC Q |
Note:
See TracBrowser
for help on using the repository browser.
