Routine: PSGOEV

Information

PSGOEV ;BIR/CML3-VERIFY (MAKE ACTIVE) ORDERS ;29-May-2012 14:31;PLS

Source Information

Source file <PSGOEV.m>

Call Graph

Call Graph Total: 27

Package	Total	Call Graph
Inpatient Medications	17	(,NEWUDAL)^PSGAL5 ($$DDOK,$$OIOK)^PSGOE2 $$CHECK^PSGOE8 ENDRG^PSGOEF1 EXPOE^PSGOER ORSET^PSGOETO1 ^PSGOT START^PSGOTR EN^PSGPEN (DW,ENOS)^PSGS0 ENL^PSGVDS VFY^PSJCOM (DOSECHK,SETVAR)^PSJDOSE EN1^PSJHL2 NOTIFY^PSJHL4 ($$GETDUR,REQDT)^PSJLIVMD $$LASTREN^PSJLMPRI
VA Fileman	3	%XY^%RCR ^DIE ^DIR
IHS Omnicell Pyxis Interface	2	NEW^BOPCAP ^BOPSD
Registration	2	EN^VALM (FULL,PAUSE)^VALM1
Kernel	1	$$PATCH^XPDUTL
Pharmacy Data Management	1	UNL^PSSLOCK
Text Integration Utility	1	MAIN^TIUEDIT

Caller Graph

Caller Graph Total: 9

Package	Total	Caller Graph
Inpatient Medications	9	PSGOD PSGOE1 PSGOEE PSGOEF1 PSGOESF PSGOEVS PSJHLV PSJOE1 PSJOEA2

Entry Points

Name	Comments	DBIA/ICR reference
DDEDIT	;
DDCHK	; dispense drug check
AESCREEN()	; ; Output: 0 - Required fields missing and DON'T allow accept ; 1 - Required fields found.
CHKM	;
ENSF	; This entry point is used by Speed finish only. ; Send SN update to CPRS if auto-verify off and from Order Set entry
EN(PSGORD)	;
DONE	;
ACTLOG(PSGORDP,DFN,PSGORD)	;Store 53.1 activity log in local array to be moved to 55
VFY	; change status, move to 55, and change label record
CONT()	;
CALLBOP	;
LBL	;
CHK(ND,DRG,ND2)	; checks for data in required fields ; Input: ND - ^(PS(53.1,PSGORD,0) ; DRG - ^(.2) ; ND2 - ^(2)

External References

Name	Field # of Occurrence
%XY^%RCR	DDEDIT+7
NEW^BOPCAP	CALLBOP+1
^BOPSD	VFY+31
^DIE	VFY+19, VFY+21, VFY+25
^DIR	VFY+50, DONE+3, CHKM+6, CONT+4
^PSGAL5	VFY+30
NEWUDAL^PSGAL5	VFY+32, VFY+33
$$DDOK^PSGOE2	CHK+13, DDCHK+3
$$OIOK^PSGOE2	CHK+14
$$CHECK^PSGOE8	CHK+11
ENDRG^PSGOEF1	DDEDIT+6
EXPOE^PSGOER	VFY+18
ORSET^PSGOETO1	ENSF+3
^PSGOT	VFY+25
START^PSGOTR	VFY+20
EN^PSGPEN	VFY+22, VFY+40
DW^PSGS0	VFY+10
ENOS^PSGS0	ENSF+9, VFY+13, CHK+16
ENL^PSGVDS	VFY+43
VFY^PSJCOM	VFY+1
DOSECHK^PSJDOSE	VFY+3
SETVAR^PSJDOSE	VFY+4
EN1^PSJHL2	VFY+22, VFY+52, VFY+54
NOTIFY^PSJHL4	VFY+28
$$GETDUR^PSJLIVMD	VFY+35
REQDT^PSJLIVMD	VFY+24
$$LASTREN^PSJLMPRI	VFY+18
UNL^PSSLOCK	VFY+22
MAIN^TIUEDIT	DONE+5
EN^VALM	ENSF+10
FULL^VALM1	ENSF+4, CHKM+1
PAUSE^VALM1	VFY+4, VFY+11
$$PATCH^XPDUTL	VFY+31, CALLBOP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!," THIS FUNCTION NOT AVAILABLE TO WARD STAFF." Line Location: ENSF+4
Function Call: WRITE	Prompt: !!,"Another terminal is editing this order." Line Location: ENSF+5
Function Call: WRITE	Prompt: $C(7),!!,"THIS ORDER HAS ALREADY BEEN VERIFIED BY A PHARMACIST." Line Location: ENSF+11
Function Call: WRITE	Prompt: $C(7),!!,"THIS ORDER HAS ALREADY BEEN VERIFIED BY A NURSE." Line Location: ENSF+12
Function Call: WRITE	Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1") Line Location: VFY+4
Function Call: WRITE	Prompt: !!,"This is a 'DAY OF WEEK' schedule and MUST have admin times.",! Line Location: VFY+11
Function Call: WRITE	Prompt: !,"...a few moments, please..." Line Location: VFY+14
Function Call: WRITE	Prompt: "." Line Location: VFY+19
Function Call: WRITE	Prompt: "." Line Location: VFY+25
Function Call: WRITE	Prompt: "." Line Location: VFY+30
Function Call: WRITE	Prompt: !,"ORDER VERIFIED.",! Line Location: VFY+49
Function Call: WRITE	Prompt: ! Line Location: DONE+3
Function Call: WRITE	Prompt: $C(7) Line Location: CHK+18
Function Call: WRITE	Prompt: !!,"THE FOLLOWING ",$S($L(CHK)>1:"ARE",1:"IS")," EITHER INVALID OR MISSING FROM THIS ORDER:" Line Location: CHKM+3
Function Call: WRITE	Prompt: !?5,$P("ORDERABLE ITEM^MED ROUTE^SCHEDULE TYPE^SCHEDULE^START DATE/TIME^STOP DATE/TIME^DISPENSE DRUG","^",X) Condition for execution: CHK[X Line Location: CHKM+3
Function Call: WRITE	Prompt: !,"Orders with no dispense drugs or multiple dispense drugs",!,"require dosage ordered" Line Location: CHKM+4
Function Call: WRITE	Prompt: ! Line Location: CONT+2
Function Call: WRITE	Prompt: $C(7),!!,"This order must have at least one valid, active dispense drug to be verified." Line Location: DDCHK+5
Routine Call	VALM Line Location: ENSF+10
Routine Call	DIE Line Location: VFY+19 VFY+21 VFY+25
Routine Call	DIR Line Location: VFY+50 DONE+3 CHKM+6 CONT+4

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	AESCREEN+4
^PS(50.7 - [#50.7]	CHK+4
^PS(53.1 - [#53.1]	ENSF+3, ENSF+5, ENSF+7, VFY+1, VFY+16, VFY+26, VFY+27, VFY+29, ACTLOG+4, ACTLOG+5
^PS(53.45 - [#53.45]	DDEDIT+4!, DDEDIT+5
^PS(55 - [#55]	ENSF+5, ENSF+11, ENSF+12, VFY+26, VFY+27, VFY+30, VFY+36, VFY+43, VFY+44, VFY+45 , VFY+46, VFY+47!, VFY+48!, VFY+51, ACTLOG+6, ACTLOG+7*

Name	Line Occurrences
$$CONT	VFY+4
ACTLOG	VFY+37
CALLBOP	VFY+53
CHK	ENSF+7
DDCHK	ENSF+6, VFY+8
DONE	ENSF+5, ENSF+6, ENSF+10, ENSF+11, ENSF+12, VFY+8, VFY+9, VFY+12
VFY	ENSF+11

Name	Field # of Occurrence
^(	ENSF+7, DDEDIT+4, ACTLOG+6
^(0	ENSF+5, CHK+9, ACTLOG+6*
^(2	ENSF+7
^(4	ENSF+11, VFY+51
^(7	VFY+43*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	DDEDIT+7*
>> %Y	DDEDIT+7*
CHK	ENSF+5, ENSF+6, ENSF+9, ENSF+10, VFY+8, VFY+9, VFY+11, VFY+12, VFY+13, DONE+1 , DONE+2, DONE+6!, CHK+4, CHK+5, CHK+6, CHK+7, CHK+9, CHK+10, CHK+11, CHK+13 , CHK+15, CHK+16, CHK+17, CHKM+3, CHKM+4, CHKM+5, CHKM+6, DDCHK+1, DDCHK+3, DDCHK+4 , DDEDIT+7, AESCREEN+3
DA	VFY+19, VFY+21!, VFY+25, VFY+30, VFY+43*, DONE+6!, AESCREEN+4
DA(1	VFY+21, VFY+30, AESCREEN+4
DFN	VFY+17, VFY+18, VFY+21, VFY+22, VFY+26, VFY+27, VFY+28, ACTLOG~, ACTLOG+6, ACTLOG+7
DIE	VFY+19, VFY+21!, VFY+25*, DONE+6!
DIR	VFY+50!, DONE+3~, CHKM+6~, CONT+1~, CONT+2!
DIR("A"	DONE+3, CONT+3
DIR("B"	DONE+3, CONT+3
DIR(0	VFY+50, DONE+3, CHKM+6, CONT+3
DIRUT	CONT+1~, CONT+2!
DP	DONE+6!
DR	VFY+19, VFY+21!, VFY+25*, DONE+6!
DRG	CHK~, CHK+4, CHK+11, CHK+13, CHK+14, DDEDIT+8!
DRGF	DDCHK+1, DDCHK+2, DDCHK+3, DDEDIT+2, DDEDIT+4, DDEDIT+7, DDEDIT+8!
>> DTOUT	CHKM+6
>> DUOUT	CHKM+6
DUR	VFY+34~, VFY+35*, VFY+36
DURON	VFY+34~*, VFY+35
DUZ	VFY+43, VFY+44
F	DONE+6!
FILE55	VFY+17~*, VFY+21
FILE55N0	VFY+17~*, VFY+18
ND	DONE+6!, CHK~, CHK+6, CHK+7, CHK+10
ND2	CHK~, CHK+9, CHK+10
OEORD	VFY+17~, VFY+18*, VFY+20, VFY+21
OOEORD	VFY+17~, VFY+18*
PND0	VFY+16~*, VFY+17, VFY+18
>> PSGACT	ENSF+11, ENSF+12, VFY+51*
PSGAL	DONE+6!
PSGAL("C"	VFY+30*
PSGAL531	ACTLOG+3~, ACTLOG+5*, ACTLOG+7
PSGALFN	VFY+38!
>> PSGAT	VFY+11
>> PSGCANFL	VFY+51*
PSGDFLG	CHK+12!, CHK+13*
>> PSGDI	CHK+12, CHK+13
>> PSGDT	VFY+43, VFY+44
PSGODA	DONE+6!
>> PSGODDD(1	VFY+39
>> PSGOEAV	ENSF+2*, ENSF+3
>> PSGOEEF(109	VFY+5*
PSGOES	ENSF+3, ENSF+9~, VFY+13~, CHK+16~*
>> PSGONF	VFY+39
PSGORD	EN~, ENSF+3, ENSF+5*, ENSF+7, ENSF+11, ENSF+12, VFY+1, VFY+15, VFY+16, VFY+18 , VFY+19, VFY+20, VFY+23, VFY+24, VFY+25, VFY+26, VFY+27, VFY+28, VFY+30, VFY+32 , VFY+33, VFY+34, VFY+36, VFY+37, VFY+40, VFY+43, VFY+44, VFY+45, VFY+46, VFY+47 , VFY+48, VFY+51, VFY+52, VFY+54, DDCHK+1, ACTLOG~, ACTLOG+6, ACTLOG+7
PSGORDP	VFY+19, VFY+23, VFY+29, VFY+37, ACTLOG~, ACTLOG+4, ACTLOG+5
PSGORDR	VFY+16~*, VFY+17, VFY+18, VFY+20, VFY+21, VFY+22
>> PSGP	ENSF+5, ENSF+11, ENSF+12, VFY+22, VFY+30, VFY+32, VFY+33, VFY+35, VFY+36, VFY+37 , VFY+43, VFY+44, VFY+45, VFY+46, VFY+47, VFY+48, VFY+51, VFY+52, VFY+54, DONE+5 , DDCHK+1
>> PSGPD	DDCHK+2*, DDCHK+3, DDEDIT+6
PSGPFLG	CHK+12!, CHK+14*
>> PSGRDTX	VFY+29*, VFY+32, VFY+33, VFY+35
PSGRFD	VFY+38!
PSGRSD	VFY+38!
PSGS0XT	ENSF+9~, VFY+10*, VFY+11, VFY+13~, CHK+16~
PSGS0Y	ENSF+9~, VFY+13~, CHK+16~
>> PSGSCH	ENSF+8, ENSF+9, VFY+9, VFY+10, VFY+12, VFY+13, CHK+15, CHK+16
>> PSGST	VFY+9
>> PSGTOL	VFY+43*
>> PSGTOO	VFY+43*
>> PSGUOW	VFY+43*
PSGX	ACTLOG+3~, ACTLOG+4*, ACTLOG+5
PSGXDA	ACTLOG+3~, ACTLOG+6*, ACTLOG+7
>> PSJACEPT	ENSF+10, VFY+4, VFY+6*
>> PSJCOM	VFY+1*
PSJDOSE	VFY+2~, DONE+6!
PSJDOSE("WARN"	VFY+4
PSJDOSE("WARN1"	VFY+4
PSJDSFLG	VFY+2~, VFY+4
>> PSJHLDFN	VFY+26, VFY+27
>> PSJPRI	DONE+2
PSJPRIO	VFY+16~, VFY+26*, VFY+28
PSJSCHED	VFY+16~, VFY+27*, VFY+28
>> PSJSPEED	ENSF+10, VFY+49, VFY+50, DONE+2
>> PSJSYSL	VFY+43
>> PSJSYSP	CHK+11, CHK+13, DDEDIT+4, DDEDIT+5, DDEDIT+7
>> PSJSYSP0	ENSF+2
>> PSJSYSU	ENSF+2, ENSF+4, ENSF+6, ENSF+11, ENSF+12, VFY+30, VFY+40, VFY+41, VFY+44, VFY+51 , VFY+52, VFY+54, DONE+2
PSJVAR	DONE+6!
Q	DDEDIT+4, ACTLOG+3~, ACTLOG+6
QQ	ACTLOG+3~, ACTLOG+6*
QX	VFY+10~
SDW	VFY+10~
SWD	VFY+10~
>> TIUDA	DONE+5
U	VFY+16, VFY+17, VFY+18, VFY+21, VFY+33, VFY+35, VFY+41, VFY+43, VFY+45, VFY+46 , VFY+47, VFY+48, CHK+11, AESCREEN+4, ACTLOG+6
>> VALMBCK	VFY+52, DONE+6
VND4	VFY+30, VFY+40, VFY+41, VFY+44*, VFY+45, VFY+46, VFY+47, VFY+48, DONE+6!
X	ENSF+5, ENSF+9~, VFY+10~, VFY+13~, VFY+39~, VFY+40, DONE+6!, CHK+16~, CHKM+3, DDEDIT+4 , DDEDIT+5, DDEDIT+6
XABB	VFY+10~
Y	ENSF+9~, VFY+13~, DONE+4, CHK+16~, CONT+1~, CONT+5, DDEDIT+4, AESCREEN+4, AESCREEN+5

Customize PDF page

Package: Inpatient Medications

Routine: PSGOEV

Information

Source Information

Call Graph

Call Graph Total: 27

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: