Routine: PSGOEV

Information

PSGOEV ;BIR/CML - VERIFY (MAKE ACTIVE) ORDERS ;Dec 9, 2018@04:26:42

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,DSPWARN0,SETVAR,SETVAR0)^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+39, VFY+41, VFY+45, VFY+72
$$GET1^DIQ	VFY+7, VFY+70, ALLERGY+5, ALLERGY+6
^DIR	VFY+78, DONE+3, CHKM+7, CONT+4
^PSGAL5	VFY+50
NEWUDAL^PSGAL5	VFY+51, VFY+52
$$DDOK^PSGOE2	CHK+14, DDCHK+3
$$OIOK^PSGOE2	CHK+15
$$CHECK^PSGOE8	CHK+12
ENDRG^PSGOEF1	DDEDIT+6
EXPOE^PSGOER	VFY+38
ORSET^PSGOETO1	ENSF+4
^PSGOT	VFY+45
START^PSGOTR	VFY+40
EN^PSGPEN	VFY+42, VFY+59
DW^PSGS0	VFY+30
ENOS^PSGS0	ENSF+14, VFY+33, CHK+17
ENDDC^PSGSICHK	VFY+15
ENL^PSGVDS	VFY+61
NEWJ^PSJADM	VFY+83
PROFILE^PSJBLDOC	VFY+8
$$ISCLOZ^PSJCLOZ	VFY+69
VFY^PSJCOM	VFY+1
DOSECHK^PSJDOSE	VFY+3
DSPWARN0^PSJDOSE	VFY+19
SETVAR^PSJDOSE	VFY+20
SETVAR0^PSJDOSE	VFY+19
EN1^PSJHL2	VFY+42, VFY+75, VFY+85
NOTIFY^PSJHL4	VFY+48
$$GETDUR^PSJLIVMD	VFY+54
REQDT^PSJLIVMD	VFY+44
$$LASTREN^PSJLMPRI	VFY+38
$$CHKSCHD^PSJMISC2	ENSF+11
SETOC^PSJNEWOC	VFY+80
IN^PSJOCDS	VFY+15
CLOZSND^PSJOE	VFY+83
UNL^PSSLOCK	VFY+42
MAIN^TIUEDIT	DONE+5
EN^VALM	ENSF+15, VFY+15
FULL^VALM1	ENSF+5, VFY+17, CHKM+1
PAUSE^VALM1	VFY+24, VFY+31

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+20
Function Call: WRITE	Prompt: !,"...order was not verified..." Line Location: VFY+24
Function Call: WRITE	Prompt: !!,"This is a 'DAY OF WEEK' schedule and MUST have admin times.",! Line Location: VFY+31
Function Call: WRITE	Prompt: !,"...a few moments, please..." Line Location: VFY+34
Function Call: WRITE	Prompt: "." Line Location: VFY+39
Function Call: WRITE	Prompt: "." Line Location: VFY+45
Function Call: WRITE	Prompt: "." Line Location: VFY+50
Function Call: WRITE	Prompt: !,"ORDER VERIFIED.",! Line Location: VFY+77
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+39 VFY+41 VFY+45 VFY+72
Routine Call	DIR Line Location: VFY+78 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+36, VFY+46, VFY+47 , VFY+49, 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+46, VFY+47, VFY+50, VFY+55, VFY+61, VFY+62* , VFY+63, VFY+64, VFY+65!, VFY+66!, VFY+67, ACTLOG+6, ACTLOG+7, ACTLOG+9, ACTLOG+10
^TMP("PSODAOC"	VFY+76*
^TMP($J	VFY+9, VFY+11, VFY+15!, VFY+70, VFY+72, VFY+73!

Label References

Name	Line Occurrences
$$CONT	VFY+24
ACTLOG	VFY+56
ALLERGY	VFY+15
CHK	ENSF+12
DDCHK	ENSF+7, VFY+28
DONE	ENSF+6, ENSF+7, ENSF+11, ENSF+15, ENSF+16, ENSF+17, VFY+28, VFY+29, VFY+32
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+67
^(7	VFY+61*

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+28, VFY+29, VFY+31, VFY+32, VFY+33* , 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+69~*, VFY+70, VFY+83
DA	VFY+39, VFY+41!, VFY+45, VFY+50, VFY+61, VFY+71~, DONE+6!, AESCREEN+4
DA(1	VFY+41, VFY+50, VFY+71*, AESCREEN+4
DFN	VFY+8, VFY+37, VFY+38, VFY+41, VFY+42, VFY+46, VFY+47, VFY+48, ACTLOG~, ACTLOG+6 , ACTLOG+7, ACTLOG+9, ACTLOG+10
DIE	VFY+39, VFY+41!, VFY+45, VFY+71~, DONE+6!
DIR	VFY+78!, DONE+3~, CHKM+7~, CONT+1~, CONT+2!
DIR("A"	DONE+3, CONT+3
DIR("B"	DONE+3, CONT+3
DIR(0	VFY+78, DONE+3, CHKM+7, CONT+3
DIRUT	CONT+1~, CONT+2!
DP	DONE+6!
DR	VFY+39, VFY+41!, VFY+45, VFY+71~, VFY+72, 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+53~, VFY+54*, VFY+55
DURON	VFY+53~*, VFY+54
DUZ	VFY+61, VFY+62
F	DONE+6!
FILE55	VFY+37~*, VFY+41
FILE55N0	VFY+37~*, VFY+38
>> 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+37~, VFY+38*, VFY+40, VFY+41
OOEORD	VFY+37~, VFY+38*
PND0	VFY+36~*, VFY+37, VFY+38
>> PSGACT	ENSF+16, ENSF+17, VFY+67*
PSGAL	DONE+6!
PSGAL("C"	VFY+50*
PSGAL531	ACTLOG+3~, ACTLOG+5*, ACTLOG+7
PSGALFN	VFY+57!
>> PSGAT	VFY+31
>> PSGCANFL	VFY+67*
>> 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+61, VFY+62
PSGODA	DONE+6!
>> PSGODDD(1	VFY+58
>> PSGOEAV	ENSF+3*, ENSF+4
>> PSGOEEF(109	VFY+25*
PSGOES	ENSF+4, ENSF+14~, VFY+33~, CHK+17~*
>> PSGONF	VFY+58
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+35, VFY+36, VFY+38, VFY+39, VFY+40, VFY+43, VFY+44, VFY+45 , VFY+46, VFY+47, VFY+48, VFY+50, VFY+51, VFY+52, VFY+53, VFY+55, VFY+56, VFY+59 , VFY+61, VFY+62, VFY+63, VFY+64, VFY+65, VFY+66, VFY+67, VFY+69, VFY+70, VFY+71 , VFY+72, VFY+75, VFY+76, VFY+80, VFY+85, ALLERGY~, ALLERGY+2, ALLERGY+3, ALLERGY+5, DDCHK+1 , ACTLOG~, ACTLOG+6, ACTLOG+7, ACTLOG+9, ACTLOG+10
PSGORDP	VFY+39, VFY+43, VFY+49, VFY+56, ACTLOG~, ACTLOG+4, ACTLOG+5, ACTLOG+8, ACTLOG+9, ACTLOG+10
PSGORDR	VFY+36~*, VFY+37, VFY+38, VFY+40, VFY+41, VFY+42
PSGORQF	VFY+2~, VFY+15, VFY+16
>> PSGP	ENSF+6, ENSF+9, ENSF+16, ENSF+17, VFY+15, VFY+42, VFY+50, VFY+51, VFY+52, VFY+54 , VFY+55, VFY+56, VFY+61, VFY+62, VFY+63, VFY+64, VFY+65, VFY+66, VFY+67, VFY+69 , VFY+70, VFY+71, VFY+72, VFY+73, VFY+75, VFY+85, DONE+5, DDCHK+1
PSGPD	DDCHK+2*, DDCHK+3, DDEDIT+6, DDEDIT+8!
PSGPFLG	CHK+13!, CHK+15*
>> PSGRDTX	VFY+49*, VFY+51, VFY+52, VFY+54
PSGRFD	VFY+57!
PSGRSD	VFY+57!
PSGS0XT	ENSF+14~, VFY+30*, VFY+31, VFY+33~, CHK+17~
PSGS0Y	ENSF+14~, VFY+33~, CHK+17~
>> PSGSCH	ENSF+10, ENSF+13, ENSF+14, VFY+29, VFY+30, VFY+32, VFY+33, CHK+16, CHK+17
>> PSGST	VFY+29
PSGTOL	VFY+61*, DONE+6!
PSGTOO	VFY+61*, DONE+6!
PSGUOW	VFY+61*, 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+2~, VFY+22, VFY+23, VFY+26
PSJAGYSV	VFY+80!
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+20
PSJDOSE("WARN1"	VFY+20
PSJDSFLG	VFY+2~, VFY+20, VFY+22
>> PSJDSFLG0	VFY+19, VFY+22
>> PSJDSVFY	VFY+15
PSJFLG	VFY+2~, VFY+4, VFY+5, VFY+6
>> PSJHLDFN	VFY+46, VFY+47
>> 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+70, VFY+73, VFY+76
>> PSJPRI	DONE+2
PSJPRIO	VFY+36~, VFY+46*, VFY+48
PSJSCHED	VFY+36~, VFY+47*, VFY+48
>> PSJSPEED	ENSF+15, VFY+14, VFY+77, VFY+78, DONE+2
>> PSJSTARI	VFY+14, VFY+15
>> PSJSYSL	VFY+61
>> 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+50, VFY+59, VFY+60, VFY+62, VFY+67 , VFY+75, VFY+85, 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+30~
SDW	VFY+30~
SWD	VFY+30~
>> TIUDA	DONE+5
TXTLN	ACTLOG+8~*, ACTLOG+9, ACTLOG+10
U	ENSF+9, VFY+6, VFY+11, VFY+36, VFY+37, VFY+38, VFY+41, VFY+52, VFY+54, VFY+60 , VFY+61, VFY+63, VFY+64, VFY+65, VFY+66, CHK+12, AESCREEN+4, ACTLOG+6
>> VALMBCK	VFY+75, DONE+6
VND4	VFY+50, VFY+59, VFY+60, VFY+62*, VFY+63, VFY+64, VFY+65, VFY+66, DONE+6!
X	ENSF+6, ENSF+14~, VFY+30~, VFY+33~, VFY+58~, VFY+59, DONE+6!, CHK+17~, CHKM+4, DDEDIT+4 , DDEDIT+5, DDEDIT+6
XABB	VFY+30~
Y	ENSF+14~, VFY+33~, 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: