Routine: PSIVOPT

Information

PSIVOPT ;BIR/PR,MLM-OPTION DRIVER ;06 Aug 98 / 2:17 PM

Call Graph

Call Graph Total: 23

Package	Total	Call Graph
Inpatient Medications	19	ENL^PSGVDS CKO^PSIVCHK (EXPIR,HOLD)^PSIVOE ($$IVDUPADD,ENLBL)^PSIVOPT E^PSIVOPT1 (D,R)^PSIVOPT2 LOG^PSIVORAL SHOW1^PSIVORC VF^PSIVORC2 (NATURE,ORPARM)^PSIVOREN GT531^PSIVORFA GT55^PSIVORFB (EN,ENNH)^PSIVORV2 WP^PSJAC EN1^PSJHL2 EN^PSJLIFN EN^PSJLIORD $$LOCK^PSJOEA CHK^PSJOEA1
VA Fileman	4	NOW^%DTC ^DIC ^DIE ^DIK

Package	Total	Caller Graph
Inpatient Medications	15	PSGOEC PSGVBWP PSIVOPT PSIVOPT1 PSIVOPT2 PSIVORA PSIVORC2 PSIVORE PSIVUWL PSJADT0 PSJCOMR PSJLIACT PSJOE PSJOE0 PSJPR

Entry Points

Name	Comments	DBIA/ICR reference
CK	; Check if drugs are still valid.
ENARI(DFN,ON,PSGUOW,PSIVAL)	; Auto-reinstate IV orders if movement is deleted.
E	; Entry for Pharmacy edit
D	; Discontinue order.
O(DFN,ON,STAT,STOP)	; On/Off Call
UPSTAT	; Update orders status.
K	; Kill variables.
S	; View order.
VA200(X)	;Return the IEN for the user. ; X = User name
ENINP(DFN,ON)	; Entry from Inpatient Profile.
UNLOCK	; Unlock order.
R	; Renew order.
ENIN	; Entry for inpatient order entry/profile options.
EXPIR	; Update status of expired orders.
ACT	; Prompt for order action.
ENLBL(PSGTOL,PSGUOW,PSGP,PSGTOO,DA,RES)	;
IVDUPADD(PSGP,ORDERNUM)	;
H(DFN,ON,STAT,STOP)

External References

Name	Field # of Occurrence
NOW^%DTC	O+1, H+1, ENLBL+5, IVDUPADD+8
^DIC	VA200+2
^DIE	UPSTAT+1, ENARI+17
^DIK	ENARI+25
ENL^PSGVDS	ENLBL+5
CKO^PSIVCHK	O+4, H+5
EXPIR^PSIVOE	EXPIR+2
HOLD^PSIVOE	H+5
$$IVDUPADD^PSIVOPT	ENARI+11
ENLBL^PSIVOPT	H+5, ENARI+26
E^PSIVOPT1	E+1
D^PSIVOPT2	D+1
R^PSIVOPT2	R+1
LOG^PSIVORAL	O+4, H+5, ENARI+19
SHOW1^PSIVORC	ENIN+1
VF^PSIVORC2	ACT+4, ACT+6
NATURE^PSIVOREN	H+3
ORPARM^PSIVOREN	ENARI+21
GT531^PSIVORFA	ACT+4, ACT+6
GT55^PSIVORFB	ENIN+2
EN^PSIVORV2	S+1, ENIN+2
ENNH^PSIVORV2	ENINP+1
WP^PSJAC	ENLBL+2
EN1^PSJHL2	ENARI+22
EN^PSJLIFN	ACT+7, ACT+9
EN^PSJLIORD	ACT+3
$$LOCK^PSJOEA	ACT+5
CHK^PSJOEA1	ACT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$C(7),"This order is being edited by another user. Try later." Line Location: PSIVOPT+11
Function Call: WRITE	Prompt: !,$C(7),$C(7),"This order is being edited by another user. Try later." Line Location: PSIVOPT+12
Function Call: WRITE	Prompt: !,$C(7),"Only active orders may be placed on hold." Line Location: O+2
Function Call: WRITE	Prompt: !,$C(7),"Only active orders may be placed on hold." Line Location: H+2
Function Call: WRITE	Prompt: !!,"Order unchanged." Line Location: H+3
Function Call: WRITE	Prompt: @IOF Line Location: S+1
Function Call: WRITE	Prompt: $C(7)," This order has expired." Line Location: EXPIR+2
Routine Call	DIE Line Location: UPSTAT+1 ENARI+17
Routine Call	DIC Line Location: VA200+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	ENLBL+2
^PS(	CK+2
^PS(53.1 - [#53.1]	ACT+2, ACT+4, ACT+5, ACT+6, ACT+7
^PS(53.3 - [#53.3]	ENARI+19
^PS(53.41 - [#53.41]	ENARI+25
^PS(55 - [#55]	PSIVOPT+10, UNLOCK+3, ACT+2, ENIN+3, ENARI+4, ENARI+5, ENARI+6, ENARI+8, ENARI+13!, ENARI+14 , ENARI+16, ENARI+21, ENLBL+4, ENLBL+5*, IVDUPADD+5, IVDUPADD+7, IVDUPADD+11, IVDUPADD+14, IVDUPADD+16, IVDUPADD+18 , IVDUPADD+20
^PSDRUG - [#50]	CK+2
^TMP("PSJNOTUNDC"	ENARI+11*
^TMP("PSJUNDC"	ENARI+18*

Label References

Name	Line Occurrences
$$VA200	ENARI+9
@(	PSIVOPT+14, S+1, ENINP+1
ACT	PSIVOPT+15
EXPIR	O+1, H+1
K	PSIVOPT+11, PSIVOPT+14
PSIVOPT	ENIN+2
UPSTAT	O+4, H+5, EXPIR+2

Naked Globals

Name	Field # of Occurrence
^("I"	CK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	K+1!, O+1, H+1, ENLBL+5, IVDUPADD+9
CHKIT	ENARI+16~*
DA	K+1!, UPSTAT+1~, ENARI+12~, ENARI+15, ENARI+25!*, ENARI+26!, ENLBL~, ENLBL+4, ENLBL+5
DA(1	UPSTAT+1, ENARI+15, ENARI+25*
DA(2	ENARI+25*
DA(3	ENARI+25*
DA(4	ENARI+25*
>> DATELOOP	IVDUPADD+9, IVDUPADD+11, IVDUPADD+14
DFN	PSIVOPT+10, UNLOCK+3, ACT+2, ACT+3, ACT+4, ACT+5, ACT+6, O~, H~, H+5 , S+1, UPSTAT+1, ENIN+1~, ENIN+2, ENIN+3, ENARI~, ENARI+13, ENARI+14, ENARI+15, ENARI+16 , ENARI+18, ENARI+21, ENARI+22, ENARI+25, ENARI+26, ENINP~, ENINP+1, ENLBL+5
DIC	VA200+2~*
DIC(0	VA200+2*
DIE	K+1!, UPSTAT+1~, ENARI+12~, ENARI+15
DIK	K+1!, ENARI+12~, ENARI+25!*
DLAYGO	K+1!
DNE	K+1!
>> DONE	PSIVOPT+15, ACT+4, ACT+10*
DR	K+1!, UPSTAT+1~, ENARI+12~, ENARI+14, ENARI+16*
DRG	K+1!, CK+2*
DRG(	CK+1, CK+2
DRGI	K+1!, CK+1*, CK+2
DRGT	K+1!, CK+1*, CK+2
DT	CK+2
>> DUPFOUND	IVDUPADD+3, IVDUPADD+5, IVDUPADD+11, IVDUPADD+14, IVDUPADD+18, IVDUPADD+23, IVDUPADD+24
>> DUPLOOP	IVDUPADD+2, IVDUPADD+5, IVDUPADD+7
DUZ	H+5
ENTBY	ENARI+8~, ENARI+9*
ERR	K+1!, CK+2*
>> EXISTADD	IVDUPADD+17, IVDUPADD+18, IVDUPADD+20
>> EXISTORD	IVDUPADD+12, IVDUPADD+14, IVDUPADD+16, IVDUPADD+18, IVDUPADD+20
>> FIL	CK+1*, CK+2
HELP	K+1!
IOF	S+1
J	K+1!
>> MATCHADD	IVDUPADD+20*, IVDUPADD+22
OD	K+1!
ON	PSIVOPT+10, UNLOCK+3, ACT+1, ACT+2, ACT+3, ACT+4, ACT+5~, ACT+6, ACT+7, ACT+9 , O~, H~, ENIN+1~, ENIN+2, ENARI~, ENARI+8, ENARI+13, ENARI+14, ENARI+15, ENARI+16 , ENARI+18, ENARI+19, ENARI+21, ENARI+25, ENARI+26, ENINP~, ENINP+1
ON55	PSIVOPT+10, UNLOCK+3, ACT+1, H+5, S+1, UPSTAT+1, ENIN+2, ENARI+19, ENARI+22, ENINP+1~
>> OR55	ENARI+2
ORDERNUM	IVDUPADD~, IVDUPADD+5, IVDUPADD+7
P	K+1!, ENIN+1~, ENLBL+3~
P("NAT"	H+3
P("PON"	ENIN+1, ENIN+2
P(12	ENARI+21*
P(17	O+3, H+4, EXPIR+1, UPSTAT+1, ENARI+19
P(3	ENARI+21*
P16	K+1!
>> PSGALO	ENARI+11, ENARI+24
>> PSGDT	ENLBL+5*
PSGFDX	ACT+1~
>> PSGORD	ENARI+2
>> PSGORNUM	ENARI+2*, ENARI+3, ENARI+4, ENARI+5, ENARI+6, ENARI+11
PSGP	ENIN+1, ENIN+2, ENARI+4, ENARI+5, ENARI+6, ENARI+8, ENARI+11, ENARI+25, ENLBL~, ENLBL+2 , ENLBL+4, IVDUPADD~, IVDUPADD+5, IVDUPADD+7, IVDUPADD+11, IVDUPADD+14, IVDUPADD+16, IVDUPADD+18, IVDUPADD+20
PSGSDX	ACT+1~
PSGTOL	ENARI+23*, ENARI+26, ENLBL~
PSGTOO	ENLBL~
PSGUOW	ENARI~, ENARI+25, ENARI+26, ENLBL~
PSIVAC	PSIVOPT+13, PSIVOPT+14, ENIN+1~, ENINP+1~*
PSIVACT	UPSTAT+1~, ENARI+14
PSIVAL	K+1!, ENARI~, ENARI+19*
PSIVALCK	ENARI+12~, ENARI+19*
PSIVALT	O+3, H+4, ENARI+12~, ENARI+19*
PSIVC	K+1!
PSIVLOCK	PSIVOPT+8~, PSIVOPT+10, PSIVOPT+11
PSIVLOG	K+1!
PSIVNOL	K+1!
PSIVOK	K+1!
PSIVOPT	K+1!, ENARI+12~, ENARI+19*
PSIVREA	K+1!, O+3, H+4, H+5, EXPIR+1, UPSTAT+1, ENARI+12~, ENARI+19
PSJACNWP	ENLBL+2~
PSJACPF	ENLBL+2~*
PSJCOM	ACT+2, ACT+4, ACT+5, ACT+8, ACT+9, IVDUPADD+1~, IVDUPADD+5, IVDUPADD+16
PSJEDIT1	E+1~
PSJIVBD	ACT+1!
>> PSJIVORF	ENARI+21
PSJO	ACT+5~*
PSJORD	ACT+1, ACT+5~, ACT+8~*, ENIN+1, ENIN+2, ENIN+3, ENARI+2
>> PSJPRF	ENIN+2
>> PSJSENTO(	ENARI+4, ENARI+5, ENARI+6, ENARI+9
>> PSJSYSL	ENLBL+2
>> PSJSYSW0	ENARI+24, ENLBL+2, ENLBL+4
>> PSJUNDC	ENARI+19, ENARI+23, ENARI+24
PSJX	ENARI+8~*, ENARI+9
RES	ENLBL~, ENLBL+5
SCRNPRO	K+1!
STAT	O~, O+1, O+2, O+3, O+4, H~, H+1, H+2, H+4, H+5 , EXPIR+1, EXPIR+2*
STOP	O~, O+1, H~, H+1
>> TARGET	IVDUPADD+7*, IVDUPADD+22
TEX	PSIVOPT+14*, K+1!, O+3, H+4
U	ACT+4, ACT+6, ACT+7, CK+2, ENARI+4, ENARI+5, ENARI+6, ENARI+9, ENARI+14, ENARI+16 , ENARI+19, ENARI+21, ENARI+24, ENLBL+4, ENLBL+5, VA200+4
>> UWLFLAG	PSIVOPT+14
X	CK+2, ENARI+12~, ENARI+13, ENLBL+3~, ENLBL+4*, ENLBL+5, VA200~
XED	PSIVOPT+14*, K+1!
Y	ACT+5, ENARI+12~, ENARI+21, ENLBL+3~, ENLBL+4, ENLBL+5*, VA200+2~, VA200+3, VA200+4

Customize PDF page

Package: Inpatient Medications

Routine: PSIVOPT

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: