Routine: PSGEUDP

Package	Total	Call Graph
Inpatient Medications	2	$$ENDTC^PSGMI ($$PRTCHK,EXITDEV)^PSJMUTL

Package

Total

Call Graph

Inpatient Medications

$$ENDTC^PSGMI ($$PRTCHK,EXITDEV)^PSJMUTL

Package	Total	Caller Graph
Inpatient Medications	1	PSGEUDD

Package

Total

Caller Graph

Inpatient Medications

PSGEUDD

Entry Points

Name	Comments	DBIA/ICR reference
PRTPT	;*** Print Extra Dispensed Drug sort by patient.
HDR	;*** Print the report main header.
P	;*** Print by patient.
TOT(TOT,NAME,X)
START	;
PHDR	;*** Print the header when sort by patient.
EXIT
W	;***Print by ward/ward group.
WHDR	;***Print ward/ward group header
PRTW	;*** Print output for ward/ward group

Name	Field # of Occurrence
$$ENDTC^PSGMI	PRTPT+5, HDR+4, PRTW+10
$$PRTCHK^PSJMUTL	HDR+1
EXITDEV^PSJMUTL	EXIT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA FOUND ON EXTRA UNITS DISPENSED" Line Location: START+3
Function Call: WRITE	Prompt: !,DRG Line Location: PRTPT+3
Function Call: WRITE	Prompt: ! Line Location: PRTPT+4
Function Call: WRITE	Prompt: ?46,$J(+ND,5),?53,$$ENDTC^PSGMI(PSGDT),?69,$E($P(^VA(200,+$P(ND,U,2),0),U,2),1,4) Line Location: PRTPT+5
Function Call: WRITE	Prompt: !?2,NAME,$E(MSG2,1,X-2-$L(NAME)),?X,$J(TOT,5),! Line Location: TOT+1
Function Call: WRITE	Prompt: !!,PNAME,?39,"Room_Bed: "_$P(ND,U,4),!,$P(ND,U,3),?39," Ward: "_$P(ND,U,5),! Line Location: PHDR+2
Function Call: WRITE	Prompt: !!,"DRUG NAME",?47,"UNIT",?53,"DATE",?69,"DISP." Line Location: PHDR+3
Function Call: WRITE	Prompt: !?53,"DISPENSED",?69,"BY",! Line Location: PHDR+4
Function Call: WRITE	Prompt: !?30,"EXTRA UNITS DISPENSED REPORT",?68,"PAGE: ",PSGPG Line Location: HDR+3
Function Call: WRITE	Prompt: !?17,"REPORT FROM: ",$$ENDTC^PSGMI(PSGSDT)," TO: ",$$ENDTC^PSGMI(PSGEDT),! Line Location: HDR+4
Function Call: WRITE	Prompt: !,"WARD: ",PSGWN Line Location: PRTW+5
Function Call: WRITE	Prompt: !,"TEAM: ",TM Condition for execution: $G(PSGTM)!$G(PSGTMALL) Line Location: PRTW+5
Function Call: WRITE	Prompt: !,"TEAM: ",TM Line Location: PRTW+7
Function Call: WRITE	Prompt: !!,$E(DRG,1,31) Line Location: PRTW+8
Function Call: WRITE	Prompt: ! Line Location: PRTW+9
Function Call: WRITE	Prompt: ?33,$E(PNAME,1,13)_"("_$P(ND,U,3)_")",?53,$J(+ND,5),?59,$$ENDTC^PSGMI(PSGDT),?75,$E($P(^VA(200,+$P(ND,U,2),0),U,2),1,4) Line Location: PRTW+10
Function Call: WRITE	Prompt: !!,"DRUG NAME",?33,"PATIENT",?54,"UNIT",?59,"DATE",?75,"DISP.",!,?59,"DISPENSED",?75,"BY",! Line Location: WHDR+3
Function Call: WRITE	Prompt: "=" Line Location: WHDR+4
Function Call: WRITE	Prompt: ! Line Location: WHDR+5

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	P+2, P+5, PRTPT+2, W+3
^TMP($J	START+3, P+2, P+3, PRTPT+1, W+2, W+3, W+4, PRTW+1
^VA(200 - [#200]	PRTPT+5, PRTW+10

Name	Line Occurrences
@(	START+8
EXIT	START+3
HDR	PHDR+1, WHDR+1
PHDR	PRTPT+2, PRTPT+6
PRTPT	P+3
PRTW	W+4
TOT	P+5, PRTPT+2, PRTPT+3, W+6, PRTW+4, PRTW+7, PRTW+8
WHDR	PRTW+2, PRTW+11

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DRG	P+2, P+3, PRTPT+1, PRTPT+3, W+3, W+4, PRTW+1, PRTW+8
DRGO	START+5~, P+1, P+5, PRTPT+2, PRTPT+3, W+1, PRTW+4, PRTW+6, PRTW+7, PRTW+8*
IO	START+4
IOF	HDR+2
IOSL	PRTPT+6, PRTW+11
MSG1	START+5~, START+7*, P+5, PRTPT+2, W+6, PRTW+4, PRTW+7
MSG2	START+5~, START+7*, TOT+1
NAME	TOT~, TOT+1
>> ND	PRTPT+1, PRTPT+5, PRTPT+7, PHDR+2, PRTW+1, PRTW+10, PRTW+12
PNAME	START+5~, P+2, PHDR+2, W+3, PRTW+10
>> PPN	P+2, P+3, PRTPT+1, PRTPT+2, W+3, W+4, PRTW+1
PPNO	START+5~, P+1, P+5, PRTPT+2
>> PSGDT	P+3, PRTPT+1, PRTPT+5, W+4, PRTW+1, PRTW+10
>> PSGEDT	HDR+4
PSGPG	START+6, EXIT+1!, HDR+1, HDR+2, HDR+3, PRTW+2
>> PSGSDT	HDR+4
>> PSGSS	START+8
>> PSGTM	W+6, PRTW+4, PRTW+5, PRTW+7
>> PSGTMALL	W+6, PRTW+4, PRTW+5, PRTW+7
PSGTOTD	EXIT+1!, P+5, PRTPT+2, PRTPT+3, PRTPT+7, W+1, W+6, PRTW+4, PRTW+6, PRTW+7* , PRTW+8, PRTW+12
PSGTOTM	EXIT+1!, W+1, W+6, PRTW+4, PRTW+6, PRTW+7, PRTW+12
PSGTOTU	EXIT+1!, P+5, PRTPT+2, PRTPT+7, W+1, W+6, PRTW+12
PSGTOTW	EXIT+1!, W+1, W+6, PRTW+4, PRTW+6, PRTW+12*
>> PSGWGNM	W+6
>> PSGWN	W+1, W+2, W+3, W+4, PRTW+1, PRTW+3, PRTW+5, PRTW+6
PSGWNO	EXIT+1!, W+1, W+6, PRTW+3, PRTW+4, PRTW+6
>> PSJSTOP	START+6*, P+2, P+3, P+4, PHDR+1, W+2, W+3, W+4, W+5, WHDR+2
>> TM	W+2*, W+3, W+4, PRTW+1, PRTW+5, PRTW+6, PRTW+7
TMO	START+5~, W+1, W+6, PRTW+4, PRTW+6, PRTW+7*
TOT	TOT~, TOT+1
U	PRTPT+5, PHDR+2, PRTW+10
X	TOT~, TOT+1, WHDR+4*

Customize PDF page

Package: Inpatient Medications

Routine: PSGEUDP

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: