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

Package: Inpatient Medications

Routine: PSGPLR


Information

PSGPLR ;BIR/CML3-PRINTS PICK LIST REPORT ; 6/15/07 1:12pm

Source Information

Source file <PSGPLR.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Inpatient Medications 5 ($$ENDDN,$$ENDTC,$$ENPDN)^PSGMI  TXT^PSGMUTL  ^PSGPLR0  ($$LOCK,UNLOCK)^PSGPLUTL  $$DRGSTOCK^PSJPADSI  
Pharmacy Data Management 1 $$HAZ^PSSUTIL  
Registration 1 INP^VADPT  
VA FileMan 1 NOW^%DTC  

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

Package Total Caller Graph
Inpatient Medications 4 PSGPL1  PSGPLR0  PSGPLRP  PSGPLUP  

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;
DONE ;
DD ;
EXDD ;
FCL ;
HEADER ;
PAGECK ;
WARDCHK ; if patient has discontinued orders from a different ward, print the ward and room/bed that the orders were discontinued from.
MINUTES(STPDT,LESS)

External References

Name Field # of Occurrence
NOW^%DTC PSGPLR+9
$$ENDDN^PSGMI DD+7, DD+16, EXDD+2
$$ENDTC^PSGMI PSGPLR+9, PSGPLR+12, DD+7, DD+16
$$ENPDN^PSGMI EXDD+9
TXT^PSGMUTL DD+32
^PSGPLR0 BEGIN+2
$$LOCK^PSGPLUTL BEGIN+1
UNLOCK^PSGPLUTL DONE+1
$$DRGSTOCK^PSJPADSI DD+24
$$HAZ^PSSUTIL DD+27, EXDD+3
INP^VADPT WARDCHK+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?25,"*** No orders to fill ***"
  • Line Location: PSGPLR+14
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: (IO'=IO(0)!(IOST'["C-"))&($Y)
  • Line Location: PSGPLR+14
Function Call: WRITE
  • Prompt: !!?25,"FILLED BY: ",FACL,!!?25,"CHECKED BY: ",FACL
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !!?25,"FILLED BY: ",FACL,!!?25,"CHECKED BY: ",FACL
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: DD+12
Function Call: WRITE
  • Prompt: !?6,DR,?48,ST,?51,"(DI "_DND_")",?66,"Returns: ____"
  • Line Location: DD+16
Function Call: WRITE
  • Prompt: !?35,"**** RENEWAL ****"
  • Line Location: DD+22
Function Call: WRITE
  • Prompt: ?57,"ATC"
  • Condition for execution: (ATC)&(NEED>0)
  • Line Location: DD+25
Function Call: WRITE
  • Prompt: ?61,$J(UD,4),?68,$J(NEED,4),?75,$S(DIS]"":$J(DIS,4),1:"____")
  • Line Location: DD+25
Function Call: WRITE
  • Prompt: !,"<<HAZ Handle>>"
  • Line Location: DD+27
Function Call: WRITE
  • Prompt: " <<HAZ Dispose>>"
  • Line Location: DD+28
Function Call: WRITE
  • Prompt: !?6,PDRG,?48,ST,?57,"OI"
  • Line Location: DD+30
Function Call: WRITE
  • Prompt: !,?65-$L(AT),AT
  • Condition for execution: AT]""
  • Line Location: DD+34
Function Call: WRITE
  • Prompt: !?7,"Start: ",SD,?37,"Stop: ",FD
  • Line Location: DD+34
Function Call: WRITE
  • Prompt: !?10
  • Line Location: DD+35
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $X+$L(X)>65
  • Line Location: DD+35
Function Call: WRITE
  • Prompt: X_" "
  • Line Location: DD+35
Function Call: WRITE
  • Prompt: !
  • Line Location: EXDD+1
Function Call: WRITE
  • Prompt: !?6,DR,?48,DIS,?66,"Returns: ____"
  • Line Location: EXDD+2
Function Call: WRITE
  • Prompt: !?6,"<<HAZ Handle>> <<HAZ Dispose>>"
  • Line Location: EXDD+6
Function Call: WRITE
  • Prompt: !?6,"<<HAZ Handle>>"
  • Line Location: EXDD+7
Function Call: WRITE
  • Prompt: !?6,"<<HAZ Dispose>>"
  • Line Location: EXDD+8
Function Call: WRITE
  • Prompt: !?6,PDRG,?48,DIS,?66,"Returns: ____"
  • Line Location: EXDD+9
Function Call: WRITE
  • Prompt: !?10,"Give: ",$S(DO]"":DO_" ",1:""),RTE," ",SCH
  • Line Location: EXDD+10
Function Call: WRITE
  • Prompt: !?7,"Start: ",SD,?37,"Stop: ",FD
  • Line Location: EXDD+10
Function Call: WRITE
  • Prompt: !!?25,"FILLED BY: ",FACL,!!?25,"CHECKED BY: "_FACL
  • Line Location: FCL+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGECK+1
Function Call: WRITE
  • Prompt: ?48,$E("(from "_$P(VAIN(4),"^",2)_" "_VAIN(5)_")",1,31)
  • Line Location: WARDCHK+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.5 - [#53.5] PSGPLR+10, PSGPLR+14, BEGIN+2, DD+15, EXDD+1
^PS(55 - [#55] DD+7, DD+16, EXDD+2, EXDD+9
^PS(57.5 - [#57.5] PSGPLR+10
^PS(59.7 - [#59.7] DD+18, DD+19
^PSDRUG - [#50] DD+17

Label References

Name Line Occurrences
$$MINUTES WARDCHK+2
BEGIN BEGIN+1
DONE PSGPLR+14
HEADER PSGPLR+14, BEGIN+2
PAGECK BEGIN+2, BEGIN+3
WARDCHK DD+34, EXDD+10

Naked Globals

Name Field # of Occurrence
^( DD+19, EXDD+1
^(0 PSGPLR+10
^(212 DD+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PSGPLR+9
AT DONE+2!, DD+34
ATC DONE+2!, DD+17*, DD+18*, DD+19*, DD+25
>> ATCFF DD+18*
CML PSGPLR+11*, BEGIN+2, BEGIN+3, DONE+2!, FCL+1
CNT DD+1~, DD+4*, DD+5, DD+14*, DD+22, DD+23*
DDRG BEGIN+2*, DONE+2!, DD+3*, DD+5*, DD+6, DD+15*, DD+30, EXDD+1*, EXDD+2, EXDD+9
>> DFN WARDCHK+3*
DIS DONE+2!, DD+8*, DD+18*, DD+25, EXDD+2*, EXDD+9*
DND DONE+2!, DD+6*, DD+7*, DD+8, DD+15*, DD+16*, DD+18, EXDD+1*
DO DONE+2!, DD+31, EXDD+10
DR DONE+2!, DD+6*, DD+7*, DD+15*, DD+16*, DD+25, EXDD+2*
DRG DONE+2!, DD+4, DD+15, EXDD+1
DRGND DD+3~*, DD+6, DD+12
DRN DONE+2!, DD+7*, DD+16*, DD+17, DD+24, DD+25, DD+27, EXDD+2*, EXDD+3
FACL PSGPLR+10*, BEGIN+2, BEGIN+3, DONE+2!, FCL+1
FD DONE+2!, DD+34, EXDD+10
FFF PSGPLR+11*, BEGIN+2, BEGIN+3, DONE+2!
FQC DONE+2!
GIVSTR DD+31~*, DD+32
I DD+5*, DD+10, DD+32~, DD+33*
>> ID EXDD+2*
IO PSGPLR+11, PSGPLR+13, PSGPLR+14
IO(0 PSGPLR+11, PSGPLR+14
IOF PSGPLR+14, BEGIN+3, HEADER+1, PAGECK+1
IOSL PAGECK+1
IOST PSGPLR+11, PSGPLR+14
LESS MINUTES~, MINUTES+1
LINE PSGPLR+10*, DONE+2!, HEADER+3
MARX DD+32~, DD+33
MARX( DD+33
MARX(1 DD+33
ND DONE+2!
ND0 DONE+2!, DD+4, DD+15
ND1 DONE+2!, EXDD+9*
ND2 DONE+2!
ND6 DONE+2!
NEED DONE+2!, DD+8*, DD+10, DD+18*, DD+23*, DD+25
NPLF PSGPLR+14*, BEGIN+2*, DONE+2!, HEADER+2
OLDWARD PSGPLR+9~, DD+3*, DD+15*, DD+29*, DD+30*, DD+34, EXDD+1*, EXDD+2*, EXDD+9*, EXDD+10
, WARDCHK+4*
OLINE PSGPLR+9*, DONE+2!
OSTOP DD+3~*
PADE DD+1~, DD+24*, DD+25
>> PDRG BEGIN+2*, DD+30, EXDD+9*
PFD PSGPLR+10*, DONE+3!, HEADER+2
PGN PSGPLR+10*, DONE+3!, FCL+1, HEADER+1*, HEADER+2
PN BEGIN+2*, DONE+3!, DD+5, DD+15, EXDD+1
POP DONE+3!
PPLD PSGPLR+9*, DONE+3!, HEADER+2
PPN DONE+3!
PRM DONE+3!
PSD PSGPLR+10*, DONE+3!, HEADER+2
>> PSGDT PSGPLR+9*
PSGID DONE+3!
PSGOD DONE+3!
PSGP DONE+3!, DD+2, DD+3, DD+4, DD+6, DD+7, DD+12, DD+16, DD+24, EXDD+2
, EXDD+9, WARDCHK+3
PSGPLDC DONE+2!
>> PSGPLG PSGPLR+10, PSGPLR+14, BEGIN+1, BEGIN+2, DONE+1, DD+5, DD+6, DD+12, DD+15, EXDD+1
, HEADER+2
>> PSGPLREN( DD+5, DD+6, DD+12!
>> PSGPLREN("B" DD+2, DD+3, DD+4, DD+12!
>> PSGPLUP DD+2
>> PSGPLUPF PSGPLR+9, PSGPLR+14, HEADER+2
>> PSGPLWG PSGPLR+10, DD+17
>> PSGPLWGP PSGPLR+11, FCL+1
PSGPLXR PSGPLR+9*, BEGIN+2, DONE+2!, DD+15, EXDD+1
PSGPLXRX DONE+2!, DD+5*
>> PSGPY PAGECK+1*
PSGY PSGPLR+9~
PSHAZ DD+27!~*, DD+28, EXDD+3!~*, EXDD+4, EXDD+5
PSHAZD EXDD+3~*, EXDD+5*, EXDD+6, EXDD+7, EXDD+8
PSHAZH EXDD+3~*, EXDD+4*, EXDD+6, EXDD+7, EXDD+8
PSJJORD DONE+3!, DD+2, DD+3, DD+4, DD+7, DD+12, DD+16, DD+24, EXDD+2, EXDD+9
PSJORDN DONE+3!
PSJRNW DD+1~, DD+21
PSJRNW( DD+10*, DD+23
PSSN DONE+3!
PST BEGIN+2*, DONE+3!, DD+5, DD+15, DD+19, EXDD+1
PW DONE+3!, WARDCHK+3
>> Q DD+35*
RM BEGIN+2*, DONE+3!, DD+5, DD+15, EXDD+1
RTE DONE+3!, DD+31, EXDD+10
SCH DONE+3!, DD+31, EXDD+10
SD DONE+3!, DD+34, EXDD+10
SM DONE+3!
ST DD+4~*, DD+15~*, DD+16, DD+25, DD+29*, DD+30*, DD+36!
STPDT PSGPLR+9~, WARDCHK+1, WARDCHK+2, MINUTES~, MINUTES+1
TD DONE+3!
TM BEGIN+2*, DONE+3!, DD+5, DD+15, EXDD+1, HEADER+2
TMPDRG DD+4~*, DD+5
TMPORD DD+24~*
TND PSGPLR+10*, DONE+3!, HEADER+3
U DD+6, DD+15, DD+19
>> UD DD+17*, DD+18, DD+20*, DD+25
>> VAIN(4 WARDCHK+3
>> VAIN(5 WARDCHK+3
>> VAINDT WARDCHK+2*, MINUTES+1*, MINUTES+2
WDN BEGIN+2*, DONE+3!, DD+5, DD+15, EXDD+1
WG DONE+3!
WGPN PSGPLR+10*, DONE+3!, HEADER+2
WL DONE+3!
WSF PSGPLR+10*, DONE+3!
X PSGPLR+12*, DONE+3!, DD+6*, DD+15*, DD+19*, DD+32~, DD+35*
Y DD+32~, DD+35
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All