Routine: PSGPLDP0

Information

PSGPLDP0 ;BIR/CML3-ENTER UNITS DISPENSED (PART 2) ;23 OCT 97 / 9:34 AM

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	5	NOW^%DTC ^DIC YN^DICN ^DIE ^DIR
Inpatient Medications	2	($$ENDDN,$$ENDTC,$$ENPDN)^PSGMI (FIMSG,FMSG,PRNM)^PSGPLDPH

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSGPLDP

Entry Points

Name	Comments	DBIA/ICR reference
PRN	;
TM	;
OUT	;
FILE	;
PN	;
NP
ST	;
DRG	;
GD	;
GDMSG	;
W1	;
W2	;
SCREEN	; display break

Name	Field # of Occurrence
NOW^%DTC	OUT+2
^DIC	PN+3
YN^DICN	PRN+1, OUT+1, FILE+1
^DIE	FILE+2
^DIR	SCREEN+2
$$ENDDN^PSGMI	GD+3
$$ENDTC^PSGMI	PSGPLDP0+4
$$ENPDN^PSGMI	GD+2
FIMSG^PSGPLDPH	FILE+1
FMSG^PSGPLDPH	OUT+1
PRNM^PSGPLDPH	PRN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!?33,"* WARNING *",!,"THIS PICK LIST STARTED TO RUN ",PSGOD,", BUT HAS NOT RUN TO COMPLETION." Line Location: PSGPLDP0+4
Function Call: WRITE	Prompt: !!,"Do you want to see PRN meds only" Line Location: PRN+1
Function Call: WRITE	Prompt: @IOF Line Location: PRN+3
Function Call: WRITE	Prompt: !!?2,"(No PRN meds founds.)" Condition for execution: 'PRN&'PC Line Location: OUT+1
Function Call: WRITE	Prompt: !!,"ARE YOU FINISHED WITH THIS PICK LIST" Line Location: OUT+1
Function Call: WRITE	Prompt: !!,"MAY I FILE THE DATA IN THIS PICK LIST AWAY" Line Location: FILE+1
Function Call: WRITE	Prompt: !,$$ENPDN^PSGMI(+$G(^PS(55,PSGP,5,PSJJORD,.2))),?42,"NEEDED: OI",?55,"DISPENSED:" Line Location: GD+2
Function Call: WRITE	Prompt: !,DR,?42,"NEEDED: ",PDN,?55,"DISPENSED: ",PDN Line Location: GD+5
Function Call: READ	Variable: OK Timeout: DTIME Line Location: GD+7
Function Call: WRITE	Prompt: !,DR,?42,"NEEDED: ",PDN,?55,"DISPENSED: ",$S(PDD="":"",1:PDD_"// ") Line Location: GD+7
Function Call: WRITE	Prompt: OK="^^^" Condition for execution: '$T $C(7) S:'$T Line Location: GD+7
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: GD+7
Function Call: WRITE	Prompt: " ",OK Line Location: GD+9
Function Call: WRITE	Prompt: !!," Enter the number of units actually dispensed for this medication. If the",!,"units dispensed is the same as the units needed (or units dispensed, if shown),",!,"just press the RETURN key." Line Location: GDMSG+1
Function Call: WRITE	Prompt: !,?20,"(NO ORDERS)",! Line Location: W2+3
Function Call: WRITE	Prompt: ! Line Location: SCREEN+1
Routine Call	DIC Line Location: PN+3
Routine Call	DIE Line Location: FILE+2
Routine Call	DIR Line Location: SCREEN+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PN+7, PN+8, W2+1
^PS(53.5 - [#53.5]	PSGPLDP0+3, TM+1, PN+2, PN+5, PN+6, PN+7, ST+1, DRG+2, GD+1, GD+10* , W1+1, W2+1, W2+3
^PS(55 - [#55]	DRG+2, GD+2, GD+3

Label References

Name	Line Occurrences
DRG	ST+1
GD	DRG+2
GDMSG	GD+7
OUT	TM+1
PN	TM+1, PN+1
PRN	OUT+2
SCREEN	GD+2, GD+5, W2+3
ST	PN+1
TM	TM+1
W1	TM+1, PN+1, GD+4
W2	PN+1

Naked Globals

Name	Field # of Occurrence
^(0	W2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRN+1, PRN+2, PRN+3, OUT+1, OUT+2, FILE+1*, FILE+2
>> DA	FILE+2*
>> DDRG	GD+1*, GD+10
DIC	PN+3*!
DIC(0	PN+3*
DIE	FILE+2*!
DIR	SCREEN+2!
DIR("?"	SCREEN+2*
DIR("A"	SCREEN+2*
DIR(0	SCREEN+2*
>> DN	GD+1*, GD+2, GD+3
>> DR	FILE+2, GD+3, GD+5, GD+7
>> DRG	DRG+1, DRG+2, GD+1
DTIME	GD+7
IOF	PRN+3
>> LMT	GD+4*, GD+7
>> OK	TM+1, PN+1, PN+2, PN+3, ST+1, DRG+2, GD+1, GD+4, GD+7, GD+8 , GD+9, GD+10, GDMSG+2, W1+2, SCREEN+2
>> PC	PRN+3, OUT+1, GD+4
>> PDD	GD+1*, GD+7, GD+9, GD+10
>> PDN	GD+1*, GD+4, GD+5, GD+7, GD+9
>> PN	TM+1, PN+1, PN+2, PN+3, PN+7, PN+8*, ST+1, DRG+2, GD+1, W2+1
>> PPN	W2+1*, W2+2
>> PR	TM+1, W2+1, W2+2
>> PRN	PRN+2, PRN+3, TM+1, OUT+1, PN+1, DRG+2, GD+4
>> PSGLCNT	PRN+3, GD+6, W1+1, SCREEN+1
>> PSGOD	PSGPLDP0+4*
>> PSGORD	DRG+2*, GD+1, GD+10
>> PSGP	PN+1*, DRG+2, GD+1, GD+2, GD+3, GD+10, W1+1, W2+1, W2+3
>> PSGPLG	PSGPLDP0+3, TM+1, FILE+2, PN+2, PN+3, PN+5, PN+6, PN+7, ST+1, DRG+2 , GD+1, GD+10, W1+1, W2+1, W2+3
>> PSGPLTND	PSGPLDP0+3*, PSGPLDP0+4, OUT+2, W2+2
>> PSJJORD	DRG+2*, GD+2, GD+3
>> PSSN	W2+1*, W2+2
>> PW	W1+1*, W1+2
>> RB	TM+1, PN+2, PN+5, PN+6*, PN+7, ST+1, DRG+2, GD+1
>> SCH	DRG+2*
>> ST	ST+1*, DRG+2, GD+1
>> TM	PRN+3, TM+1, PN+2, PN+8*, ST+1, DRG+2, GD+1, W1+2
U	PN+5, PN+7, PN+8
>> WDN	TM+1, PN+2, PN+8, ST+1, DRG+2, GD+1, W1+1, W1+2
>> WF	PN+1, GD+4
>> WSF	PSGPLDP0+3*, TM+1, PN+1, PN+4, W1+1
>> X	PN+3*, SCREEN+2
Y	PN+3, PN+4*, PN+7!, PN+8!
Y(0	PN+4, PN+5, PN+7, PN+8

Customize PDF page

Package: Inpatient Medications