Routine: PSDADJR

Information

PSDADJR ;BIR/LTL-Review Adjustment Transactions for a Drug ; 29 Aug 94

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	5	DD^%DT ^DIC DT^DICRW Y^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD
Controlled Substances	1	^PSDSET

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
Controlled Substances	1	PSDADJ

Entry Points

Name	Comments	DBIA/ICR reference
LOOK
CHKD
DEV	;asks device and queueing info
START	;compiles and prints output
LOOP
END
HEADER	;prints header info

External References

Name	Field # of Occurrence
DD^%DT	START+1
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+2
^%ZTLOAD	DEV+3
$$S^%ZTLOAD	HEADER+2
^DIC	LOOK+3, CHKD+2
DT^DICRW	PSDADJR+8
Y^DIQ	DEV+1
^DIR	CHKD+4, END+1, HEADER+1
^PSDSET	PSDADJR+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no drugs in ",PSDLOCN Line Location: CHKD+0
Function Call: WRITE	Prompt: !!,"There have been no adjustments for this drug.",!! Line Location: CHKD+3
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+2
Function Call: WRITE	Prompt: !,Y," ",$E($P($G(^PSDRUG(+$P($G(^PSD(58.81,PSDR,0)),U,5),0)),U),1,25)," -> " Line Location: LOOP+1
Function Call: WRITE	Prompt: !! Line Location: END+1
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"." Line Location: HEADER+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+3
Function Call: WRITE	Prompt: !?2,"History of adjustments for ",$E($P($G(^PSDRUG(+PSD,0)),U),1,20),?50,RPDT,?70,"PAGE: ",PG,!,LN,! Line Location: HEADER+3
Routine Call	DIC Line Location: LOOK+3 CHKD+2
Routine Call	DIR Line Location: CHKD+4 END+1 HEADER+1
Routine Call	%ZIS Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSD(58.8 - [#58.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	LOOP+1
^DD(58.8	DEV+1
^PSD(58.8 - [#58.8]	CHKD, DEV+1
^PSD(58.81 - [#58.81]	CHKD+3, LOOP, LOOP+1, LOOP+2
^PSDRUG - [#50]	LOOP+1, HEADER+3
^VA(200 - [#200]	LOOP+2, HEADER+2

Label References

Name	Line Occurrences
CHKD	PSDADJR+10
END	PSDADJR+6, LOOK+3, CHKD, CHKD+1, CHKD+2, CHKD+3, CHKD+4, DEV+2, DEV+3, LOOP
HEADER	START+1, LOOP

Naked Globals

Name	Field # of Occurrence
^(0	LOOP

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	START+1~
%ZIS	DEV+2~*
%ZIS("B"	DEV+2*
C	PSDADJR+7~, DEV+1*
>> DA(1	CHKD+1*
DIC	PSDADJR+7~, LOOK, LOOK+3!, CHKD+1, CHKD+2!
DIC("A"	LOOK, CHKD+1
DIC("B"	LOOK+2*
DIC("S"	LOOK+1, CHKD+1
DIC(0	LOOK, CHKD+1
DIR	PSDADJR+7~, CHKD+4!, HEADER+1!
DIR("A"	CHKD+4, END+1
DIR("B"	CHKD+4*
DIR(0	CHKD+4, END+1, HEADER+1*
DIRUT	PSDADJR+7~, CHKD+4
DT	START+1
DTOUT	PSDADJR+7~, LOOK+3, CHKD+1, CHKD+2
DUOUT	PSDADJR+7~, LOOK+3, CHKD+1, CHKD+2
DUZ	HEADER+2
IO("Q"	DEV+2!, DEV+3, END+2!
IOF	END, HEADER+3
IOP	DEV+2~
IOSL	LOOP
IOST	END, END+1, HEADER+1
LN	START+1~, HEADER+3*
PG	START+1~, HEADER+1, HEADER+3
POP	DEV+2~
PSD	PSDADJR+7~, CHKD+2*, LOOP, HEADER+3
PSDEV	PSDADJR+7~, DEV+1*, DEV+2
PSDLOC	PSDADJR+7~, PSDADJR+9, LOOK+4, CHKD, CHKD+1, DEV+1, LOOP
PSDLOCN	PSDADJR+7~, PSDADJR+9, LOOK+4, CHKD, CHKD+1
PSDOUT	PSDADJR+6~, LOOK+1, CHKD+4, DEV+2, DEV+3, START+1, LOOP, END+1, HEADER+1, HEADER+2
PSDR	PSDADJR+7~, START+1, LOOP, LOOP+1, LOOP+2
PSDS	PSDADJR+7~
>> PSDSITE	PSDADJR+6, PSDADJR+9, PSDADJR+10, LOOK+2, LOOK+5*
PSDT	PSDADJR+7~, CHKD+5*, LOOP
RPDT	START+1~*, HEADER+3
U	PSDADJR+9, PSDADJR+10, LOOK+2, LOOK+4, LOOK+5, LOOP, LOOP+1, LOOP+2, HEADER+2, HEADER+3
X	PSDADJR+7~
Y	PSDADJR+7~, LOOK+3, LOOK+4, LOOK+5, CHKD+2, CHKD+3, CHKD+5, DEV+1, START+1, LOOP+1* , HEADER+1
ZTDESC	DEV+3~*, HEADER+2
ZTDTH	DEV+3~
ZTIO	DEV+3~
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+3~*
ZTSAVE	DEV+3~
ZTSAVE("PSD*"	DEV+3*
ZTSK	DEV+3~, HEADER+2

Customize PDF page

Package: Controlled Substances