Routine: PSDADJD

Information

PSDADJD ;BIR/LTL-Review Adjustment Transactions for a Drug; 2 Nov 94 [ 11/02/94 3:53 PM ]

Call Graph

Call Graph Total: 11

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

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	PSD BALANCE ADJUSTMENT REVIEW

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
CHK	;(DAVE B 26OCT99)

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
HOME^%ZIS	DEV+2
^%ZISC	END+2
^%ZTLOAD	DEV+2
$$S^%ZTLOAD	HEADER+2
$$TEST^DDBRT	DEV+8
^DIC	LOOK+3, CHKD, CHK+3
DT^DICRW	PSDADJD+8
$$GET1^DIQ	CHK+4
Y^DIQ	CHKD+11
^DIR	CHKD+3, CHKD+6, CHKD+10, END+1, HEADER+1
^PSDADJB	DEV+8
^PSDADJW	DEV+6
^PSDSET	PSDADJD+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LOOK+3
Function Call: WRITE	Prompt: !!,"You may select one, several, or ^ALL drugs." Line Location: LOOK+5
Function Call: WRITE	Prompt: ! Line Location: CHKD+0
Function Call: WRITE	Prompt: !!,"There have been no adjustments for this drug.",!! Line Location: CHKD+1
Function Call: WRITE	Prompt: ! Line Location: CHKD+3
Function Call: WRITE	Prompt: ! Line Location: CHKD+6
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"Getting ready to browse...",!! Line Location: DEV+8
Function Call: WRITE	Prompt: !,Y," "," -> " Line Location: LOOP+4
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: !,"Adjustments from ",PSDTB(2)," to ",PSDTB(3),?70,"PAGE: ",PG,!,LN Line Location: HEADER+3
Function Call: WRITE	Prompt: !,PSDU," (continued)",! Condition for execution: $G(PSDT(1)) Line Location: HEADER+3
Routine Call	%ZIS Line Location: DEV+1
Routine Call	%ZIS Line Location: DEV+2
Routine Call	DIC Line Location: LOOK+3 CHKD CHK+3
Routine Call	DIR Line Location: CHKD+3 CHKD+6 CHKD+10 END+1 HEADER+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSD(58.8 - [#58.8]	Classic Fileman Calls
^DIC(9.4 - [#9.4]	Classic Fileman Calls, GET1^DIQ

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

Label References

Name	Line Occurrences
CHK	DEV+8
CHKD	PSDADJD+10
END	PSDADJD+6, LOOK+3, CHKD, CHKD+1, CHKD+3, CHKD+6, CHKD+8, DEV+2, START+2
HEADER	START+1, LOOP+2

Naked Globals

Name	Field # of Occurrence
^(0	CHKD+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1~*
%ZIS("B"	DEV+1*
C	PSDADJD+7~, CHKD+11*
CNT	PSDADJD+7~, CHKD, CHKD+1
DIC	PSDADJD+7~, LOOK, LOOK+3!, CHKD!, CHK+3*
DIC("A"	LOOK, CHKD
DIC("B"	LOOK+2*
DIC("S"	LOOK+1, CHKD
DIC(0	LOOK, CHKD, CHK+3*
DIR	PSDADJD+7~, CHKD+6!, CHKD+10!, HEADER+1!
DIR("?"	CHKD+3, CHKD+10
DIR("A"	CHKD+3, CHKD+5, END+1*
DIR("B"	CHKD+5, CHKD+10
DIR(0	CHKD+3, CHKD+4, CHKD+9, END+1, HEADER+1*
DTOUT	PSDADJD+7~
DUOUT	PSDADJD+7~
DUZ	HEADER+2
>> GOOD	DEV+8, CHK+3, CHK+4
IO	DEV+4
IO("Q"	DEV+1!, DEV+2, END+2!
IOF	END, HEADER+3
IOP	DEV+1~
IOSL	LOOP+2
IOST	DEV+8, LOOP, END, END+1, HEADER+1
LN	START+1~, HEADER+3*
PG	START+1~, HEADER+1, HEADER+3
POP	DEV+1~
PSD	PSDADJD+7~
PSD(	CHKD, CHKD+1, CHKD+2, START+2, LOOP, LOOP+1
PSD(0	CHKD+1
PSDA	PSDADJD+7~
PSDA(	CHKD, CHKD+2
PSDC	PSDADJD+7~
>> PSDCHO	PSDADJD+7, CHKD+10, DEV+2, DEV+6
PSDEV	PSDADJD+7~, CHKD+11*, DEV+1
PSDLOC	PSDADJD+7~, PSDADJD+9, LOOK+3, CHKD+2, CHKD+11, LOOP, LOOP+1
PSDLOCN	PSDADJD+7~, PSDADJD+9, LOOK+3, CHKD
PSDOUT	PSDADJD+6~, PSDADJD+7, DEV+2, START+1, START+2, LOOP, LOOP+2, END+1, HEADER+1, HEADER+2
PSDR	PSDADJD+7~, START+1~
PSDR(2	LOOP+1*, LOOP+4, LOOP+5, LOOP+6
>> PSDSITE	PSDADJD+6, PSDADJD+9, PSDADJD+10, LOOK+2, LOOK+4*
PSDT	PSDADJD+7~, CHKD+4, START+2, LOOP*, LOOP+1
PSDT(1	START+2, LOOP+3, HEADER+3
PSDTB	PSDADJD+7~, CHKD+4*, START+2
PSDTB(1	CHKD+6, CHKD+7, LOOP
PSDTB(2	CHKD+4*, HEADER+3
PSDTB(3	CHKD+6*, HEADER+3
PSDU	PSDADJD+7~, CHKD+2, START+1, START+2, LOOP, LOOP+1, LOOP+3, HEADER+3
U	PSDADJD+9, PSDADJD+10, LOOK+2, LOOK+3, LOOK+4, CHKD+2, LOOP+4, LOOP+5, LOOP+6, HEADER+2
X	PSDADJD+7~, CHKD, CHKD+2, CHK+3*
Y	PSDADJD+7~, LOOK+3, LOOK+4, CHKD, CHKD+3, CHKD+4, CHKD+6, CHKD+8, CHKD+10, CHKD+11* , LOOP+4*, HEADER+1, CHK+3, CHK+4
Y(0	CHKD, CHKD+4, CHKD+6
ZTDESC	DEV+2~*, HEADER+2
ZTDTH	DEV+2~
ZTIO	DEV+2~
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+2~*
ZTSAVE	DEV+2~
ZTSAVE("PSD*"	DEV+2*
ZTSK	DEV+2~, HEADER+2

Customize PDF page

Package: Controlled Substances