RMPOLET0 ;EDS/PAK - HOME OXYGEN LETTERS ;7/24/98
Source file <RMPOLET0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ;
|
|
SITE() | ;find the site if the site is not multidivisional
|
|
LST() | ;Check Letters List
|
|
LTRCR | ; build local array CROSS REFERENCE of H.O. letter Code to Letter
|
|
GENLST | ; generate patient letter list
|
|
GENOLST(BTYP) | ; Generate work file from current patient letter list
|
|
NACT() | ; check if new patient letter or inactivation letter is required
|
|
EXPR | ; check if prescription is pending expiry
|
|
EXTRCT(BTYP) | ||
FNDTRX | ||
PURGE | ; Purge current patient letter list
|
|
LOCK(TXT) | ||
UPDLTR(DA,VAL) | ||
EXIT |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^RMPR(665 - [#665] | Classic Fileman Calls |