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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPOLZB

Package: Prosthetics

Routine: RMPOLZB


Information

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

Source Information

Source file <RMPOLZB.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Prosthetics 5 $$QUEUE^RMPOLET1  INIT^RMPOLT  UPDLTR^RMPOLZA  $$FILE^RMPOLZU  $$ROU^RMPRUTIL  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
List Manager 3 FULL^VALM1  CLEAN^VALM10  RE^VALM4  
VA FileMan 1 ^DIR  

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 RMPOLZ  

Entry Points

Name Comments DBIA/ICR reference
START ; Print H.O. correspondence for selected letter type
ONE ;print a single patient
QUED
SINGLE
BODY ; Set up array for filing and print letter
LINE(X)
HDRL ; Define header lines
PHDR ; Print header
DEV() ; Get device. Cannot be home device
DAGAIN
EXIT ;Clean up and quit
; if interactive close printer
QUIT()
COMMON(PIKRTN) ;
PIKSOM ; ALLOW SELECTION FROM DISPLAYED ENTRIES

External References

Name Field # of Occurrence
^%ZIS DAGAIN
HOME^%ZIS RMPOLZB+19, ONE+5, DAGAIN+1
^%ZISC QUED+10, DAGAIN+1, EXIT+2
^%ZTLOAD ONE+5
^DIR PIKSOM+1
$$QUEUE^RMPOLET1 RMPOLZB+19
INIT^RMPOLT QUED+10
UPDLTR^RMPOLZA BODY+40
$$FILE^RMPOLZU BODY+37
$$ROU^RMPRUTIL BODY+11
FULL^VALM1 RMPOLZB+17, ONE+4, COMMON+1
CLEAN^VALM10 QUED+10
RE^VALM4 QUED+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Printing...."
  • Line Location: RMPOLZB+23
Function Call: WRITE
  • Prompt: !!,"Printing...."
  • Line Location: ONE+10
Function Call: WRITE
  • Prompt: !!!,"<<< Error"_+X_":"_$P(X,";",2)_" Patient #"_RMPODFN_" ! >>>",*7
  • Line Location: BODY+39
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BODY+48
Function Call: WRITE
  • Prompt: !,?9,X
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: "Cannot Select Home Device"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: "Cannot Select Home or Slave Device"
  • Line Location: DAGAIN+1
Routine Call
  • %ZIS
  • Line Location:
    • DAGAIN
Routine Call
  • %ZIS
  • Line Location:
    • RMPOLZB+19
    • ONE+5
    • DAGAIN+1
Routine Call
  • DIR
  • Line Location:
    • PIKSOM+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+2, QUED, BODY+27
^RMPR(665 - [#665] BODY+45*, BODY+46*, BODY+47*
^RMPR(665.2 - [#665.2] BODY+33
^TMP($J START+4, START+5, START+6, START+7, QUED+3, QUED+4, QUED+5, QUED+7*, QUED+8, SINGLE
, SINGLE+1, SINGLE+2, BODY+5, BODY+42!, BODY+43!, BODY+44!, LINE*

Label References

Name Line Occurrences
$$DEV RMPOLZB+17, ONE+4, COMMON+5
$$QUIT ONE+3, COMMON+3
@( COMMON+3
BODY START+7, SINGLE+3
DAGAIN DAGAIN+1
EXIT RMPOLZB+19, START+8, ONE+5, QUED+11
HDRL START+3, QUED
LINE BODY+6, BODY+9, BODY+12, BODY+14, BODY+15, BODY+16, BODY+19, BODY+22, BODY+23, BODY+28
, BODY+29, BODY+30, BODY+33, PHDR+1, PHDR+2, PHDR+3, PHDR+4
PHDR BODY+7
PIKSOM ONE+3
SINGLE QUED+8

Naked Globals

Name Field # of Occurrence
^( BODY+33
^("RMPOA" BODY+45*, BODY+46*, BODY+47*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DAGAIN*, EXIT+4!
>> CNT QUED+3*, QUED+6*, QUED+7
DATE START+1~, START+2*, QUED~*, BODY+9
DEV DEV+1~, DAGAIN*, DAGAIN+2*
DIR QUED+9!, PIKSOM+1!
DIR(0 PIKSOM+1*
>> DIROUT QUIT
DT START+2, QUED, BODY+45, BODY+46, BODY+47
>> DTOUT QUIT
>> DUOUT QUIT
FRSTNM BODY+1~, BODY+10*, BODY+11, BODY+22
HDR BODY+1~, BODY+5*, BODY+6, BODY+7
HEAD EXIT+4!
HEAD(1 HDRL+1*, PHDR+2
HEAD(2 HDRL+2*, PHDR+2
HEAD(3 HDRL+3*, PHDR+3
HEAD(4 HDRL+4*, PHDR+3
I BODY+1~, BODY+6*, BODY+33*, PHDR+1*, PHDR+4*
IO START+1, QUED+1, DAGAIN+1
IO("Q" RMPOLZB+19, ONE+5
IO(0 DAGAIN+1
IOF BODY+48
IOP DAGAIN!
IOST DAGAIN+1
>> JOB RMPOLZB+17, ONE+4, EXIT+2, COMMON+5
LFN QUED+2*, QUED+7, QUED+9!
LFNS ONE+4*, QUED+1, QUED+2, QUED+9!, COMMON+4*
LN BODY+1~, BODY+11*, BODY+12, BODY+13*, BODY+14, BODY+15*, BODY+24*, BODY+28
LNCT BODY+1~, BODY+2*, LINE*
NAME BODY+1~, BODY+10*
PIKRTN COMMON~, COMMON+3
POP DEV+1~, DAGAIN
POS RMPOLZB+15~
POS(1 HDRL+1*, PHDR+2
POS(2 HDRL+2*, PHDR+2
POS(3 HDRL+3*, PHDR+3
POS(4 HDRL+4*, PHDR+3
>> QUIT QUIT*
REC RMPOLZB+15~, START+7*, SINGLE+2*, BODY+10, BODY+13, BODY+15, BODY+16, BODY+19, BODY+21, BODY+25
, BODY+29
RMLET QUED+9!
>> RMPO("ADD" HDRL+3
>> RMPO("CITY" HDRL+4
>> RMPO("NAME" BODY+11, HDRL+2
>> RMPODFN START+6*, START+7, QUED+5*, QUED+7, SINGLE+1*, SINGLE+2, BODY+37, BODY+39, BODY+40, BODY+44
, BODY+45, BODY+46, BODY+47
>> RMPOLCD START+4, START+5, START+6, QUED+3, QUED+4, QUED+5, SINGLE, SINGLE+1, BODY+42, BODY+45
, BODY+46, BODY+47
>> RMPOLTR START+5*, QUED+4*, SINGLE*, BODY+5, BODY+33, BODY+37
>> RMPONAM START+4*, START+5, START+6, QUED+3*, QUED+4, QUED+5, QUED+7, QUED+8*, SINGLE, SINGLE+1
, BODY+42
>> RMPORX BODY+21*, BODY+23
>> RMPORXDT BODY+25*, BODY+26*, BODY+27*, BODY+28
>> RMPOXITE START+4, START+5, START+6, START+7, QUED+3, QUED+4, QUED+5, QUED+7, QUED+8, SINGLE
, SINGLE+1, SINGLE+2, BODY+5, BODY+11, BODY+37, BODY+42, BODY+43, BODY+44, LINE
RTN QUED+9!, COMMON+2*
SP BODY+1~, BODY+2*, BODY+11, BODY+13, BODY+15, BODY+22, BODY+23, BODY+24, PHDR+2, PHDR+3
SURNM BODY+1~, BODY+10*, BODY+11, BODY+22, BODY+29
U START+5, START+6, QUED+4, QUED+5, SINGLE, SINGLE+1, BODY+10, BODY+13, BODY+15, BODY+16
, BODY+19, BODY+21, BODY+25, BODY+29, BODY+45, BODY+46, BODY+47
>> VALMBCK ONE+3*, QUED+11*, COMMON+3*
>> VALMBG PIKSOM+1
>> VALMLST PIKSOM+1
X BODY+1~, BODY+37*, BODY+38, BODY+39, LINE~, LINE+1
Y START+2*, ONE+3, ONE+4, QUED*, BODY+1~, BODY+27*, EXIT+4!, COMMON+3, COMMON+4
ZI QUED+1*, QUED+2, QUED+9!
ZTDESC RMPOLZB+19, RMPOLZB+21*, ONE+7*, EXIT+4!
ZTRTN RMPOLZB+19, RMPOLZB+21*, ONE+7*, EXIT+4!
ZTSAVE RMPOLZB+19, RMPOLZB+20!, ONE+6!, EXIT+4!
ZTSAVE("IO" ONE+9*
ZTSAVE("JOB" RMPOLZB+22*, ONE+8*
ZTSAVE("LFNS" ONE+9*
ZTSAVE("RMPO(" RMPOLZB+22*, ONE+9*
ZTSAVE("RMPOLCD" RMPOLZB+22*, ONE+8*
ZTSAVE("RMPOSITE" RMPOLZB+22*, ONE+9*
ZTSAVE("RMPOXITE" RMPOLZB+22*, ONE+8*
ZTSAVE("^TMP($J,RMPOXITE," RMPOLZB+22*, ONE+9*
>> ZTSK ONE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All