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

Package: Inpatient Medications

Routine: PSGPLRP


Information

PSGPLRP ;BIR/CML3-PICK LIST REPRINT DRIVER ;18 APR 95 / 4:20 PM

Source Information

Source file <PSGPLRP.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Inpatient Medications 5 $$ENDTC^PSGMI  ^PSGPLG  ^PSGPLR  (ENCV,ENKV)^PSGSETU  ENDEV^PSGTI  
VA FileMan 3 NOW^%DTC  ^DIC  YN^DICN  
Kernel 1 ^%ZISC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 2 PSJU LM PLRP  PSJU PLRP  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
RP1 ;
PAT ; select patient to start from
PW ; print which? pick list or update
HLP ;
START ;
DONE ;

External References

Name Field # of Occurrence
NOW^%DTC START+5
^%ZISC RP1+7
^DIC START+4, PAT+2
YN^DICN PW+1
$$ENDTC^PSGMI START+3, RP1+3
^PSGPLG START+5
^PSGPLR RP1+7
ENCV^PSGSETU PSGPLRP+3
ENKV^PSGSETU DONE+1
ENDEV^PSGTI RP1+5

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Select WARD GROUP or PICK LIST: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: START+1
Function Call: WRITE
  • Prompt: " ",Y,!?$L(PSGPLG)+21,$$ENDTC^PSGMI(PSGID)," thru ",$$ENDTC^PSGMI(PSGOD)
  • Line Location: START+3
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!?33,"*** WARNING ***",!,"THIS PICK LIST STARTED TO RUN ",$$ENDTC^PSGMI($P(^(0),"^",11)),", BUT HAS NOT RUN TO COMPLETION."
  • Line Location: RP1+3
Function Call: WRITE
  • Prompt: !,"No device selected. Option terminated."
  • Line Location: RP1+5
Function Call: WRITE
  • Prompt: !!," ...one moment, please..."
  • Line Location: RP1+7
Function Call: WRITE
  • Prompt: !?2,"Select a Ward Group for which a pick list has run for which you wish to",!,"reprint.",!?2,"You may also select a Pick List by number, which prints in the upper left",!,"corner of each pick list."
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !!,"This pick list has an update.",!,"Do you want to print the update"
  • Line Location: PW+1
Function Call: WRITE
  • Prompt: !!?2,"An update has been run for this pick list. Enter 'YES' to print the update",!,"only. Enter 'NO' to print the complete pick list."
  • Line Location: PW+1
Routine Call
  • DIC
  • Line Location:
    • START+4
    • PAT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(57.5 - [#57.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PAT+6
^PS(53.5 - [#53.5] START+2, RP1+1, RP1+3, PAT+3, PAT+4, PAT+5, PAT+7
^PS(57.5 - [#57.5] START+2, START+3, START+5

Label References

Name Line Occurrences
DONE START+1
HLP START+4
PAT RP1+2
PW RP1+1
RP1 START+3, START+5
START START+3, START+4, START+6

Naked Globals

Name Field # of Occurrence
^(0 START+3, RP1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % START+5, RP1+1*, RP1+3, PW+1*, PW+2
DIC START+4!*, PAT+2*!
DIC("A" PAT+2*
DIC("S" START+4*, PAT+1*
DIC(0 START+4*, PAT+2*
DTIME START+1
>> DUOUT RP1+2
IO("Q" RP1+6
PN DONE+1!, PAT+6*, PAT+7, PAT+8
>> POP RP1+5
>> PSGDT START+5*
>> PSGID START+2*, START+3
>> PSGOD START+3*
PSGPLG START+2*, START+3, START+5*, DONE+1!, RP1+1, RP1+3, PAT+2, PAT+3, PAT+4, PAT+5
, PAT+7
PSGPLGF START+5*, DONE+1!
PSGPLSTR DONE+1!, PAT+2*, PAT+8*
PSGPLUPF DONE+1!, RP1+1!, RP1+4, PW+2*, PAT+1
PSGPLWG START+2*, START+3, START+5*, DONE+1!
PSGPLWGP START+2*, START+5*, DONE+1!
>> PSGTIR RP1+4*
>> PSJPRN RP1+4
RB DONE+1!, PAT+4*, PAT+5*, PAT+7, PAT+8
TM DONE+1!, PAT+3*, PAT+7, PAT+8
U START+2, PAT+4, PAT+6
WDN DONE+1!, PAT+3*, PAT+7, PAT+8
>> X START+1*, START+2, START+4
>> XQUIT PSGPLRP+3
Y START+2*, START+3*, START+4, START+5, DONE+1!, PAT+2
Y(0 PAT+3, PAT+4, PAT+6
>> ZTDESC RP1+4*
ZTSAVE RP1+4!
ZTSAVE("PSGPLG" RP1+4*
ZTSAVE("PSGPLSTR" RP1+4*
ZTSAVE("PSGPLUPF" RP1+4*
ZTSAVE("PSGPLWG" RP1+4*
ZTSAVE("PSGPLWGP" RP1+4*
ZTSAVE("PSJPRN" RP1+4*
>> ZTSK RP1+6
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 |  Naked Globals |  Local Variables |  All