DGBTDLT1 ;UNK/BLD - REPRINT BENEFICIARY TRAVEL DENIAL LETTER ; 1/8/24 12:37pm
Source file <DGBTDLT1.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
REPRINT | ;
|
|
LTR | ;
|
|
PATIENT | ; patient lookup, quit if patient doesn't exist
|
|
LIST2 | ; find all previous claims, get total count in DGBTC and put those claims in utility file
|
|
LIST3 | ; list claims (in external format) from temporary global, 5 at a time. Loop thru list until selection made.
|
|
CHOZ | ; select from the displayed past claims dates for claim to be edited.
|
|
DIVISN(DGBTINST) | ; if MED CTR DIV file set up (first record) and record does not exist, write warning, kill variables, and exit
|
|
INSTIT(DGBTINST) | ; check for pointer to institution file and for address information on institution
|
|
HEADER(DGBTINST) | ;this will print all of the standard information at the top of the letter. IT WILL NOT PRINT LOGO'S ETC
|
|
DEVICE(DGBTRPT) | ||
QUIT | ;will kill all local variables used by this routine
|
Name | Field # of Occurrence |
---|---|
DD^%DT | LIST2+7 |
^%ZIS | DEVICE+2 |
HOME^%ZIS | DEVICE+16 |
^%ZISC | LTR+41 |
^%ZTLOAD | DEVICE+14 |
DEVICE^DGBTDLT | REPRINT+24 |
^DIC | REPRINT+13, PATIENT+3 |
$$GET1^DIQ | REPRINT+21, REPRINT+23, LTR+4, LTR+5, LTR+13, LTR+14, LTR+16, LTR+23, LTR+30, LTR+37 , DIVISN+1, INSTIT+10, INSTIT+11, INSTIT+12, INSTIT+13, INSTIT+14, INSTIT+15, INSTIT+16, INSTIT+18, HEADER+28 |
^DIR | CHOZ+6 |
^DIWP | LTR+18, LTR+21, LTR+24, LTR+32, LTR+35, LTR+38 |
^DIWW | LTR+26, LTR+40 |
6^VADPT | PATIENT+5 |
DEM^VADPT | HEADER+14 |
PID^VADPT | PATIENT+5 |
$$FMTE^XLFDT | HEADER+30 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^VA(200 - [#200] | GET1^DIQ |
^DGBT(392 - [#392] | GET1^DIQ |
^DGBT(392.6 - [#392.6] | GET1^DIQ |
^DGBT(392.8 - [#392.8] | GET1^DIQ |
^DIC(4 - [#4] | GET1^DIQ |
^DG(40.8 - [#40.8] | Classic Fileman Calls, GET1^DIQ |
^DIC(49 - [#49] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | REPRINT+9, REPRINT+17, DIVISN+3, INSTIT+2 |
^DG(43 - [#43] | REPRINT+11 |
^DGBT(392 - [#392] | PATIENT+6, LIST2+4, LIST2+6 |
^DIC(4 - [#4] | INSTIT+4, INSTIT+6, INSTIT+7 |
^DIC(49 - [#49] | INSTIT+17 |
^TMP("DGBT" | REPRINT+5!, QUIT+3!, QUIT+4! |
^TMP("DGBTARA" | QUIT+4! |
^UTILITY($J | REPRINT+5!, LTR+3! |
Name | Field # of Occurrence |
---|---|
^("GL" | REPRINT+11 |
^(0 | INSTIT+3 |
^(1 | INSTIT+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | DEVICE~, DEVICE+1* |
ADD1 | HEADER+4~, HEADER+8*, HEADER+23 |
ADD2 | HEADER+4~, HEADER+9*, HEADER+24 |
C | QUIT+3! |
CHOICE | CHOZ+1~, CHOZ+2*, CHOZ+8 |
CHZFLG | REPRINT+20, LIST3+4, LIST3+5, CHOZ+9*, QUIT+3! |
CITY | HEADER+4~, HEADER+10*, HEADER+25 |
CITYSTZIP | HEADER+25*, HEADER+26, QUIT+3! |
CNT | LIST2+1~ |
CNTR | LIST2+2*, LIST2+8*, LIST2+9, LIST3+1*, LIST3+4*, LIST3+5, LIST3+6, LIST3+8, CHOZ+7, CHOZ+10* , QUIT+6! |
DFN | REPRINT+19, PATIENT+3!, PATIENT+5*, PATIENT+6, LIST2+4, LIST2+6, QUIT+2!, QUIT+3!, QUIT+6! |
DGBTARY | QUIT+6! |
DGBTARY( | LIST2+9*, LIST3+4, LIST3+5, LIST3+6, LIST3+8, CHOZ+7, CHOZ+9 |
DGBTC | LIST2+1~, LIST2+3*, LIST2+6*, LIST2+7, LIST2+9, LIST3+2*, LIST3+5*, LIST3+6, QUIT+2! |
DGBTCDT | LTR+2~, LIST2+1~, LIST2+2* |
DGBTCDT(1 | LTR+12* |
DGBTCDT(2 | LTR+13* |
DGBTCDT(3 | LTR+14* |
DGBTCH | LIST2+2*, LIST3+1*, QUIT+2!, QUIT+6! |
DGBTCH1 | LIST2+2*, CHOZ+1~, CHOZ+3*, CHOZ+8, QUIT+6! |
DGBTCHK | QUIT+4! |
DGBTCMTY | REPRINT+23*, LTR+15, LTR+29, QUIT+2! |
DGBTDIV | REPRINT+14*, REPRINT+17*, DIVISN+1*, DIVISN+2, DIVISN+3*, QUIT+2! |
DGBTDIVI | REPRINT+14*, REPRINT+17*, DIVISN+1*, DIVISN+2, DIVISN+3*, INSTIT+2, INSTIT+16, QUIT+2! |
DGBTDIVN | INSTIT+2*, INSTIT+3, INSTIT+4, INSTIT+6, INSTIT+7, INSTIT+10, INSTIT+11, INSTIT+12, INSTIT+13, INSTIT+14 , INSTIT+15, QUIT+2! |
DGBTDLTR | REPRINT+21*, REPRINT+22, QUIT+2! |
DGBTDNLTR | QUIT+5! |
DGBTDR | LTR+2~, LTR+4*, LTR+5, QUIT+5! |
DGBTDTE | LTR+12, LIST3+8*, QUIT+6! |
DGBTDTFILED | HEADER+4~, HEADER+28*, HEADER+29*, HEADER+30*, HEADER+31 |
DGBTDTI | REPRINT+21, REPRINT+23, LTR+4, LTR+13, LTR+14, LIST3+8*, CHOZ+9*, DIVISN+1, HEADER+28, QUIT+6! |
DGBTFDA | QUIT+5! |
DGBTINST | LTR+6, LTR+8, DIVISN~, DIVISN+2, DIVISN+3, INSTIT~, HEADER~, QUIT+2! |
DGBTINST("FAC | NUMBER" , INSTIT+16*, HEADER+32 |
DGBTINST("INS | T ADDRESS 1" , INSTIT+11*, HEADER+8, T ADDRESS 2" , INSTIT+12*, HEADER+9, T CITY" , INSTIT+13*, HEADER+10, T NAME" , INSTIT+10*, HEADER+7, T STATE" , INSTIT+14*, HEADER+11, T ZIP CODE" , INSTIT+15*, HEADER+12 |
DGBTINST("MAI | L CODE" , INSTIT+18*, HEADER+33 |
DGBTINST("ORG | NAME" , INSTIT+9*, HEADER+2, HEADER+6 |
DGBTISSUED | QUIT+5! |
DGBTMD | REPRINT+11*, REPRINT+15*, REPRINT+17, QUIT+2! |
DGBTNEW | PATIENT+6*, QUIT+2!, QUIT+6! |
DGBTQ | REPRINT+25, DEVICE+3*, DEVICE+6, DEVICE+9*, QUIT+6! |
DGBTQ1 | QUIT+6! |
DGBTRPT | DEVICE~, DEVICE+13 |
DGBTSCR | DEVICE+8*, QUIT+5! |
DGBTTOUT | PATIENT+2*, QUIT+2!, QUIT+6! |
DGTCH1 | QUIT+2! |
DIC | REPRINT+12*, REPRINT+13!, PATIENT+2*, PATIENT+3! |
DIC("A" | REPRINT+12*, PATIENT+2* |
DIC(0 | REPRINT+12*, PATIENT+2* |
DIR | LIST3+9!, CHOZ+6! |
DIR("?" | CHOZ+5* |
DIR("A" | CHOZ+3*, CHOZ+4* |
DIR(0 | CHOZ+3* |
DIWL | LTR+2~, LTR+10* |
DIWR | LTR+2~, LTR+11* |
DRIEN | QUIT+5! |
DT | HEADER+29 |
DTOUT | REPRINT+24, LIST3+4, LIST3+6, LIST3+7, CHOZ+6, QUIT+6! |
DUOUT | REPRINT+24, LIST3+4, LIST3+6, CHOZ+6, QUIT+6! |
>> I | LIST2+6*, CHOZ+3 |
INSTADD | INSTIT+1~, INSTIT+7* |
INSTNAME | HEADER+4~, HEADER+7*, HEADER+22 |
INSTNODE | INSTIT+1~, INSTIT+6* |
IO | DEVICE+17 |
IO("Q" | DEVICE+9 |
ION | DEVICE+11 |
IOST | LTR+41, DEVICE+8 |
J | QUIT+2! |
KETTERS2 | LTR+28! |
LETTERS1 | LTR+28!, QUIT+5! |
LETTERS1( | LTR+18, LTR+19, LTR+32, LTR+33 |
LETTERS2 | QUIT+5! |
LETTERS2( | LTR+24, LTR+25, LTR+38, LTR+39 |
LINENBR | LTR+17*, LTR+18*, LTR+19, LTR+24*, LTR+25, LTR+31*, LTR+32*, LTR+33, LTR+38*, LTR+39 , QUIT+5! |
LOC | HEADER+4~, HEADER+21*, HEADER+22*, HEADER+23*, HEADER+24*, HEADER+26*, HEADER+31*, HEADER+32, HEADER+33, HEADER+34 |
LOC2 | HEADER+4~, HEADER+20*, HEADER+35, HEADER+36, HEADER+37, HEADER+38 |
MAILCODE | INSTIT+1~, INSTIT+17*, INSTIT+18 |
NAME | LTR+2~, LTR+13* |
NBR | LTR+20*, LTR+21*, LTR+22, LTR+34*, LTR+35*, LTR+36, QUIT+5! |
ORG | HEADER+4~, HEADER+6*, HEADER+21 |
PATADD1 | HEADER+16*, HEADER+36, QUIT+5! |
PATADD2 | HEADER+16*, HEADER+37, QUIT+5! |
PATCITY | HEADER+17*, HEADER+38, QUIT+5! |
PATNAME | HEADER+18*, HEADER+35, QUIT+5! |
PATSEX | HEADER+15*, HEADER+35, QUIT+5! |
PATST | HEADER+17*, HEADER+38, QUIT+5! |
PATZIP | HEADER+17*, HEADER+38, QUIT+5! |
POP | DEVICE~, DEVICE+3 |
QUIT | REPRINT+6*, REPRINT+24*, LTR+9*, QUIT+3! |
REASON | QUIT+5! |
REASON( | LTR+21, LTR+22, LTR+35, LTR+36 |
STATE | HEADER+4~, HEADER+11*, HEADER+25 |
U | REPRINT+11, REPRINT+14, REPRINT+17, DIVISN+3 |
VA | QUIT+6! |
VACNTRY | QUIT+2!, QUIT+6! |
VADAT | QUIT+2! |
VADM | QUIT+2!, QUIT+5! |
VADM(1 | HEADER+18, HEADER+34 |
VADM(2 | HEADER+34 |
VADM(5 | HEADER+15 |
VAEL | PATIENT+1~ |
VAERR | QUIT+2! |
VAPA | QUIT+2!, QUIT+6! |
VAPA(1 | HEADER+16 |
VAPA(2 | HEADER+16 |
VAPA(4 | HEADER+17 |
VAPA(5 | HEADER+17 |
VAPA(6 | HEADER+17 |
>> X | REPRINT+9*, LTR+19*, LTR+22*, LTR+25*, LTR+33*, LTR+36*, LTR+39*, CHOZ+8 |
X1 | LIST2+1~, QUIT+4! |
Y | REPRINT+11, REPRINT+13, REPRINT+14, PATIENT+3, PATIENT+5, LIST2+7*, LIST2+9, LIST3+6, LIST3+7, CHOZ+3* , CHOZ+7, CHOZ+9, CHOZ+10, QUIT+2! |
>> Y1 | LIST2+4*, CHOZ+3*, CHOZ+6* |
YY | LIST2+1~, QUIT+4! |
Z | QUIT+2! |
ZIP | HEADER+4~, HEADER+12*, HEADER+25 |
ZTDESC | DEVICE~, DEVICE+13* |
ZTIO | DEVICE~, DEVICE+11* |
ZTRTN | DEVICE~, DEVICE+10* |
ZTSAVE | DEVICE~ |
ZTSAVE("*" | DEVICE+12* |
ZTSK | DEVICE~, DEVICE+15 |