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 Total: 6

Package Total Call Graph
Inpatient Medications 4 ($$ENDDN,$$ENDTC,$$ENPDN)^PSGMI  TXT^PSGMUTL  ^PSGPLR0  ($$LOCK,UNLOCK)^PSGPLUTL  
Registration 1 INP^VADPT  
VA Fileman 1 NOW^%DTC  

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 ;
EXDD ;
WARDCHK ; if patient has discontinued orders from a different ward, print the ward and room/bed that the orders were discontinued from.
DD ;
MINUTES(STPDT,LESS)
HEADER ;
DONE ;
PAGECK ;
FCL ;

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+3
TXT^PSGMUTL DD+28
^PSGPLR0 BEGIN+2
$$LOCK^PSGPLUTL BEGIN+1
UNLOCK^PSGPLUTL DONE+1
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+24
Function Call: WRITE
  • Prompt: ?61,$J(UD,4),?68,$J(NEED,4),?75,$S(DIS]"":$J(DIS,4),1:"____")
  • Line Location: DD+24
Function Call: WRITE
  • Prompt: !?6,PDRG,?48,ST,?57,"OI"
  • Line Location: DD+26
Function Call: WRITE
  • Prompt: !,?65-$L(AT),AT
  • Condition for execution: AT]""
  • Line Location: DD+30
Function Call: WRITE
  • Prompt: !?7,"Start: ",SD,?37,"Stop: ",FD
  • Line Location: DD+30
Function Call: WRITE
  • Prompt: !?10
  • Line Location: DD+31
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $X+$L(X)>65
  • Line Location: DD+31
Function Call: WRITE
  • Prompt: X_" "
  • Line Location: DD+31
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,PDRG,?48,DIS,?66,"Returns: ____"
  • Line Location: EXDD+3
Function Call: WRITE
  • Prompt: !?10,"Give: ",$S(DO]"":DO_" ",1:""),RTE," ",SCH
  • Line Location: EXDD+4
Function Call: WRITE
  • Prompt: !?7,"Start: ",SD,?37,"Stop: ",FD
  • Line Location: EXDD+4
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+3
^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+30, EXDD+4

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+30
ATC DONE+2!, DD+17*, DD+18*, DD+19*, DD+24
>> 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+26, EXDD+1*, EXDD+2, EXDD+3
>> DFN WARDCHK+3*
DIS DONE+2!, DD+8*, DD+18*, DD+24, EXDD+2*, EXDD+3*
DND DONE+2!, DD+6*, DD+7*, DD+8, DD+15*, DD+16*, DD+18, EXDD+1*
DO DONE+2!, DD+27, EXDD+4
DR DONE+2!, DD+6*, DD+7*, DD+15*, DD+16*, DD+24, 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, EXDD+2*
FACL PSGPLR+10*, BEGIN+2, BEGIN+3, DONE+2!, FCL+1
FD DONE+2!, DD+30, EXDD+4
FFF PSGPLR+11*, BEGIN+2, BEGIN+3, DONE+2!
FQC DONE+2!
GIVSTR DD+27~*, DD+28
I DD+5*, DD+10, DD+28~, DD+29*
>> 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+28~, DD+29
MARX( DD+29
MARX(1 DD+29
ND DONE+2!
ND0 DONE+2!, DD+4, DD+15
ND1 DONE+2!, EXDD+3*
ND2 DONE+2!
ND6 DONE+2!
NEED DONE+2!, DD+8*, DD+10, DD+18*, DD+23*, DD+24
NPLF PSGPLR+14*, BEGIN+2*, DONE+2!, HEADER+2
OLDWARD PSGPLR+9~, DD+3*, DD+15*, DD+25*, DD+26*, DD+30, EXDD+1*, EXDD+2*, EXDD+3*, EXDD+4
, WARDCHK+4*
OLINE PSGPLR+9*, DONE+2!
OSTOP DD+3~*
>> PDRG BEGIN+2*, DD+26, EXDD+3*
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, EXDD+2, EXDD+3
, 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~
PSJJORD DONE+3!, DD+2, DD+3, DD+4, DD+7, DD+12, DD+16, EXDD+2, EXDD+3
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+31*
RM BEGIN+2*, DONE+3!, DD+5, DD+15, EXDD+1
RTE DONE+3!, DD+27, EXDD+4
SCH DONE+3!, DD+27, EXDD+4
SD DONE+3!, DD+30, EXDD+4
SM DONE+3!
ST DD+4~*, DD+15~*, DD+16, DD+24, DD+25*, DD+26*, DD+32!
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
TND PSGPLR+10*, DONE+3!, HEADER+3
U DD+6, DD+15, DD+19
>> UD DD+17*, DD+18, DD+20*, DD+24
>> 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+28~, DD+31*
Y DD+28~, DD+31
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All