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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RMPOLET2

Package: Prosthetics

Routine: RMPOLET2


Information

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

Source Information

Source file <RMPOLET2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Prosthetics 4 ($$LOCK,$$SITE,GENOLST,UPDLTR)^RMPOLET0  $$QUEUE^RMPOLET1  $$FILE^RMPOLETU  $$ROU^RMPRUTIL  
Kernel 2 (,HOME)^%ZIS  ^%ZISC  
VA FileMan 1 YN^DICN  

Entry Points

Name Comments DBIA/ICR reference
START ;
ASKHEAD ;
PRINT(HEAD) ; Print H.O. correspondence
BODY ; Set up array for filing and print letter
LINE(X)
HEADER ;
EXIT ;Clean up and quit

External References

Name Field # of Occurrence
^%ZIS START+16
HOME^%ZIS START+17
^%ZISC EXIT+3
YN^DICN ASKHEAD+2
$$LOCK^RMPOLET0 START+12
$$SITE^RMPOLET0 START+4
GENOLST^RMPOLET0 START+6
UPDLTR^RMPOLET0 BODY+41
$$QUEUE^RMPOLET1 START+17
$$FILE^RMPOLETU BODY+38
$$ROU^RMPRUTIL BODY+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no letters to print for this site."
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !!,"Use the 'List of Patients' option to create a list.",!!,$C(7)
  • Line Location: START+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !,"Would you like a letterhead printed on the letters"
  • Line Location: ASKHEAD+1
Function Call: WRITE
  • Prompt: !,"Answer 'Yes' for a header, 'No' for no header."
  • Line Location: ASKHEAD+4
Function Call: WRITE
  • Prompt: !,"<<< Error"_+X_":"_$P(X,";",2)_" Patient #"_RMPODFN_" ! >>>",*7
  • Line Location: BODY+39
Function Call: READ
  • Formatting: !!
  • Prompt: "Press <ENTER> to continue"
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: BODY+43
Function Call: WRITE
  • Prompt: !,?9,X
  • Line Location: LINE+1
Routine Call
  • %ZIS
  • Line Location:
    • START+16
Routine Call
  • %ZIS
  • Line Location:
    • START+17

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRINT+3, BODY+28
^RMPR(665.2 - [#665.2] BODY+34
^TMP("RMPO" EXIT+6
^TMP($J START+3!, START+8, PRINT+5, PRINT+6, PRINT+7, PRINT+8, LINE*, EXIT+9!

Label References

Name Line Occurrences
ASKHEAD START+14
BODY PRINT+8
EXIT START+8, START+22
HEADER PRINT+3
LINE BODY+4, BODY+6, BODY+7, BODY+8, BODY+9, BODY+10, BODY+13, BODY+15, BODY+16, BODY+17
BODY+20, BODY+23, BODY+24, BODY+29, BODY+30, BODY+31, BODY+34
PRINT START+22

Naked Globals

Name Field # of Occurrence
^( BODY+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+14, START+15, ASKHEAD+1*, ASKHEAD+3, ASKHEAD+4
%ZIS START+16*, EXIT+9!
>> ANS BODY+43*
DATE PRINT+1~, PRINT+3*, BODY+10
DT PRINT+3
DTIME BODY+43
FRSTNM BODY+1~, BODY+11*, BODY+12, BODY+23
HEAD START+1~, START+15*, START+20, START+22, PRINT~, PRINT+3, BODY+4
HEAD(1 BODY+7, HEADER+1*
HEAD(2 BODY+7, HEADER+2*
HEAD(3 BODY+8, HEADER+3*
HEAD(4 BODY+8, HEADER+4*
I BODY+1~, BODY+4*, BODY+6*, BODY+9*, BODY+34*
IO("Q" START+17
IO(0 PRINT+3
IOF START+15
IOST BODY+43
L EXIT+9!
LET EXIT+9!
LN BODY+1~, BODY+12*, BODY+13, BODY+14*, BODY+15, BODY+16*, BODY+25*, BODY+29
LNCT BODY+1~, BODY+3*, BODY+38, LINE*
NAME BODY+1~, BODY+11*
>> POP START+16
POS START+1~
POS(1 BODY+7, HEADER+1*
POS(2 BODY+7, HEADER+2*
POS(3 BODY+8, HEADER+3*
POS(4 BODY+8, HEADER+4*
REC START+1~, PRINT+8*, BODY+11, BODY+14, BODY+16, BODY+17, BODY+20, BODY+22, BODY+26, BODY+30
RMPO EXIT+9!
RMPO("ADD" HEADER+3
RMPO("CITY" HEADER+4
RMPO("NAME" BODY+12, HEADER+2
>> RMPODFN PRINT+6*, PRINT+7, PRINT+8, BODY+38, BODY+39, BODY+41
>> RMPOLCD PRINT+5*, PRINT+6, PRINT+7
>> RMPOLTR PRINT+7*, BODY+34, BODY+38
>> RMPORX BODY+22*, BODY+24
>> RMPORXDT BODY+26*, BODY+27*, BODY+28*, BODY+29
>> RMPOXITE BODY+12
SP BODY+1~, BODY+3*, BODY+7, BODY+8, BODY+12, BODY+14, BODY+16, BODY+23, BODY+24, BODY+25
SURNM BODY+1~, BODY+11*, BODY+12, BODY+23, BODY+30
U BODY+11, BODY+14, BODY+16, BODY+17, BODY+20, BODY+22, BODY+26, BODY+30
X BODY+38*, BODY+39, LINE~, LINE+1
Y PRINT+3*, BODY+1~, BODY+28*, EXIT+9!
ZTDESC START+17, START+19*, EXIT+9!
ZTRTN START+17, START+20*, EXIT+9!
ZTSAVE START+17, START+18!, EXIT+9!
ZTSAVE("RMPO(" START+21*
ZTSAVE("RMPOSITE" START+21*
ZTSAVE("RMPOXITE" START+21*
ZTSAVE("^TMP($J," START+21*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All