Routine: PSIVORE

Package	Total	Call Graph
Inpatient Medications	22	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 IN^PSJOCDS (HOLDHDR,LOCKERR)^PSJOE CM^PSJOE1 ($$ENORL,EFDIV)^PSJUTL
VA FileMan	2	FILE^DICN ^DIR
List Manager	1	EN^VALM
Order Entry Results Reporting	1	(LK,ULK)^ORX2
Pharmacy Data Management	1	($$L,UL)^PSSLOCK
Registration	1	(DEM,INP)^VADPT

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

Entry Points

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

External References

Name	Field # of Occurrence
FILE^DICN	SETN+1
^DIR	ASK+2, NEW+2, ENIN1+6
LK^ORX2	NEW+3
ULK^ORX2	ULK+2
ENQL^PSGLW	BEG+6, HK+3
ENGNN^PSGOETO	NONVF+4
ENCHS1^PSIV	SETN+5
ENGETP^PSIV	BEG+5
ENQ^PSIV	OK+9
Q^PSIV	Q+1
^PSIVCHK	OK+2
^PSIVHLP	BAD+3
^PSIVOPT	CAL+2
ENLBL^PSIVOPT	OK1+7
VF^PSIVORC2	NONVF+15
DEL55^PSIVORE2	INMED+3, DOA, OK1+2, DEL55+5
GTPD^PSIVORE2	OK+1, NONVF+5
NEW^PSIVORE2	INMED+3
CLINIC^PSIVOREN	OK1+4, NONVF+7
NATURE^PSIVOREN	OK1+2, NONVF+6
ORPARM^PSIVOREN	SITE+4, OK1+1
PUT531^PSIVORFA	NONVF+9
NEW55^PSIVORFB	INMED
SET55^PSIVORFB	OK1+3
SET^PSIVORFE	OK1+5
^PSIVORLB	OK+4
$$GTPCI^PSIVUTL	INMED+3
GTOT^PSIVUTL	OK+1
^PSIVXU	SITE+1
WP^PSJAC	HK+3
EN1^PSJHL2	OK1+5, NONVF+10
VF1^PSJLIACT	OK1+6
IN^PSJOCDS	OK+7
HOLDHDR^PSJOE	ENIN+1
LOCKERR^PSJOE	BEG+1
CM^PSJOE1	ENIN1+4
$$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+3
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: ! Line Location: ENIN1+4
Function Call: WRITE	Prompt: !,"...transcribing this non-verified order...." Line Location: NONVF+8
Routine Call	DIR Line Location: ASK+2 NEW+2 ENIN1+6
Routine Call	VALM Line Location: BAD+2

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+1, SETN+3, INMED+4, EN+2, EN+3, EN+4, SPSOL, DEL55+2, DEL55+3
^TMP("PSODAOC"	ENIN1+3!

Label References

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

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	SETN+1!, ENIN1+2~, NONVF+4!
DD	SETN+1!
DFN	BEG+5, SETN+1, SETN+3, SETN+5, NEW+3, INMED+4, 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+1!*
DIC(0	SETN+1*
DIK	ASK+2!
DINUM	SETN+1*!
DIR	ASK+2!, NEW+2!, ENIN1+2~
DIR("??"	ASK+2, NEW+2
DIR("A"	ASK+2, NEW+2, ENIN1+6*
DIR("B"	ASK+2, NEW+2
DIR(0	ASK+2, NEW+2, ENIN1+6*
DO	SETN+1!
>> DONE	SITE+2, ENIN+3*
>> DTOUT	ENIN1+11
>> DUOUT	OK+2
DUZ	BEG+1, Q+1, OK1+7
>> ERR	OK+3, OK+9
FIL	Q+2!
FLAG	PSIVORE+13~, ENIN+3, ENIN1+11, ENIN1+12
>> 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+14, DEL55+3
ON55	INMED!, INMED+3, INMED+4, OK+7, BAD+1, BAD+2, OK1, OK1+5, OK1+7, EN+2 , EN+3, EN+4, SPSOL, NONVF+6, NONVF+13, NONVF+14*, DEL55+1, DEL55+2, DEL55+3
>> ORNATR	OK1+5*
>> ORSTS	OK1*
P	NEW+2!, ENIN1+3!
P("APPT"	ENIN1+5*
P("CLIN"	ENIN1+5*
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+3*
P("REN"	NONVF+4*
P("RES"	INMED+3*
P(15	EN+3, EN+4
P(17	BAD+1, OK1, NONVF+4*
P(2	INMED+3, OK+4, OK1+5, CAL+2
P(21	BAD+1
P(22	OK1+4
P(23	ENIN1+12*
P(3	OK+4
P(4	INMED*, OK+1
P(5	ENIN1+12*
P(6	OK1
>> P16	OK+1*
PC	Q+2!
PDM	Q+2!
PPAGE	PSIVORE+13~, 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+15, BEG+6, HK+1, HK+2, HK+4
>> PSGORQF	OK+7
>> PSGP	SETN+5*
PSGPTMP	PSIVORE+13~, BEG+5*
PSGSI	Q+2!
PSIVAC	SETN+5, INMED+3, Q+2!, OK+9, ENIN+3*
>> PSIVBR	SETN+5*
PSIVCHG	NEW+2!, Q+2!, OK+8, ENIN1+3!
>> PSIVCOPY	OK+9
>> PSIVCT	OK+1*
PSIVEXAM	OK+1*, OK+4!
PSIVFN	SETN+1!*
>> PSIVNOL	OK+1*
PSIVORFA	DEL55+4~*
PSIVQ	PSIVORE+15!, SITE+1!, SITE+4*
>> PSIVSITE	SITE+3
>> PSIVSN	SITE+3
PSIVTYPE	NEW+2!, ENIN1+12*
PSIVUP	INMED+3*, Q+2!
PSIVX	Q+2!
PSJACNWP	HK+2~
PSJACPF	HK+2~, HK+3*
PSJALLGY	ENIN1+2~
>> PSJCLAPP	ENIN1+4, ENIN1+5, ENIN1+9
>> PSJCM01	ENIN1+4
PSJCMF	ENIN1+4!, ENIN1+9*
>> PSJCMO	ENIN1+4
PSJCOM	ENIN1+3!
PSJEXMSG	ENIN1+2~
>> PSJIVBD	OK+10*
>> PSJIVORF	OK1+1, OK1+2, OK1+4, OK1+5
PSJLK	BEG+4~, BEG+5*
PSJLSORX	NEW+3*, ULK+1, ULK+2!
PSJNARC	SETN+4*, Q+2!
PSJNEW	PSIVORE+13~*
>> PSJNKF	Q+1*
PSJOC	NONVF~, NONVF+10
PSJOCFG	INMED+1~, INMED+2*, INMED+4!
PSJOE	NEW+2!, INMED, INMED+3, INMED+4, Q+1, ENIN1+2~, ENIN1+6*
>> PSJOEPF	ENIN1+7, ENIN1+8
PSJOPC	Q+2!
PSJORD	BAD+2, NONVF+14~
>> PSJORL	OK1*
>> PSJORNP	OK1*
>> PSJORQF	ENIN1+11, ENIN1+13
PSJOUT	PSIVORE+13~, INMED!, ENIN+3~, ENIN1+13
PSJPCAF	ENIN1+2~
PSJPWD	SETN+5, HK+2~, HK+3
PSJSYSL	BEG+6, HK+2~, HK+3, ENIN1+2~
>> 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+12, 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+5, HK+3, OK1, ENIN1+2, NONVF+7
>> VALMBCK	BAD+2*
WSCHADM	BEG+5!, ASK+3, ENIN1+2~
X	SETN+1, NEW+3~, ULK+2~, OK+2, OK+3, OK+9, BAD+2, BAD+3, DOA, ENIN1+7 , ENIN1+8, ENIN1+10, ENIN1+11, 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+12
>> ZZND	OK+6

Customize PDF page

Package: Inpatient Medications

Routine: PSIVORE

Information

Source Information

Call Graph

Call Graph Total: 28

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: