source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBAASL.m@ 792

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1FBAASL ;AISC/CMR-SUSPENSE LETTERS CONT. ;4/28/93 10:59
2 ;;3.5;FEE BASIS;;JAN 30, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;Allows selection of one/many/all Fee Programs and one/many/all
5 ;letters to print.
6 S DIR(0)="Y",DIR("A")="Print Denials only",DIR("B")="No" D ^DIR K DIR G END:$D(DIRUT) I Y S FBDEN=1
7 S DIR(0)="Y",DIR("A")="Do you want to print letters for ALL Fee Basis programs",DIR("B")="No" D ^DIR K DIR G END:$D(DIRUT) I Y S FBPRG=1 D
8 .F J="I","O","P","C" S FBPRG(J)=""
9SELP I 'FBPRG S DIR(0)="S^I:INPATIENT PAYMENT;O:OUTPATIENT PAYMENT;P:PHARMACY PAYMENT;C:CH NOTIFICATION/DENIAL",DIR("A")="Select PROGRAM to print letter for" D ^DIR K DIR G END:$D(DIRUT) S FBPRG(Y)=""
10 I 'FBPRG S DIR(0)="Y",DIR("A")="Do you want to choose another Program",DIR("B")="No" D ^DIR K DIR G END:$D(DIRUT),SELP:Y
11 S J="" F S J=$O(FBPRG(J)) Q:J="" S FBCTR=FBCTR+1
12SELLT K FBERR I FBCTR>1 S DIR(0)="Y",DIR("A")="Do you want to choose a different letter for each of the PROGRAMS you have selected",DIR("B")="No" D ^DIR K DIR G END:$D(DIRUT) S FBY=Y
13 S DIC="^FBAA(161.3,",DIC(0)="AEQ",K=0
14 D LTR:FBCTR=1!'FBY G END:$G(FBLOUT),SELLT:$G(FBERR) F J=1:1:FBCTR S K=$O(FBPRG(K)) D MULT:FBCTR>1&(FBY) G END:$G(FBLOUT),SELLT:$G(FBERR) S FBPRG(K)=+Y
15 Q
16END K FBPRG,FBCTR,J,K,FBLOUT,FBERR S FBAAOUT=1
17 Q
18MULT S DIC("A")="Select letter to print for "_$S(K="I":"Inpatient Payments",K="O":"Outpatient Payments",K="P":"Pharmacy Payments",K="C":"CH Notification/Denials")_": " D LTR Q:$G(FBLOUT)!$G(FBERR)
19 Q
20LTR D ^DIC K DIC("A") S:$D(DUOUT)!($D(DTOUT))!(X="") FBLOUT=1 S:Y<0 FBERR=1
21 Q
22INDIV ;select pt and/or vendor to print suspension letters for
23 D DT^DICRW S DFN="",U="^" W !! S DIC="^FBAAA(",DIC(0)="AEQMZ",DIC("A")="Select Patient (or RETURN to select all):" D ^DIC K DIC G:$D(DTOUT)!($D(DUOUT)) END1 I Y>0 S DFN=+Y
24 S DIC("A")="Select Vendor (or RETURN to select all):" D GETVEN^FBAAUTL1 K DIC,D0 G:$D(DTOUT)!($D(DUOUT)) END1
25 G ^FBAASLP
26END1 ;
27 K DFN,FBV,DUOUT,DTOUT
28 Q
Note: See TracBrowser for help on using the repository browser.