Routine: PSIVLTR1

Package	Total	Call Graph
VA Fileman	2	EN^DIQ1 ^DIR
Inpatient Medications	1	$$ENDTC1^PSGMI

Package

Total

Call Graph

VA Fileman

EN^DIQ1 ^DIR

Inpatient Medications

$$ENDTC1^PSGMI

Package	Total	Caller Graph
Inpatient Medications	3	PSIVPGE PSIVPR PSIVVW1

Package

Total

Caller Graph

Inpatient Medications

PSIVPGE PSIVPR PSIVVW1

Name	Comments	DBIA/ICR reference
PAUSE	;
H2	;Header for Unique ID #s
H	;Header
K	;
1	;Get num labels, track, daily usage
P	;Print out info
ERROR	;
DATA(DFN,ON)	;Get the information

Name	Field # of Occurrence
EN^DIQ1	DATA+8
^DIR	PAUSE+1
$$ENDTC1^PSGMI	DATA+11, DATA+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No label log to report.",! Line Location: DATA+2
Function Call: WRITE	Prompt: $$ENDTC1^PSGMI($G(PSJD2(55.0105,PSJBLN,4,"I"))),?18,$G(PSJD2(55.0105,PSJBLN,.01,"I")) Line Location: DATA+11
Function Call: WRITE	Prompt: ! Line Location: DATA+11
Function Call: WRITE	Prompt: ?40,$G(PSJD2(55.0105,PSJBLN,5,"E")) Line Location: DATA+12
Function Call: WRITE	Prompt: ?50,$S(X:"YES",1:"NO"),?56,$G(PSJD2(55.0105,PSJBLN,2,"E")) Line Location: DATA+13
Function Call: WRITE	Prompt: ?66,$$ENDTC1^PSGMI($G(PSJD2(55.0105,PSJBLN,1,"I"))) Line Location: DATA+14
Function Call: WRITE	Prompt: ! Line Location: DATA+15
Function Call: WRITE	Prompt: !,COU,?3,DATE,!,?18,OG,?32,$E($P(^VA(200,USER,0),U),1,15),?50,NUMLAB Line Location: P+1
Function Call: WRITE	Prompt: ?60,TRA Condition for execution: $P(N,U,3)=1!($P(N,U,3)=5) Line Location: P+1
Function Call: WRITE	Prompt: ?77,CD Condition for execution: $P(N,U,3)=1 Line Location: P+1
Function Call: WRITE	Prompt: ! Line Location: P+1
Function Call: WRITE	Prompt: !!,"LABEL LOG:",!!,"#",?3,"DATE/TIME",?18,"ACTION",?32,"USER",?47,"#LABELS",?60,"TRACK",?75,"COUNT",! Line Location: H+1
Function Call: WRITE	Prompt: "=" Line Location: H+1
Function Call: WRITE	Prompt: ! Condition for execution: I=80 Line Location: H+1
Function Call: WRITE	Prompt: !!,"Unique IDs for this order:",!! Line Location: H2+1
Function Call: WRITE	Prompt: "Label Date/Time",?18,"Unique ID",?40,"Status",?50,"Count",?56,"BCMA Action - Date/Time",!! Line Location: H2+2
Function Call: WRITE	Prompt: !!?40,"Bag(s) DISPENSED in IV Room: ",$P(^PS(59.5,$P($P(N,U,8)," "),0),U) Line Location: ERROR+1
Function Call: WRITE	Prompt: !?40,"Bag(s) ",OG_" in IV Room: ",$P(^PS(59.5,$P($P(N,U,8)," ",2),0),U) Line Location: ERROR+2
Routine Call	DIR Line Location: PAUSE+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	1+2
^PS(55 - [#55]	DATA+2, DATA+3, DATA+4, DATA+6
^PS(59.5 - [#59.5]	ERROR+1, ERROR+2
^VA(200 - [#200]	P+1

Name	Line Occurrences
1	DATA+3
ERROR	P+1
H	DATA+2
H2	DATA+5, DATA+10
P	1+3
PAUSE	DATA+5, DATA+10, P+1

Name	Field # of Occurrence
^(	DATA+3
^(0	1+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CD	K+1!, 1+3*, P+1, P+2!
>> COU	DATA+2, DATA+3, P+1
DA	DATA+1~, DATA+7!, DATA+8*
DATE	K+1!, 1+2*, P+1, P+2!
DFN	DATA~, DATA+2, DATA+3, DATA+4, DATA+6, DATA+8
DIC	DATA+1~, DATA+7!, DATA+8*
DIQ	DATA+1~, DATA+7!, DATA+8*
DIQ(0	DATA+8*
DIR	PAUSE+1~
DIR(0	PAUSE+1*
DR	DATA+1~, DATA+7!, DATA+8*
>> DTOUT	PAUSE+1
>> DUOUT	PAUSE+1
>> I	H+1*
IOSL	DATA+10, P+1
IOST	DATA+2
>> L	DATA+3*
>> N	1+2*, 1+3, P+1, ERROR+1, ERROR+2
NUMLAB	K+1!, 1+3*, P+1, P+2!
>> OG	1+2*, P+1, ERROR+2
ON	DATA~, DATA+2, DATA+3, DATA+4, DATA+9
>> PSIVSCR	DATA+2*, DATA+10, P+1
PSJBLN	DATA+1~, DATA+5, DATA+6, DATA+8, DATA+9, DATA+11, DATA+12, DATA+13, DATA+14
PSJD1	DATA+1~
PSJD2	DATA+1~, DATA+7!
PSJD2(	DATA+9, DATA+11, DATA+12, DATA+13, DATA+14
PSJDNE	DATA+2!, DATA+3, PAUSE+1*
TRA	K+1!, 1+3*, P+1, P+2!
U	1+2, 1+3, P+1, ERROR+1, ERROR+2
>> USER	1+2*, P+1
USEROG	P+2!
X	DATA+1~, DATA+13*
>> Y	1+2*

Customize PDF page

Package: Inpatient Medications

Routine: PSIVLTR1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: