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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RMPOLET1

Package: Prosthetics

Routine: RMPOLET1


Information

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

Source Information

Source file <RMPOLET1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 DD^%DT  ^DIC  $$EXTERNAL^DILFD  
Prosthetics 1 ($$SITE,UPDLTR)^RMPOLET0  

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: 3

Package Total Caller Graph
Prosthetics 3 RMPOLET2  RMPOLETA  RMPOLZB  

Entry Points

Name Comments DBIA/ICR reference
PRINT(ANS)
START ;
LINE ;
HEADER ;
DELETE ;deletes patient from the batch printing list
GLTR ;ask for patients letter to be deleted from printing
GPAT() ; select only patinet with specified letters pending
EXIT ;
QUEUE(ZTDESC,ZTRTN,ZTSAVE)

External References

Name Field # of Occurrence
DD^%DT LINE+7, LINE+9
^%ZIS PRINT+1
HOME^%ZIS PRINT+2
^%ZISC EXIT+2
^%ZTLOAD QUEUE+1
^DIC GPAT+4
$$EXTERNAL^DILFD START+5
$$SITE^RMPOLET0 DELETE+1
UPDLTR^RMPOLET0 LINE+13, GLTR+6

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !?20
  • Prompt: "Enter <RETURN> to continue"
  • Variable: ANSW
  • Timeout: DTIME
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !,$E($P(REC,U),1,27),?28,$P(REC,U,2),?41,$E(RMPOITEM,1,12)
  • Line Location: LINE+6
Function Call: WRITE
  • Prompt: ?54,Y
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: ?68,Y
  • Line Location: LINE+11
Function Call: READ
  • Variable: ANSW
  • Timeout: DTIME
  • Line Location: LINE+15
Function Call: WRITE
  • Prompt: !!?20,"Enter <RETURN> to continue or '^' to quit"
  • Line Location: LINE+15
Function Call: WRITE
  • Prompt: @IOF,!,$E(SP,1,(80-$L(TITLE)/2))_TITLE,!!,"Name",?28,"SSN",?41,"Primary Item",?54,"Activation",?68,"Expiry Date",!,?54,"Date",!,LINE
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"You may delete after listing and before printing."
  • Line Location: DELETE+5
Function Call: WRITE
  • Prompt: !!,"DONE !!"
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !!,?5,"Report Cancelled!",!
  • Line Location: QUEUE+2
Function Call: WRITE
  • Prompt: !!,?5,"Print queued!",!
  • Line Location: QUEUE+3
Routine Call
  • DIC
  • Line Location:
    • GPAT+4
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+1
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPR(665 - [#665] Classic Fileman Calls
669.965 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RMPR(665 - [#665] GLTR+4
^RMPR(665.2 - [#665.2] LINE+3
^TMP("RMPO" DELETE+4, EXIT+1
^TMP($J START+8, START+10, START+11, LINE+3, LINE+4

Label References

Name Line Occurrences
$$GPAT GLTR+5
$$QUEUE PRINT+2
EXIT DELETE+5, GLTR+7
HEADER START+9, LINE+15
LINE START+10, START+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS PRINT+1*
ANS PRINT~, START+8, START+11, START+12
ANSW START+1~, START+7*, START+10, START+11, START+13*, LINE+15*
DA GLTR+1~, GLTR+5*, GLTR+6
DEL EXIT+4!
DIC GPAT+2*, GPAT+4!, EXIT+4!
DIC("A" GPAT+3*
DIC("S" GPAT+1*
DIC(0 GPAT+2*
DTIME START+13, LINE+15
>> HEAD( START+5*, HEADER+3
IO("Q" PRINT+2
IO(0 START+7
IOF HEADER+4
IOSL LINE+15
IOST START+13, LINE+15
LINE START+1~, START+3*, HEADER+4
>> LTR LINE+3*, LINE+13
>> LTRX("A" START+5
NAME START+1~
>> POP PRINT+1
REC LINE+1~, LINE+4*, LINE+5, LINE+6, LINE+7, LINE+8
RMPO EXIT+4!
>> RMPODFN START+10*, START+11*, LINE+3, LINE+4, LINE+13, GLTR+4, GPAT+5*, GPAT+6
>> RMPOITEM LINE+5*, LINE+6
>> RMPOLCD START+5*, START+8*, START+10, START+11*, LINE+3, HEADER+3
>> RMPOLTR LINE+3*, GLTR+3*, GLTR+4*, GPAT+1
SP START+1~, START+3*, HEADER+4
STA GLTR+1~
TITLE HEADER+1~, HEADER+3*, HEADER+4
U LINE+3, LINE+5, LINE+6, LINE+7, LINE+8, GPAT+5
Y LINE+7*, LINE+8*, LINE+9, LINE+10*, LINE+11, GLTR+1~, GPAT+4, GPAT+5
ZTDESC QUEUE~
ZTRTN QUEUE~
ZTSAVE PRINT+2, PRINT+3!, QUEUE~
ZTSAVE("ANS" PRINT+3*
ZTSAVE("LTRX(" PRINT+3*
ZTSAVE("RMPOXITE" PRINT+3*
ZTSAVE("^TMP($J," PRINT+3*
>> ZTSK QUEUE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All