RMPOLZ ;EDS/PAK - HOME OXYGEN LETTERS ;7/24/98
Source file <RMPOLZ.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 |
Package | Total | Caller Graph |
---|---|---|
Prosthetics | 3 | RMPO AUTOGENERATE LETTER RMPO LIST/PRINT MANAGER RMPOLY |
Kernel | 1 | ^DIC(19 |
Name | Comments | DBIA/ICR reference |
---|---|---|
FORGD | ; Foreground processing of list
|
|
BCKGD | ; Background processing of list
|
|
EXIT | ;
|
|
GNLST | ; generate new or recreate original list
; Input: None ; Output: ; ^TMP($J,RMPOXITE,"RMPOLST",RMPOLCD,RMPONAM)=RMPOLTR^RMPODFN^RMPO |
|
NEWLST | ; generate NEW patient letter list
|
|
ORGLST | ; Generate work file using ORIGINAL patient letter list
|
|
FNDTRX | ; find letter TRX & hold in local array
; output: ^TMP($J,DFN,H.O. Letter Code,Prosthetics Letter,Transaction Printed Date) |
|
INCLUDE(RMPODFN,RMPOLCD,LTRX,RMDPRT,RMFPRT,RMPORX,RMDACT) | ;
|
|
CHECKA | ; check if patient needs all types of letter.
|
|
CHECK1 | ; check if patient needs a letter (only one type of letter).
|
|
PRTCHK |
Name | Field # of Occurrence |
---|---|
FILE^DICN | CHECKA+14, CHECK1+14 |
EN^RMPOLY | FORGD+17 |
$$LOCK^RMPOLZA | FORGD+7, BCKGD+5 |
$$SITE^RMPOLZA | FORGD+5, BCKGD+4 |
EXTRCT^RMPOLZA | ORGLST+15, CHECKA+15, CHECK1+15 |
^RMPOLZB | BCKGD+8 |
$$RXAC^RMPOLZC | NEWLST+17 |
LST^RMPOLZC | FORGD+9, BCKGD+7 |
LTRCR^RMPOLZC | GNLST+4 |
PURGE^RMPOLZC | FORGD+10 |
DEM^VADPT | NEWLST+12 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | ORGLST+13, ORGLST+14, CHECKA+9, CHECKA+10, CHECK1+10 |
^RMPR(665 - [#665] | NEWLST+8, NEWLST+9, NEWLST+10, NEWLST+14, NEWLST+19, ORGLST+5, ORGLST+9, INCLUDE+4, INCLUDE+5, CHECK1+4 , CHECK1+5 |
^RMPR(665.4 - [#665.4] | FNDTRX+2, FNDTRX+3, FNDTRX+4, FNDTRX+6 |
^RMPR(669.9 - [#669.9] | BCKGD+3, NEWLST+3!, NEWLST+4!, NEWLST+5*, NEWLST+6*, NEWLST+7*, ORGLST+2, ORGLST+4, ORGLST+12, CHECKA+4 , CHECKA+5, CHECKA+12, CHECK1+4, CHECK1+5, CHECK1+12 |
^TMP("RMPO" | FORGD+24 |
^TMP("VALM VIDEO" | FORGD+9! |
^TMP($J | FORGD+2!, FORGD+20*, FORGD+23, BCKGD+8, BCKGD+9!, EXIT+1!, ORGLST+15*, FNDTRX+6*, CHECKA+3, CHECKA+15* , CHECK1+3, CHECK1+15* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | EXIT+2! |
%ZIS | EXIT+2! |
ADT | NEWLST+1~, NEWLST+8*, NEWLST+9, ORGLST+5* |
ANS | EXIT+2! |
ANSW | EXIT+2! |
DA | CHECKA+14!, CHECK1+14! |
DA(1 | CHECKA+13*, CHECK1+13* |
DD | CHECKA+13!, CHECK1+13! |
DFN | EXIT+2!, NEWLST+12* |
DIC | EXIT+2!, CHECKA+13*, CHECKA+14!, CHECK1+13*, CHECK1+14! |
DIC(0 | CHECKA+14*, CHECK1+14* |
DIROUT | EXIT+1! |
DIRUT | EXIT+1! |
>> DLAYGO | CHECKA+14*, CHECK1+14* |
DO | CHECKA+13!, CHECK1+13! |
DT | INCLUDE+10 |
DTOUT | EXIT+1! |
DUOUT | EXIT+1! |
IADT | NEWLST+1~, NEWLST+14*, ORGLST+5*, ORGLST+6 |
JOB | FORGD+1~, FORGD+3*, BCKGD+1~, BCKGD+2* |
LST | FORGD+1~, FORGD+9, FORGD+10, GNLST+7, GNLST+8, GNLST+9, NEWLST+2, NEWLST+21, NEWLST+22, CHECK1+1* |
LSTN | FORGD+13~ |
LTRIEN | ORGLST+1~, ORGLST+12* |
LTRX | FORGD+1~, BCKGD+1~, EXIT+1!, ORGLST+11, INCLUDE~, CHECKA+7, CHECK1+7 |
LTRX("A" | CHECKA+2, CHECK1+2 |
LTRX("B" | FNDTRX+4, FNDTRX+5 |
LTRX("C" | ORGLST+8 |
LTRX("D" | INCLUDE+9 |
POP | EXIT+2! |
QT | FORGD+13~, FORGD+14*, FORGD+18*, FORGD+19, FORGD+23* |
RECA | NEWLST+1~, NEWLST+14*, ORGLST+5*, PRTCHK+1, PRTCHK+2, PRTCHK+5 |
RECB | NEWLST+1~, NEWLST+19*, NEWLST+20, INCLUDE+1~, INCLUDE+5*, INCLUDE+6, INCLUDE+8 |
>> RI | ORGLST+2*, ORGLST+4, ORGLST+7 |
>> RL | FORGD+10, GNLST+7, GNLST+8, GNLST+9 |
>> RMCOD | CHECKA+11*, CHECKA+12, CHECKA+13, CHECK1+11*, CHECK1+12, CHECK1+13 |
RMDACT | NEWLST+20*, ORGLST+11, INCLUDE~, INCLUDE+8*, INCLUDE+11, CHECKA+7, CHECKA+9, CHECK1+4, CHECK1+5, CHECK1+7 , CHECK1+9 |
RMDEXP | NEWLST+20*, INCLUDE+1~, INCLUDE+6*, INCLUDE+7, INCLUDE+9, INCLUDE+10 |
>> RMDPIEC | CHECKA+8, CHECK1+8, PRTCHK*, PRTCHK+3*, PRTCHK+5 |
RMDPRT | ORGLST+11, INCLUDE~, INCLUDE+11, CHECKA+7, CHECK1+7, PRTCHK*, PRTCHK+5* |
>> RMDTE | CHECKA+2*, CHECKA+3*, CHECKA+9, CHECK1+1*, CHECK1+3*, CHECK1+9 |
>> RMFPIEC | CHECKA+8, CHECK1+8, PRTCHK*, PRTCHK+4*, PRTCHK+5 |
RMFPRT | ORGLST+11, INCLUDE~, INCLUDE+11, CHECKA+7, CHECK1+7, PRTCHK*, PRTCHK+5* |
>> RMPO | ORGLST+2*, ORGLST+4, ORGLST+15, CHECKA+14*, CHECKA+15, CHECK1+14*, CHECK1+15 |
>> RMPO("STA" | FNDTRX+3 |
RMPODFN | NEWLST+9*, NEWLST+10, NEWLST+12, NEWLST+14, NEWLST+17, NEWLST+19, ORGLST+4*, ORGLST+5, ORGLST+9, ORGLST+11 , ORGLST+13, ORGLST+14, ORGLST+15, FNDTRX+2, FNDTRX+6, INCLUDE~, INCLUDE+4, INCLUDE+5, CHECKA+3, CHECKA+4 , CHECKA+5, CHECKA+7, CHECKA+9, CHECKA+10, CHECKA+12, CHECKA+14, CHECKA+15, CHECK1+3, CHECK1+4, CHECK1+5 , CHECK1+7, CHECK1+10, CHECK1+12, CHECK1+14, CHECK1+15 |
RMPOLCD | FORGD+15*, FORGD+18, BCKGD+7*, BCKGD+8*, ORGLST+7*, ORGLST+8, ORGLST+11, ORGLST+15, FNDTRX+5*, FNDTRX+6 , INCLUDE~, INCLUDE+9, CHECKA+1*, CHECKA+2, CHECKA+3, CHECKA+4, CHECKA+5, CHECKA+7, CHECKA+11, CHECKA+15 , CHECK1+2, CHECK1+3, CHECK1+4, CHECK1+5, CHECK1+7, CHECK1+11, CHECK1+15, PRTCHK+1, PRTCHK+2, PRTCHK+3 , PRTCHK+4 |
>> RMPOLTR | ORGLST+8*, ORGLST+12, ORGLST+15, FNDTRX+4*, FNDTRX+5, FNDTRX+6, CHECKA+2*, CHECKA+3, CHECKA+15, CHECK1+1* , CHECK1+2*, CHECK1+3, CHECK1+15 |
>> RMPONAM | ORGLST+14*, ORGLST+15, CHECKA+10*, CHECKA+15, CHECK1+10*, CHECK1+15 |
RMPORX | NEWLST+17*, NEWLST+18, NEWLST+19, ORGLST+11, INCLUDE~, INCLUDE+3*, INCLUDE+4*, INCLUDE+5, CHECKA+7, CHECK1+7 |
RMPOX | INCLUDE+1~, INCLUDE+2*, INCLUDE+4, INCLUDE+9* |
>> RMPOXITE | FORGD+20, FORGD+23, FORGD+24, BCKGD+3*, BCKGD+4, BCKGD+8, BCKGD+9, NEWLST+3, NEWLST+4, NEWLST+5 , NEWLST+6, NEWLST+7, NEWLST+10, ORGLST+2, ORGLST+4, ORGLST+9, ORGLST+12, ORGLST+15, CHECKA+4, CHECKA+5 , CHECKA+12, CHECKA+13, CHECKA+15, CHECK1+4, CHECK1+5, CHECK1+12, CHECK1+13, CHECK1+15 |
RMPRINCL | INCLUDE+1~, INCLUDE+2*, INCLUDE+4, INCLUDE+12*, INCLUDE+14 |
SITE | FORGD+1~, BCKGD+1~ |
STA | ORGLST+1~, ORGLST+9* |
TRX | FNDTRX+2~*, FNDTRX+3, FNDTRX+4, FNDTRX+6 |
TRXS | FORGD+1~, BCKGD+1~, EXIT+1! |
U | NEWLST+10, NEWLST+14, NEWLST+20, ORGLST+5, ORGLST+9, ORGLST+14, FNDTRX+3, FNDTRX+4, FNDTRX+6, INCLUDE+6 , INCLUDE+8, CHECKA+10, CHECK1+4, CHECK1+5, CHECK1+10, PRTCHK+1, PRTCHK+2, PRTCHK+5 |
VADM | EXIT+2!, NEWLST+12! |
VADM(6 | NEWLST+12 |
VAPA | EXIT+2! |
X | EXIT+2!, CHECKA+14*!, CHECK1+14*! |
X1 | EXIT+2! |
X2 | EXIT+2! |
Y | EXIT+2! |
ZTSAVE | EXIT+2! |