Routine: PSIVORE

Call Graph

Call Graph Total: 27

Package	Total	Call Graph
Inpatient Medications	20	ENQL^PSGLW ENGNN^PSGOETO (ENCHS1,ENGETP,ENQ,Q)^PSIV ^PSIVCHK ^PSIVHLP (,ENLBL)^PSIVOPT VF^PSIVORC2 (DEL55,GTPD,NEW)^PSIVORE2 (CLINIC,NATURE,ORPARM)^PSIVOREN PUT531^PSIVORFA (NEW55,SET55)^PSIVORFB SET^PSIVORFE ^PSIVORLB ($$GTPCI,GTOT)^PSIVUTL ^PSIVXU WP^PSJAC EN1^PSJHL2 VF1^PSJLIACT (HOLDHDR,LOCKERR)^PSJOE ($$ENORL,EFDIV)^PSJUTL
Registration	2	(DEM,INP)^VADPT EN^VALM
VA Fileman	2	FILE^DICN ^DIR
IHS Changes To Pharmacy	1	SETPTCX^APSPFUNC
Order Entry Results Reporting	1	(LK,ULK)^ORX2
Pharmacy Data Management	1	($$L,UL)^PSSLOCK

Caller Graph

Caller Graph Total: 7

Package	Total	Caller Graph
Inpatient Medications	7	PSIVOPT1 PSIVORC PSIVORC2 PSJCOMR PSJI ORDER PSJLIACT PSJOE0

Entry Points

Name	Comments	DBIA/ICR reference
OK1
DEL55	;
EN	;Update schedule interval P(15) only on continuous orders.
OK	;Print example label, run order through checker, ask if it is ok.
ULK	;
ENIN1	;
SETN	;Set up patient 0 node if needed.
DOA
SPSOL
BEG	;Get patient and make sure he is living.
BAD	;; I X["N" D GSTRING^PSIVORE1,^PSIVORV2,GTFLDS^PSIVORFE G OK
SITE	;See if site parameters are ok.
Q	; Kill and exit.
INMED
HK	;Queue job to print MAR labels generated for this patient.
ENIN	;Entry for Combined IV/UD order entry. Called by PSJOE0.
CAL	;Calculate doses.
ASK	;See if patient has been admitted.
NEW	;Ask to enter new order.
ENQ
NONVF(PSJOC)	;If file at NonVF then quit with 1

External References

Name	Field # of Occurrence
SETPTCX^APSPFUNC	SETN+1
FILE^DICN	SETN+2
^DIR	ASK+2, NEW+2, ENIN1+3
LK^ORX2	NEW+3
ULK^ORX2	ULK+2
ENQL^PSGLW	BEG+6, HK+3
ENGNN^PSGOETO	NONVF+4
ENCHS1^PSIV	SETN+6
ENGETP^PSIV	BEG+5
ENQ^PSIV	OK+8
Q^PSIV	Q+1
^PSIVCHK	OK+2
^PSIVHLP	BAD+3
^PSIVOPT	CAL+2
ENLBL^PSIVOPT	OK1+7
VF^PSIVORC2	NONVF+13
DEL55^PSIVORE2	INMED+1, DOA, OK1+2, DEL55+5
GTPD^PSIVORE2	OK+1, NONVF+5
NEW^PSIVORE2	INMED+1
CLINIC^PSIVOREN	OK1+4, NONVF+7
NATURE^PSIVOREN	OK1+2, NONVF+6
ORPARM^PSIVOREN	SITE+3, OK1+1
PUT531^PSIVORFA	NONVF+9
NEW55^PSIVORFB	INMED
SET55^PSIVORFB	OK1+3
SET^PSIVORFE	OK1+5
^PSIVORLB	OK+4
$$GTPCI^PSIVUTL	INMED+1
GTOT^PSIVUTL	OK+1
^PSIVXU	SITE+1
WP^PSJAC	HK+3
EN1^PSJHL2	OK1+5, NONVF+10
VF1^PSJLIACT	OK1+6
HOLDHDR^PSJOE	ENIN+1
LOCKERR^PSJOE	BEG+1
$$ENORL^PSJUTL	OK1
EFDIV^PSJUTL	OK+6
$$L^PSSLOCK	BEG+5
UL^PSSLOCK	BEG+5
DEM^VADPT	NEW+1
INP^VADPT	HK+3
EN^VALM	BAD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Patient has died." Line Location: ASK+1
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"You have no IV ROOM parameters ... PLEASE ... PLEASE ...",!,"Exit this package and reenter properly !!",!! Line Location: SITE+2
Function Call: WRITE	Prompt: ! Line Location: OK+4
Function Call: WRITE	Prompt: !,"Start date: " Line Location: OK+4
Function Call: WRITE	Prompt: !,"Start date: " Line Location: OK+4
Function Call: WRITE	Prompt: !,"Start date: " Line Location: OK+4
Function Call: WRITE	Prompt: ! Line Location: ENIN+2
Function Call: WRITE	Prompt: !,"...transcribing this non-verified order...." Line Location: NONVF+8
Routine Call	VALM Line Location: BAD+2
Routine Call	DIR Line Location: ASK+2 NEW+2 ENIN1+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(55 - [#55]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	OK+4
^PS(53.1 - [#53.1]	DEL55+3*
^PS(53.45 - [#53.45]	BEG+1, Q+1
^PS(55 - [#55]	SETN+2, SETN+4, INMED+2, EN+2, EN+3, EN+4, SPSOL, DEL55+2, DEL55+3

Label References

Name	Line Occurrences
$$NONVF	DOA+1
@(	ENIN1+6
ASK	BEG+5
BAD	OK+3
DEL55	NONVF+6, NONVF+11
DOA	OK+2
EN	CAL+2
ENIN	ENIN1+7
ENQ	EN+3
HK	SETN+6
INMED	ENIN1+7
NEW	INMED, INMED+1, INMED+2
OK	INMED+2, BAD+3
OK1	OK+8
Q	BEG+1, BEG+7, INMED
SITE	PSIVORE+14
SPSOL	EN+3
ULK	INMED, INMED+1, INMED+2

Naked Globals

Name	Field # of Occurrence
^(	SPSOL
^(0	EN+2
^(2	DEL55+3*
^(5.1	SETN+2!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	SETN+2!, ENIN1+1~, NONVF+4!
DD	SETN+2!
DFN	BEG+5, SETN+1, SETN+2, SETN+4, SETN+6, NEW+3, INMED+2, ULK+2, HK+1, HK+2~* , HK+4, OK1+5, OK1+7, EN+2, EN+3, EN+4, SPSOL, NONVF+10, DEL55+2, DEL55+3
DIC	SETN+2!*
DIC(0	SETN+2*
DIK	ASK+2!
DINUM	SETN+2*!
DIR	ASK+2!, NEW+2!, ENIN1+1~
DIR("??"	ASK+2, NEW+2
DIR("A"	ASK+2, NEW+2, ENIN1+3*
DIR("B"	ASK+2, NEW+2
DIR(0	ASK+2, NEW+2, ENIN1+3*
DO	SETN+2!
>> DONE	ENIN+3*
>> DTOUT	ENIN1+5
>> DUOUT	OK+2
DUZ	BEG+1, Q+1, OK1+7
>> ERR	OK+3, OK+8
FIL	Q+2!
FLAG	PSIVORE+12~, ENIN+3, ENIN1+5, ENIN1+6
>> HELP	BAD+3*
I1	Q+2!
ND	Q+2!
>> OD	OK1+5, CAL+2
>> ON	BAD+2, OK1, OK1+5, NONVF+4, NONVF+10, NONVF+12, DEL55+3
ON55	INMED!, INMED+1, INMED+2, BAD+1, BAD+2, OK1, OK1+5, OK1+7, EN+2, EN+3 , EN+4, SPSOL, NONVF+6, NONVF+11, NONVF+12*, DEL55+1, DEL55+2, DEL55+3
>> ORNATR	OK1+5*
>> ORSTS	OK1*
P	NEW+2!, ENIN1+2!
P("FRES"	INMED*
P("INS"	BAD+2*
P("NAT"	OK1+2, OK1+5, NONVF+6
P("OT"	INMED*
P("PD"	OK+1
P("PON"	INMED+1*
P("REN"	NONVF+4*
P("RES"	INMED+1*
P(15	EN+3, EN+4
P(17	BAD+1, OK1, NONVF+4*
P(2	INMED+1, OK+4, OK1+5, CAL+2
P(21	BAD+1
P(22	OK1+4
P(23	ENIN1+6*
P(3	OK+4
P(4	INMED*, OK+1
P(5	ENIN1+6*
P(6	OK1
>> P16	OK+1*
PC	Q+2!
PDM	Q+2!
PPAGE	PSIVORE+12~, BEG+5*
PSGDT	Q+2!
PSGEBN	BAD+2~*
PSGID	Q+2!
PSGLI	BAD+2~*
PSGLMT	Q+2!
PSGOEAV	NONVF+1~*, NONVF+2, NONVF+3
>> PSGOP	PSIVORE+14, BEG+6, HK+1, HK+2, HK+4
>> PSGP	SETN+6*
PSGPTMP	PSIVORE+12~, BEG+5*
PSGSI	Q+2!
PSIVAC	SETN+6, INMED+1, Q+2!, OK+8, ENIN+3*
>> PSIVBR	SETN+6*
PSIVCHG	NEW+2!, Q+2!, OK+7, ENIN1+2!
>> PSIVCOPY	OK+8
>> PSIVCT	OK+1*
PSIVEXAM	OK+1*, OK+4!
PSIVFN	SETN+2!*
>> PSIVNOL	OK+1*
PSIVORFA	DEL55+4~*
PSIVQ	PSIVORE+14!, SITE+1!, SITE+3*
>> PSIVSITE	SITE+2
>> PSIVSN	SITE+2
PSIVTYPE	NEW+2!, ENIN1+6*
PSIVUP	INMED+1*, Q+2!
PSIVX	Q+2!
PSJACNWP	HK+2~
PSJACPF	HK+2~, HK+3*
PSJCOM	ENIN1+2!
>> PSJIVBD	OK+9*
>> PSJIVORF	OK1+1, OK1+2, OK1+4, OK1+5
PSJLK	BEG+4~, BEG+5*
PSJLSORX	NEW+3*, ULK+1, ULK+2!
PSJNARC	SETN+5*, Q+2!
PSJNEW	PSIVORE+12~*
>> PSJNKF	Q+1*
PSJOC	NONVF~, NONVF+10
PSJOE	NEW+2!, INMED, INMED+1, INMED+2, Q+1, ENIN1+1~, ENIN1+3*
>> PSJOEPF	ENIN1+4*
PSJOPC	Q+2!
PSJORD	BAD+2, NONVF+12~
>> PSJORL	OK1*
>> PSJORNP	OK1*
>> PSJORQF	ENIN1+5, ENIN1+7
PSJOUT	PSIVORE+12~, INMED!, ENIN+3~, ENIN1+7
PSJPCAF	ENIN1+1~
PSJPWD	SETN+6, HK+2~, HK+3
PSJSYSL	BEG+6, HK+2~, HK+3, ENIN1+1~
>> PSJSYSP0	NONVF+1
>> PSJSYSU	NONVF+2, NONVF+3
PSJSYSW	HK+2~
PSJSYSW0	HK+2~
SPSOL	EN+3, ENQ!, SPSOL*
U	HK+3, EN+2, EN+3, EN+4, SPSOL, ENIN1+6, NONVF+1, DEL55+3
>> VADM(1	NEW+1, NEW+2
>> VADM(6	ASK+1
VAERR	HK+2~
VAIN	HK+2~
VAIN(4	ASK+2, ASK+3, SETN+6, HK+3, OK1, ENIN1+1, NONVF+7
>> VALMBCK	BAD+2*
WSCHADM	BEG+5!, ASK+3, ENIN1+1~
X	SETN+2, NEW+3~, ULK+2~, OK+2, OK+3, OK+8, BAD+2, BAD+3, DOA, ENIN1+4 , ENIN1+5, DEL55+2, DEL55+3
>> XQUIT	SITE+1
XXX	EN+3, EN+4, ENQ!, SPSOL, SPSOL+1!
>> Y	ASK+2, NEW+2, NEW+3, OK+4*, ENIN1+6
>> ZZND	OK+6

Customize PDF page

Package: Inpatient Medications

Routine: PSIVORE

Information

Source Information

Call Graph

Call Graph Total: 27

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: