Routine: PSBIHS2

Package	Total	Call Graph
VA Fileman	6	(,FIND)^DIC WAIT^DICD YN^DICN FIELD^DID ^DIK $$GET1^DIQ
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Barcode Medication Administration	1	SMED^PSBMLTS

Package	Total	Caller Graph
Barcode Medication Administration	1	PSBIHS DRUG CHECK

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
SMED(PSBVAL,PSBL,PSBCH)	; SAME LOGIC in Scanner^PSBMLTS
TSK1	;
PRNT	;REPORT LOOP
TAS	;TASK IT OR NOT
BAD	;INACTIVE DRUGS WITH DUP SYNS
KILL	;
AUTO;
NEW	;

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) Line Location: EN+2
Function Call: WRITE	Prompt: !,"Let's Look at those 'Synonyms' in 'The Drug File' File: 50" Line Location: EN+3
Function Call: WRITE	Prompt: !,"Searching....." Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: TAS+2
Function Call: WRITE	Prompt: !,"Found "_PSBC_" Synonym Issues." Line Location: PRNT+2
Function Call: WRITE	Prompt: !,PSBFLD("LABEL"),":" Line Location: SMED+23
Function Call: WRITE	Prompt: "." Line Location: SMED+23
Function Call: WRITE	Prompt: ! Line Location: SMED+25
Function Call: WRITE	Prompt: "-" Line Location: SMED+25
Function Call: WRITE	Prompt: !,"Hello,"_$P($$GET1^DIQ(200,DUZ,.01,"E"),",",2),!,"I found Dupiclate synonyms on Inactive Drugs, would youlike me clean these up for up?" Line Location: AUTO;+2
Function Call: WRITE	Prompt: !,"Sorry ",$P($$GET1^DIQ(200,DUZ,.01,"E"),",",2)," you dO not hold the 'PSJ RHARM' key Bye!!" Line Location: AUTO;+3
Function Call: WRITE	Prompt: !,"All Done you just removed "_PSBCNT_" Synonyms from "_PSBC_" Drugs." Line Location: AUTO;+12
Routine Call	%ZIS Line Location: TAS+18
Routine Call	DIC Line Location: SMED+6
Routine Call	DIC Line Location: EN+7
Routine Call	%ZIS Line Location: EN+8 TAS+2

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^PSDRUG - [#50]	Classic Fileman Calls, FIELD^DID, FIND^DIC

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	EN+9
^PSDRUG - [#50]	NEW+4, NEW+9, NEW+11, AUTO;+10
^TMP("DILIST"	SMED+4!, SMED+8, SMED+10, SMED+11, SMED+13, SMED+14, SMED+16, SMED+19, SMED+20, SMED+21 , SMED+22, SMED+24, SMED+26!
^TMP($J	NEW+1!, NEW+8, NEW+15, BAD+1, BAD+2, BAD+3, PRNT+1, SMED+20*, AUTO;+1, AUTO;+8 , KILL+1!
^XUSEC("PSJ RPHARM"	AUTO;+3

Name	Field # of Occurrence
>> %	AUTO;+2*, AUTO;+4
%ZIS	TAS+1*, TAS+2!
DA	AUTO;+11*, AUTO;+13!
DA(1	AUTO;+9*, AUTO;+13!
>> DIC	EN+7*
>> DIC(0	EN+7*
DIK	AUTO;+7*, AUTO;+13!
DUZ	EN+2, AUTO;+2, AUTO;+3
IO	EN+5, TAS+9, TAS+10
IO("Q"	TAS+8, TAS+12, TAS+20!
IO(0	TAS+10
IOF	EN+1
IOM	SMED+25
ION	TAS+16
>> IOP	EN+8*
J	NEW+12~, SMED+25
>> POP	EN+10, TAS+3
PSBBDATE	TAS+5!
PSBC	NEW+1, PRNT+2, SMED+9, AUTO;+5~, AUTO;+6, AUTO;+9, AUTO;+12, AUTO;+13!, KILL+1!
PSBCH	SMED~, SMED+10, SMED+12, SMED+13, SMED+14, SMED+19, SMED+23, SMED+24, SMED+25
PSBCHECK	KILL+1!
PSBCHECK1	KILL+1!
PSBCNT	NEW+1, SMED+20, AUTO;+5~, AUTO;+6, AUTO;+8, AUTO;+11*, AUTO;+12, AUTO;+13!, KILL+1!
PSBCNT1	NEW+1*, KILL+1!
PSBDV	TAS+5!
PSBEDATE	TAS+5!
>> PSBFLD	SMED+15, SMED+16, SMED+17, SMED+19, SMED+24
>> PSBFLD("LABEL"	SMED+19, SMED+23
PSBH	KILL+1!
PSBIEN	NEW+3~, NEW+4, NEW+5, NEW+8, NEW+9, NEW+11, AUTO;+8, AUTO;+9, AUTO;+10, AUTO;+13! , KILL+1!
PSBIEN1	KILL+1!
PSBJ	NEW+3~, NEW+9, NEW+11, AUTO;+10, AUTO;+11, KILL+1!
PSBL	SMED~, SMED+8
PSBSCAN	NEW+5!, NEW+13!
PSBSCAN(0	NEW+8, NEW+14
PSBSYN	BAD+1, BAD+3, PRNT+1*, KILL+1!
PSBSYNC	KILL+1!
PSBTEXT	NEW+11, NEW+12, NEW+13, NEW+15, KILL+1!
PSBTK	TAS+7~
PSBVAL	SMED~, SMED+6, SMED+10, SMED+19, SMED+20
>> PSBX	SMED+11*, SMED+12, SMED+13, SMED+14, SMED+16, SMED+19, SMED+20, SMED+21, SMED+22, SMED+24
U	EN+9
>> UIO	EN+9*, SMED+6
>> UIO1	EN+5*, SMED+7
VISN	TAS+5!
>> X	EN+7*
>> Y	EN+8, EN+9
ZTDESC	TAS+13~, TAS+15*
ZTIO	TAS+13~, TAS+16*
ZTRTN	TAS+13~, TAS+14*
ZTSAVE	TAS+13~
ZTSK	TAS+19, TAS+20!