DGBTDLT ;UNK/BLD - BENEFICIARY TRAVEL DENIAL LETTER TEMPLATES ; 1/8/24 12:36pm
Source file <DGBTDLT.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;entry point for denial letter templates.
|
|
MENU(DGIEN) | ;allow user to select which letter to edit
|
|
SETUP(DGIEN) | ;this will set up ^TMP global for editing
|
|
EDIT | ;this will invoke the screen editor
|
|
DGBTDR | ;will ask for the denial reason
|
|
LTR | ;
|
|
HEADER(DGBTINST) | ;this will print all of the standard information at the top of the letter. IT WILL NOT PRINT LOGO'S ETC
|
|
PATIENT | ; patient lookup, quit if patient doesn't exist
|
|
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
|
|
DEVICE(RPTNAM,ROUTINE) | ;common device call for DGBT reports
|
|
DEVICE1(DGBTRPT) | ;
|
|
CLRLTR(DENIED) | ;
|
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 |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
^VA(200 - [#200] | GET1^DIQ |
^DGBT(392 - [#392] | GET1^DIQ |
^DGBT(392.6 - [#392.6] | Classic Fileman Calls, GET1^DIQ |
^DGBT(392.8 - [#392.8] | Classic Fileman Calls, GET1^DIQ |
^DIC(4 - [#4] | GET1^DIQ |
^DG(40.8 - [#40.8] | GET1^DIQ |
^DIC(49 - [#49] | GET1^DIQ |