Routine: PSGOEV

Information

PSGOEV ;BIR/CML3 - VERIFY (MAKE ACTIVE) ORDERS ; 12/9/18 4:26am

Package	Total	Call Graph
Inpatient Medications	25	(,NEWUDAL)^PSGAL5 ($$DDOK,$$OIOK)^PSGOE2 $$CHECK^PSGOE8 ENDRG^PSGOEF1 EXPOE^PSGOER ORSET^PSGOETO1 ^PSGOT START^PSGOTR EN^PSGPEN (DW,ENOS)^PSGS0 ENDDC^PSGSICHK ENL^PSGVDS NEWJ^PSJADM PROFILE^PSJBLDOC $$ISCLOZ^PSJCLOZ VFY^PSJCOM (DOSECHK,SETVAR)^PSJDOSE EN1^PSJHL2 NOTIFY^PSJHL4 ($$GETDUR,REQDT)^PSJLIVMD $$LASTREN^PSJLMPRI $$CHKSCHD^PSJMISC2 SETOC^PSJNEWOC IN^PSJOCDS CLOZSND^PSJOE
VA FileMan	5	%XY^%RCR LIST^DIC ^DIE $$GET1^DIQ ^DIR
List Manager	2	EN^VALM (FULL,PAUSE)^VALM1
Pharmacy Data Management	1	UNL^PSSLOCK
Text Integration Utility	1	MAIN^TIUEDIT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 11

Package	Total	Caller Graph
Inpatient Medications	10	PSGOD PSGOE1 PSGOEE PSGOEF1 PSGOESF PSGOEVS PSJHLV PSJOE1 PSJU LM ACCEPT MENU PSJU LM VERIFY
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN(PSGORD)	;
ENSF	; This entry point is used by Speed finish only. ; Send SN update to CPRS if auto-verify off and from Order Set entry
VFY	; change status, move to 55, and change label record *ENHANCEMENTS MADE IN PSJ5.0260 CCR 6214 *CCR 6244
DONE	;
LBL	;
ALLERGY(PSGORD,PSJALLGY)	;setup PSJALLGY when non-vf was selected to verify
CHK(ND,DRG,ND2)	; checks for data in required fields ; Input: ND - ^(PS(53.1,PSGORD,0) ; DRG - ^(.2) ; ND2 - ^(2)
CHKM	;
CONT()	;
DDCHK	; dispense drug check
DDEDIT	;
AESCREEN()	; ; Output: 0 - Required fields missing and DON'T allow accept ; 1 - Required fields found.
ACTLOG(PSGORDP,DFN,PSGORD)

External References

Name	Field # of Occurrence
%XY^%RCR	DDEDIT+7
LIST^DIC	ALLERGY+3
^DIE	VFY+33, VFY+35, VFY+39, VFY+66
$$GET1^DIQ	VFY+7, VFY+64, ALLERGY+5, ALLERGY+6
^DIR	VFY+72, DONE+3, CHKM+7, CONT+4
^PSGAL5	VFY+44
NEWUDAL^PSGAL5	VFY+45, VFY+46
$$DDOK^PSGOE2	CHK+14, DDCHK+3
$$OIOK^PSGOE2	CHK+15
$$CHECK^PSGOE8	CHK+12
ENDRG^PSGOEF1	DDEDIT+6
EXPOE^PSGOER	VFY+32
ORSET^PSGOETO1	ENSF+4
^PSGOT	VFY+39
START^PSGOTR	VFY+34
EN^PSGPEN	VFY+36, VFY+53
DW^PSGS0	VFY+24
ENOS^PSGS0	ENSF+14, VFY+27, CHK+17
ENDDC^PSGSICHK	VFY+15
ENL^PSGVDS	VFY+55
NEWJ^PSJADM	VFY+77
PROFILE^PSJBLDOC	VFY+8
$$ISCLOZ^PSJCLOZ	VFY+63
VFY^PSJCOM	VFY+1
DOSECHK^PSJDOSE	VFY+3
SETVAR^PSJDOSE	VFY+18
EN1^PSJHL2	VFY+36, VFY+69, VFY+79
NOTIFY^PSJHL4	VFY+42
$$GETDUR^PSJLIVMD	VFY+48
REQDT^PSJLIVMD	VFY+38
$$LASTREN^PSJLMPRI	VFY+32
$$CHKSCHD^PSJMISC2	ENSF+11
SETOC^PSJNEWOC	VFY+74
IN^PSJOCDS	VFY+15
CLOZSND^PSJOE	VFY+77
UNL^PSSLOCK	VFY+36
MAIN^TIUEDIT	DONE+5
EN^VALM	ENSF+15, VFY+15
FULL^VALM1	ENSF+5, VFY+17, CHKM+1
PAUSE^VALM1	VFY+18, VFY+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!," THIS FUNCTION NOT AVAILABLE TO WARD STAFF." Line Location: ENSF+5
Function Call: WRITE	Prompt: !!,"Another terminal is editing this order." Line Location: ENSF+6
Function Call: WRITE	Prompt: $C(7),!!,"THIS ORDER HAS ALREADY BEEN VERIFIED BY A PHARMACIST." Line Location: ENSF+16
Function Call: WRITE	Prompt: $C(7),!!,"THIS ORDER HAS ALREADY BEEN VERIFIED BY A NURSE." Line Location: ENSF+17
Function Call: WRITE	Prompt: !!,PSJDOSE("WARN"),!,PSJDOSE("WARN1") Line Location: VFY+18
Function Call: WRITE	Prompt: !!,"This is a 'DAY OF WEEK' schedule and MUST have admin times.",! Line Location: VFY+25
Function Call: WRITE	Prompt: !,"...a few moments, please..." Line Location: VFY+28
Function Call: WRITE	Prompt: "." Line Location: VFY+33
Function Call: WRITE	Prompt: "." Line Location: VFY+39
Function Call: WRITE	Prompt: "." Line Location: VFY+44
Function Call: WRITE	Prompt: !,"ORDER VERIFIED.",! Line Location: VFY+71
Function Call: WRITE	Prompt: ! Line Location: DONE+3
Function Call: WRITE	Prompt: $C(7) Line Location: CHK+19
Function Call: WRITE	Prompt: !!,"THE FOLLOWING ",$S($L(CHK)>1:"ARE",1:"IS")," EITHER INVALID OR MISSING FROM THIS ORDER:" Line Location: CHKM+4
Function Call: WRITE	Prompt: !?5,$P("ORDERABLE ITEM^MED ROUTE^SCHEDULE TYPE^SCHEDULE^START DATE/TIME^STOP DATE/TIME^DISPENSE DRUG^DOSAGE ORDERED","^",X) Condition for execution: CHK[X Line Location: CHKM+4
Function Call: WRITE	Prompt: !,"Orders with no dispense drugs or multiple dispense drugs",!,"require dosage ordered" Line Location: CHKM+5
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	DIC Line Location: ALLERGY+3
Routine Call	DIE Line Location: VFY+33 VFY+35 VFY+39 VFY+66
Routine Call	DIR Line Location: VFY+72 DONE+3 CHKM+7 CONT+4
Routine Call	VALM Line Location: ENSF+15 VFY+15

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PS(53.1 - [#53.1]	Classic Fileman Calls
53.11	GET1^DIQ, LIST^DIC
55.06	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	AESCREEN+4
^PS(50.7 - [#50.7]	CHK+5
^PS(53.1 - [#53.1]	ENSF+4, ENSF+6, ENSF+9, ENSF+12, VFY+1, VFY+5, VFY+6, VFY+30, VFY+40, VFY+41 , VFY+43, ACTLOG+4, ACTLOG+5, ACTLOG+8, ACTLOG+9, ACTLOG+10
^PS(53.45 - [#53.45]	DDEDIT+4!, DDEDIT+5
^PS(55 - [#55]	ENSF+6, ENSF+9, ENSF+16, ENSF+17, VFY+40, VFY+41, VFY+44, VFY+49, VFY+55, VFY+56* , VFY+57, VFY+58, VFY+59!, VFY+60!, VFY+61, ACTLOG+6, ACTLOG+7, ACTLOG+9, ACTLOG+10
^TMP("PSODAOC"	VFY+70*
^TMP($J	VFY+9, VFY+11, VFY+15!, VFY+64, VFY+66, VFY+67!

Label References

Name	Line Occurrences
$$CONT	VFY+18
ACTLOG	VFY+50
ALLERGY	VFY+15
CHK	ENSF+12
DDCHK	ENSF+7, VFY+22
DONE	ENSF+6, ENSF+7, ENSF+11, ENSF+15, ENSF+16, ENSF+17, VFY+22, VFY+23, VFY+26
VFY	ENSF+16

Naked Globals

Name	Field # of Occurrence
^(	ENSF+12, DDEDIT+4, ACTLOG+6
^(0	ENSF+6, CHK+10, ACTLOG+6*
^(2	ENSF+12
^(4	ENSF+16, VFY+61
^(7	VFY+55*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%X	DDEDIT+7*, DDEDIT+8!
%Y	DDEDIT+7*, DDEDIT+8!
ARR	ALLERGY+1~
ARR("DILIST"	ALLERGY+4
CHK	ENSF+6, ENSF+7, ENSF+11, ENSF+14, ENSF+15, VFY+22, VFY+23, VFY+25, VFY+26, VFY+27* , DONE+1, DONE+2, DONE+6!, CHK+5, CHK+6, CHK+7, CHK+8, CHK+10, CHK+11, CHK+12* , CHK+14, CHK+16, CHK+17, CHK+18, CHKM+1, CHKM+4, CHKM+5, CHKM+6, CHKM+7, DDCHK+1 , DDCHK+3*, DDCHK+4, DDEDIT+7, AESCREEN+3
CLOZFLG	VFY+63~*, VFY+64, VFY+77
DA	VFY+33, VFY+35!, VFY+39, VFY+44, VFY+55, VFY+65~, DONE+6!, AESCREEN+4
DA(1	VFY+35, VFY+44, VFY+65*, AESCREEN+4
DFN	VFY+8, VFY+31, VFY+32, VFY+35, VFY+36, VFY+40, VFY+41, VFY+42, ACTLOG~, ACTLOG+6 , ACTLOG+7, ACTLOG+9, ACTLOG+10
DIE	VFY+33, VFY+35!, VFY+39, VFY+65~, DONE+6!
DIR	VFY+72!, DONE+3~, CHKM+7~, CONT+1~, CONT+2!
DIR("A"	DONE+3, CONT+3
DIR("B"	DONE+3, CONT+3
DIR(0	VFY+72, DONE+3, CHKM+7, CONT+3
DIRUT	CONT+1~, CONT+2!
DP	DONE+6!
DR	VFY+33, VFY+35!, VFY+39, VFY+65~, VFY+66, DONE+6!
DRG	CHK~, CHK+5, CHK+12, CHK+14, CHK+15, DDEDIT+8!
DRGF	DDCHK+1, DDCHK+2, DDCHK+3, DDEDIT+2, DDEDIT+4, DDEDIT+7, DDEDIT+8!
DT	ALLERGY+6
DTOUT	CHKM+7~
DUOUT	CHKM+7~
DUR	VFY+47~, VFY+48*, VFY+49
DURON	VFY+47~*, VFY+48
DUZ	VFY+55, VFY+56
F	DONE+6!
FILE55	VFY+31~*, VFY+35
FILE55N0	VFY+31~*, VFY+32
>> I	ALLERGY+4*
LIST	VFY+2~*, VFY+8, VFY+9, VFY+11, VFY+15
ND	DONE+6!, CHK~, CHK+7, CHK+8, CHK+11
ND2	CHK~, CHK+10, CHK+11
OEORD	VFY+31~, VFY+32*, VFY+34, VFY+35
OOEORD	VFY+31~, VFY+32*
PND0	VFY+30~*, VFY+31, VFY+32
>> PSGACT	ENSF+16, ENSF+17, VFY+61*
PSGAL	DONE+6!
PSGAL("C"	VFY+44*
PSGAL531	ACTLOG+3~, ACTLOG+5*, ACTLOG+7
PSGALFN	VFY+51!
>> PSGAT	VFY+25
>> PSGCANFL	VFY+61*
>> PSGCOPY	VFY+14
PSGDDI	ALLERGY+1~, ALLERGY+4*, ALLERGY+5
PSGDFLG	CHK+13!, CHK+14*
>> PSGDI	CHK+13, CHK+14
PSGDN	VFY+2~, VFY+6, VFY+7
>> PSGDT	VFY+55, VFY+56
PSGODA	DONE+6!
>> PSGODDD(1	VFY+52
>> PSGOEAV	ENSF+3*, ENSF+4
>> PSGOEEF(109	VFY+19*
PSGOES	ENSF+4, ENSF+14~, VFY+27~, CHK+17~*
>> PSGONF	VFY+52
PSGORD	EN~, ENSF+4, ENSF+6*, ENSF+9, ENSF+12, ENSF+16, ENSF+17, VFY+1, VFY+4, VFY+8 , VFY+11, VFY+15, VFY+29, VFY+30, VFY+32, VFY+33, VFY+34, VFY+37, VFY+38, VFY+39 , VFY+40, VFY+41, VFY+42, VFY+44, VFY+45, VFY+46, VFY+47, VFY+49, VFY+50, VFY+53 , VFY+55, VFY+56, VFY+57, VFY+58, VFY+59, VFY+60, VFY+61, VFY+63, VFY+64, VFY+65 , VFY+66, VFY+69, VFY+70, VFY+74, VFY+79, ALLERGY~, ALLERGY+2, ALLERGY+3, ALLERGY+5, DDCHK+1 , ACTLOG~, ACTLOG+6, ACTLOG+7, ACTLOG+9, ACTLOG+10
PSGORDP	VFY+33, VFY+37, VFY+43, VFY+50, ACTLOG~, ACTLOG+4, ACTLOG+5, ACTLOG+8, ACTLOG+9, ACTLOG+10
PSGORDR	VFY+30~*, VFY+31, VFY+32, VFY+34, VFY+35, VFY+36
PSGORQF	VFY+2~, VFY+15, VFY+16
>> PSGP	ENSF+6, ENSF+9, ENSF+16, ENSF+17, VFY+15, VFY+36, VFY+44, VFY+45, VFY+46, VFY+48 , VFY+49, VFY+50, VFY+55, VFY+56, VFY+57, VFY+58, VFY+59, VFY+60, VFY+61, VFY+63 , VFY+64, VFY+65, VFY+66, VFY+67, VFY+69, VFY+79, DONE+5, DDCHK+1
PSGPD	DDCHK+2*, DDCHK+3, DDEDIT+6, DDEDIT+8!
PSGPFLG	CHK+13!, CHK+15*
>> PSGRDTX	VFY+43*, VFY+45, VFY+46, VFY+48
PSGRFD	VFY+51!
PSGRSD	VFY+51!
PSGS0XT	ENSF+14~, VFY+24*, VFY+25, VFY+27~, CHK+17~
PSGS0Y	ENSF+14~, VFY+27~, CHK+17~
>> PSGSCH	ENSF+10, ENSF+13, ENSF+14, VFY+23, VFY+24, VFY+26, VFY+27, CHK+16, CHK+17
>> PSGST	VFY+23
PSGTOL	VFY+55*, DONE+6!
PSGTOO	VFY+55*, DONE+6!
PSGUOW	VFY+55*, DONE+6!
PSGX	ACTLOG+3~, ACTLOG+4*, ACTLOG+5, ACTLOG+8, ACTLOG+9, ACTLOG+10
PSGXDA	ACTLOG+3~, ACTLOG+6*, ACTLOG+7, ACTLOG+9, ACTLOG+10
>> PSJACEPT	ENSF+15, VFY+18, VFY+20*
PSJAGYSV	VFY+74!
PSJALLGY	VFY+15, ALLERGY~
PSJALLGY(	ALLERGY+8*
PSJCNT	VFY+2~, VFY+5, VFY+6
PSJCNT1	VFY+2~, VFY+9, VFY+10, VFY+11
PSJCNT2	VFY+2~, VFY+10, VFY+11
>> PSJCOM	VFY+1*
PSJDD	ALLERGY+1~, ALLERGY+5*, ALLERGY+6, ALLERGY+8
PSJDIS	VFY+2~, VFY+9, VFY+11, VFY+14, VFY+15
PSJDOSE	VFY+2~, DONE+6!
PSJDOSE("WARN"	VFY+18
PSJDOSE("WARN1"	VFY+18
PSJDSFLG	VFY+2~, VFY+18
>> PSJDSVFY	VFY+15
PSJFLG	VFY+2~, VFY+4, VFY+5, VFY+6
>> PSJHLDFN	VFY+40, VFY+41
>> PSJLMFIN	VFY+14
>> PSJNEWOE	VFY+14
PSJOLDNM	ENSF+2~, ENSF+11
PSJOLDNM("ORD_SCHD"	ENSF+10*
PSJOLDX	ENSF+2~, ENSF+9*, ENSF+11
>> PSJORD	VFY+15, VFY+64, VFY+67, VFY+70
>> PSJPRI	DONE+2
PSJPRIO	VFY+30~, VFY+40*, VFY+42
PSJSCHED	VFY+30~, VFY+41*, VFY+42
>> PSJSPEED	ENSF+15, VFY+14, VFY+71, VFY+72, DONE+2
>> PSJSTARI	VFY+14, VFY+15
>> PSJSYSL	VFY+55
>> PSJSYSP	CHK+12, CHK+14, DDEDIT+4, DDEDIT+5, DDEDIT+7
>> PSJSYSP0	ENSF+3
>> PSJSYSU	ENSF+3, ENSF+5, ENSF+7, ENSF+16, ENSF+17, VFY+44, VFY+53, VFY+54, VFY+56, VFY+61 , VFY+69, VFY+79, DONE+2
PSJVAR	DONE+6!
PSJX	ALLERGY+1~, ALLERGY+6*, ALLERGY+7
Q	DDEDIT+4, ACTLOG+3~, ACTLOG+6
QQ	ACTLOG+3~, ACTLOG+6*
QX	VFY+24~
SDW	VFY+24~
SWD	VFY+24~
>> TIUDA	DONE+5
TXTLN	ACTLOG+8~*, ACTLOG+9, ACTLOG+10
U	ENSF+9, VFY+6, VFY+11, VFY+30, VFY+31, VFY+32, VFY+35, VFY+46, VFY+48, VFY+54 , VFY+55, VFY+57, VFY+58, VFY+59, VFY+60, CHK+12, AESCREEN+4, ACTLOG+6
>> VALMBCK	VFY+69, DONE+6
VND4	VFY+44, VFY+53, VFY+54, VFY+56*, VFY+57, VFY+58, VFY+59, VFY+60, DONE+6!
X	ENSF+6, ENSF+14~, VFY+24~, VFY+27~, VFY+52~, VFY+53, DONE+6!, CHK+17~, CHKM+4, DDEDIT+4 , DDEDIT+5, DDEDIT+6
XABB	VFY+24~
Y	ENSF+14~, VFY+27~, DONE+4, CHK+4, CHK+17~, CHKM+1!, CONT+1~, CONT+5, DDEDIT+4, AESCREEN+4* , AESCREEN+5
ZZND	DONE+6!

Customize PDF page

Package: Inpatient Medications

Routine: PSGOEV

Information

Source Information

Call Graph

Call Graph Total: 34

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: