Routine: PSIVPGE

Information

PSIVPGE ;BIR/PR-PURGE IV ORDERS ;05 DEC 97 / 8:44 AM

Source Information

Source file <PSIVPGE.m>

Call Graph

Call Graph Total: 19

Package	Total	Call Graph
Inpatient Medications	13	ENIVKV^PSGSETU ENNA^PSIVACT ^PSIVHLP ^PSIVHLP1 ^PSIVHLP2 DATA^PSIVLTR1 DCNV^PSIVOE GT55^PSIVORFB (ENNH,ENNONUM)^PSIVORV2 ENLOG^PSIVVW1 ^PSIVXU ENIV^PSJAC PAUSE^PSJLMUTL
VA Fileman	4	^%DT (,NOW)^%DTC YN^DICN ^DIR
Kernel	1	^%ZTLOAD
Registration	1	FULL^VALM1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSJI PURGE ORDERS

Entry Points

Name	Comments	DBIA/ICR reference
A
PRGE	;
EN	;
YN	;Make sure it is ok to start purge.
DEQ
BEG	;Start purge
VW2	;Ask to view label log
VW1	;Ask user to view activity log.
Q
PAUSE	;
ENT	;Will let user delete an IV order if no doses printed.
VW	;Ask user to view order.
ENDEL	;D DCNV^PSIVOE S X=^PS(55,DFN,"IV",ON,0) S $P(X,U,17)="P" K:$P(X,U,3)]"" ^PS(55,"AIV",$P(X,U,3),DFN,ON) S $P(X,U,3)=1,^PS(55,DFN,"IV",ON,0)=X,^PS(55,"AIV",1,DFN,ON)="" I $D(^PS(55,DFN,"IV",ON,"ADC")) S TC=^("ADC") K ^PS(55,"ADC",TC,DFN,ON)

External References

Name	Field # of Occurrence
^%DT	BEG+1
^%DTC	BEG+2
NOW^%DTC	BEG+2, DEQ+1, DEQ+5
^%ZTLOAD	YN+3
YN^DICN	VW+1, VW1+1, VW2+1, YN+1, A
^DIR	PAUSE+1
ENIVKV^PSGSETU	Q
ENNA^PSIVACT	DEQ+4
^PSIVHLP	BEG+1
^PSIVHLP1	VW+1, VW1+1, YN+1, A
^PSIVHLP2	VW2+1
DATA^PSIVLTR1	PRGE+7
DCNV^PSIVOE	PRGE+8, ENDEL+1
GT55^PSIVORFB	PRGE+3
ENNH^PSIVORV2	ENT+2
ENNONUM^PSIVORV2	PRGE+3
ENLOG^PSIVVW1	PRGE+5
^PSIVXU	EN+1
ENIV^PSJAC	DEQ+4
PAUSE^PSJLMUTL	ENT+3
FULL^VALM1	ENT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"View orders before purged" Line Location: VW+1
Function Call: WRITE	Prompt: $C(7),!!,"WARNING -- YOU HAVE NOT SELECTED A PRINTER PROFILE DEVICE !!" Line Location: VW+2
Function Call: WRITE	Prompt: !,"View activity logs before purged" Line Location: VW1+1
Function Call: WRITE	Prompt: !,"View label logs before purged" Line Location: VW2+1
Function Call: WRITE	Prompt: ! Line Location: BEG+1
Function Call: WRITE	Prompt: $C(7),!,"Enter a date greater than 30 days ago.",! Line Location: BEG+2
Function Call: WRITE	Prompt: !!,"Will purge expired IV orders from " Line Location: YN+1
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2),"back.",!,"Ok to start purge" Line Location: YN+1
Function Call: WRITE	Prompt: !!,"Time finished: " Line Location: DEQ+5
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2) Line Location: DEQ+5
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2) Line Location: DEQ+5
Function Call: WRITE	Prompt: !,"Delete this order" Line Location: A+0
Function Call: WRITE	Prompt: $C(7)," Order not deleted." Line Location: A+1
Function Call: WRITE	Prompt: !,"Order # ",ON," ... Not deleted ",$P(Y,"^",2)," dose(s) given " Line Location: A+2
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2) Line Location: A+2
Function Call: WRITE	Prompt: " Order deleted." Line Location: A+3
Routine Call	DIR Line Location: PAUSE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	YN+1, DEQ, DEQ+1, DEQ+5, A+2
^PS(55 - [#55]	DEQ+3, DEQ+4, PRGE+1, PRGE+2!, PRGE+3, PRGE+4, PRGE+5, PRGE+7, PRGE+8, PRGE+9! , PRGE+10!, PRGE+11!, PRGE+12, A+2, ENDEL+1, ENDEL+2!, ENDEL+3!, ENDEL+4!, ENDEL+5*, ENDEL+6!

Name	Line Occurrences
A	ENT+3, A
BEG	BEG+2
ENDEL	A+3
PAUSE	PRGE+3, PRGE+5, PRGE+7
PRGE	DEQ+4
Q	VW+1, VW1+1, VW2+1, BEG+1, YN+2, YN+3, DEQ+6
VW	EN+1, VW+1
VW1	VW1+1
VW2	VW2+1
YN	YN+1

Name	Field # of Occurrence
^("ADC"	PRGE+2, ENDEL+6
^(0	PRGE+12*
^(2	PRGE+1
^(9	A+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	VW+1, VW+2, VW1+1, VW2+1, BEG+2, YN+1, YN+2, DEQ+1, DEQ+5, A* , A+1
>> %DT	BEG+1*
>> %DT("A"	BEG+1*
DFN	Q!, DEQ+4*, PRGE+1, PRGE+2, PRGE+3, PRGE+4, PRGE+5, PRGE+7, PRGE+8, PRGE+9 , PRGE+10, PRGE+11, PRGE+12, A+2, ENDEL+1, ENDEL+2, ENDEL+3, ENDEL+4, ENDEL+5, ENDEL+6
DIR	PAUSE+1!
DIR(0	PAUSE+1*
>> DIRUT	DEQ+3, DEQ+4, DEQ+5, PRGE+3, PRGE+5, PRGE+7
>> HELP	VW+1, VW1+1, VW2+1, BEG+1, YN+1, A
IO	DEQ
IO(0	DEQ
IOF	Q, DEQ
ION	VW+2, YN+3
IOST	DEQ
N	Q!
ON	Q!, DEQ+4, PRGE+1, PRGE+2, PRGE+3, PRGE+4, PRGE+5, PRGE+6, PRGE+7, PRGE+8 , PRGE+9, PRGE+10, PRGE+11, ENT+2, A+2*, ENDEL+1, ENDEL+2, ENDEL+3, ENDEL+4, ENDEL+5 , ENDEL+6
>> ON55	PRGE+3*, PRGE+5, A+2
P	Q!
P("PON"	PRGE+3*
P17	Q!
PS	Q!
PSIVDT	Q!, DEQ+3*, DEQ+4, PRGE+3, PRGE+4, PRGE+5, PRGE+7, PRGE+9
PSIVLAB	Q!, VW+1, VW2+1, PRGE+7
PSIVLOG	Q!, VW+1, VW1+1, PRGE+5
PSIVPDT	Q!, BEG+2, YN+1, DEQ, DEQ+2, DEQ+3, PRGE+1
PSIVPN	Q!, DEQ, DEQ+5, PRGE+3, PRGE+4*
>> PSIVPR	Q, VW+2, YN+3
PSIVRD	Q!, DEQ+2*
PSIVREA	Q!
>> PSIVSLV	DEQ*, DEQ+1, PAUSE+1
>> PSIVSN	PRGE+1, PRGE+9
PSIVVO	Q!, VW+2*, VW1+1, VW2+1, DEQ+4, PRGE+3, PRGE+4
>> PSIVXU	EN+1
PSJACNWP	Q!, DEQ+4*
>> PSJORD	PRGE+5, ENT+2
>> TC	ENDEL+6*
TDC	PRGE+2*!
U	PRGE+10, PRGE+11, ENDEL+1, ENDEL+2, ENDEL+3, ENDEL+4, ENDEL+5
>> X	BEG+2, PRGE+8, PRGE+10, PRGE+11, ENDEL+1, ENDEL+2, ENDEL+3, ENDEL+4, ENDEL+5*
>> X1	BEG+2*
>> X2	BEG+2*
XQUIT	EN+1~
>> Y	BEG+1, BEG+2, YN+1, DEQ, DEQ+1, DEQ+5, A+2
Z	Q!
>> ZTDESC	YN+3*
>> ZTIO	YN+3*
>> ZTQUEUED	Q
>> ZTREQ	Q*
>> ZTRTN	YN+3*
>> ZTSAVE("PSIVLAB"	YN+3*
>> ZTSAVE("PSIVLOG"	YN+3*
>> ZTSAVE("PSIVPDT"	YN+3*
>> ZTSAVE("PSIVSITE"	YN+3*
>> ZTSAVE("PSIVSN"	YN+3*
>> ZTSAVE("PSIVVO"	YN+3*
>> ZTSAVE("PSJSYSU"	YN+3*
>> ZTSAVE("PSJSYSW0"	YN+3*
ZTSK	Q!

Customize PDF page

Package: Inpatient Medications

Routine: PSIVPGE

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: