Routine: PSGPLR

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

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

Customize PDF page

Package: Inpatient Medications

Routine: PSGPLR

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: