Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPOLZ

Package: Prosthetics

Routine: RMPOLZ


Information

RMPOLZ ;EDS/PAK - HOME OXYGEN LETTERS ;7/24/98

Source Information

Source file <RMPOLZ.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Prosthetics 4 EN^RMPOLY  ($$LOCK,$$SITE,EXTRCT)^RMPOLZA  ^RMPOLZB  ($$RXAC,LST,LTRCR,PURGE)^RMPOLZC  
Registration 1 DEM^VADPT  
VA FileMan 1 FILE^DICN  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Prosthetics 1 RMPOLY  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Generating a new list..."
  • Line Location: NEWLST+1
Function Call: WRITE
  • Prompt: !,"Generating an original list..."
  • Line Location: ORGLST+1

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
$$INCLUDE ORGLST+11, CHECKA+7, CHECK1+7
CHECK1 NEWLST+22
CHECKA NEWLST+21
EXIT FORGD+24, BCKGD+10
FNDTRX NEWLST+15
GNLST FORGD+11, BCKGD+7
NEWLST GNLST+7
ORGLST GNLST+8, GNLST+9
PRTCHK ORGLST+10, CHECKA+6, CHECK1+6

Local Variables

Legend:

>> 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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All