Routine: PSBIHS3

Package	Total	Call Graph
VA Fileman	6	(,DD)^%DT NOW^%DTC WAIT^DICD YN^DICN UPDATE^DIE $$GET1^DIQ
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package

Total

Call Graph

VA Fileman

(,DD)^%DT NOW^%DTC WAIT^DICD YN^DICN UPDATE^DIE $$GET1^DIQ

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Barcode Medication Administration	1	PSBIHS CORRECT DRUG POINTERS

Package

Total

Caller Graph

Barcode Medication Administration

PSBIHS CORRECT DRUG POINTERS

Name	Comments	DBIA/ICR reference
NEW
HEAD	;
EN	;
REINACT	;RENAME ALL INACTIVE DRUGS TO ZZ/zz THEM
TAS	;TASK IT OR NOT

Name	Field # of Occurrence
^%DT	REINACT+5
DD^%DT	HEAD+2
NOW^%DTC	HEAD+2
^%ZIS	TAS+2
HOME^%ZIS	TAS+18
^%ZISC	TAS+10
^%ZTLOAD	TAS+17
WAIT^DICD	TAS+9, REINACT+7, REINACT+20
YN^DICN	REINACT+18
UPDATE^DIE	REINACT+21
$$GET1^DIQ	EN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+1
Function Call: WRITE	Prompt: !,"Hello "_$P($$GET1^DIQ(200,DUZ,.01,"E"),",",2)_" this report looks at the Following Files for 'Correct Drug Pointers'" Line Location: EN+2
Function Call: WRITE	Prompt: !,?10,"Drug File (50) --->Pharmacy Orderble Item (50.7)" Line Location: EN+3
Function Call: WRITE	Prompt: !,?10," ^ ^ \| \|" Line Location: EN+4
Function Call: WRITE	Prompt: !,?10," \| \| \| \|" Line Location: EN+5
Function Call: WRITE	Prompt: !,?10," \| \| \| \|" Line Location: EN+6
Function Call: WRITE	Prompt: !,?10," \| -------IV Additives (52.6) \|" Line Location: EN+7
Function Call: WRITE	Prompt: !,?10," -------------------------------IV Solution (52.7)" Line Location: EN+8
Function Call: WRITE	Prompt: ! Line Location: TAS+2
Function Call: WRITE	Prompt: !,"Nothing to Report" Line Location: NEW+43
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"Drug File Pharmacy Orderable IV Additives/Solution Checker" Line Location: HEAD+2
Function Call: WRITE	Prompt: ?60,$E(Y,1,18),! Line Location: HEAD+2
Function Call: WRITE	Prompt: "-" Line Location: HEAD+3
Function Call: WRITE	Prompt: @IOF,!,"Searching..." Line Location: REINACT+7
Function Call: WRITE	Prompt: !!,"NONE FOUND" Line Location: REINACT+17
Function Call: WRITE	Prompt: !,"Would like me to ZZ the "_PSBCNT_" INACTIVE Drugs?" Line Location: REINACT+18
Function Call: WRITE	Prompt: !,"BYE I AM DONE NOW!" Line Location: REINACT+22
Routine Call	%ZIS Line Location: TAS+18
Routine Call	%ZIS Line Location: TAS+2
Routine Call	DIE Line Location: REINACT+21

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	NEW+30, NEW+40
^PS(52.6 - [#52.6]	NEW+14, NEW+16
^PS(52.7 - [#52.7]	NEW+6, NEW+7, NEW+8, NEW+17
^PSDRUG - [#50]	NEW+2, NEW+3, NEW+4, NEW+29, NEW+31, NEW+39, NEW+41, REINACT+8, REINACT+9, REINACT+11
^TMP("$J"	REINACT+2!
^TMP($J	NEW+1!, NEW+12, NEW+21, NEW+24, NEW+25, NEW+26, NEW+27, NEW+34, NEW+35, NEW+36 , NEW+37, REINACT+14*

Name	Line Occurrences
HEAD	NEW+28, NEW+38
NEW	TAS+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HEAD+2, REINACT+18*, REINACT+19
%DT	REINACT+4*, REINACT+6!
%DT("A"	REINACT+3*
%ZIS	TAS+1*, TAS+2!
DUZ	EN+2
IO	TAS+9, TAS+10
IO("Q"	TAS+8, TAS+12, TAS+20!
IO(0	TAS+10
IOF	EN+1, HEAD+1, REINACT+7
IOM	HEAD+3
ION	TAS+16
IOSL	NEW+28, NEW+38
>> J	HEAD+3*
>> PBSCNT	NEW+19*
>> POP	TAS+3
PSB1	NEW+23~, NEW+24, NEW+25, NEW+26, NEW+27, NEW+32, NEW+33~, NEW+34, NEW+35, NEW+36 , NEW+37, NEW+42
PSB2	NEW+23~, NEW+25, NEW+26, NEW+27, NEW+31, NEW+33~, NEW+35, NEW+36, NEW+37, NEW+41
PSB3	NEW+23~, NEW+26, NEW+30, NEW+33~, NEW+36, NEW+40
PSB4	NEW+23~, NEW+26, NEW+29, NEW+33~, NEW+36, NEW+39
>> PSB5	NEW+27, NEW+31, NEW+37, NEW+41
PSBBDATE	TAS+5!, REINACT+6*, REINACT+10
PSBCNT	NEW~, NEW+2, NEW+10, NEW+43, REINACT+1~, REINACT+8, REINACT+16, REINACT+17, REINACT+18
>> PSBDATE	REINACT+9*, REINACT+10
PSBDV	TAS+5!
PSBEDATE	TAS+5!
PSBIEN	NEW~, NEW+2, NEW+3, NEW+4, NEW+9, NEW+12, NEW+18, NEW+21, REINACT+1~, REINACT+8 , REINACT+9, REINACT+11, REINACT+14, REINACT+15
PSBIV	NEW~, NEW+6, NEW+7, NEW+8, NEW+12, NEW+14, NEW+16, NEW+17, NEW+21, REINACT+1~
PSBIVD	NEW~, NEW+7, NEW+9, NEW+11, NEW+12, NEW+16, NEW+18, NEW+20, NEW+21, REINACT+1~
>> PSBNAME	REINACT+11*, REINACT+12, REINACT+13, REINACT+14, REINACT+15
PSBOI	NEW~, NEW+4*, NEW+5, NEW+6, NEW+12, NEW+14, NEW+21, REINACT+1~
>> PSBSTATUS	NEW+8, NEW+12, NEW+17, NEW+21
PSBTK	TAS+7~, TAS+9*
U	NEW+3, NEW+4, NEW+7, NEW+8, NEW+16, NEW+17, NEW+29, NEW+30, NEW+31, NEW+39 , NEW+40, NEW+41, REINACT+9, REINACT+11
VISN	TAS+5!
>> X	REINACT+5
Y	HEAD+2*, REINACT+5, REINACT+6!
ZTDESC	TAS+13~, TAS+15*
ZTIO	TAS+13~, TAS+16*
ZTRTN	TAS+13~, TAS+14*
ZTSAVE	TAS+13~
ZTSK	TAS+19, TAS+20!

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBIHS3

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: