Routine: PSJOC

Information

PSJOC ;BIR/MV - NEW ORDER CHECKS DRIVER ; 9/10/14 10:53pm

Package	Total	Call Graph
Inpatient Medications	9	CLNDISP^PSJCLNOC (CK,CKIV,CKIVD)^PSJCROC EN^PSJGMRA (DSPLORDU,DSPLORDV,PAUSE)^PSJLMUT1 WRITE^PSJMISC DI^PSJOCDI (DT,DTDGCK)^PSJOCDT ($$SYS,DSPERR)^PSJOCERR CPRS^PSJOCOR
Pharmacy Data Management	2	IN^PSSHRQ2 ($$HAZ,HAZWARNG)^PSSUTIL
VA FileMan	2	$$GET1^DIQ ^DIR
Kernel	1	$$REPEAT^XLFSTR
List Manager	1	FULL^VALM1
Outpatient Pharmacy	1	BLD^PSODDPR4

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: 10

Package	Total	Caller Graph
Inpatient Medications	10	PSGOE82 PSGSICHK PSIVEDT PSIVOC PSJOCDC PSJOCDI PSJOCDS PSJOCDSD PSJOCDT PSJOCERR

Entry Points

Name	Comments	DBIA/ICR reference
OC(PSPDRG,PSJPTYP)	;
DISPLAY	;
GMRAOC	;Display allergy & CPRS OC regardless if FDB is connected
ALLERGY	;Do allergy order check
DSPORD(ON,PSJNLST,PSJCLINF)	;Display the order data
DRUGERR	;Display drug level errors
DSPDRGER(PSJDSFLG)	;
ERRCHK(PSJTYPE,PSJX)	;
PING(PSJMSG)	;Check if FDB is down. Return 0 if it is
DSPSERR(PSJMSG)	;Display system errors
NOFDB(PSJX,PSJMSG)	;Display connection down message
PROSPERR()	;Display exceptions for prospective drug
HAZCHK	;Check for a hazardous drug component and display soft error type warning roll and scroll alert *364
HAZDRUG(FILE,AR)	;Get Hazardous to Handle and Hazardous to Dispose fields per component and return Haz array by DRUG IEN *364 ; FILE = file root + Order Num from inpatient variables during workflow; Example VAR contains: "^PS(55,DFN,5,ON," or "(PS(53.1,ON," or "^PS(55,DFN,"IV",ON," ; (build ROOT to the multiple level to find all Disp Drugs or Additives or Solution and get HAZ flags) ; AR = array of component's IEN and their Haz flag settings
WRAPTEXT(TEXT,LIMIT,CSPACES)	;Wrap text util copied in from a PSO routine originally *364

External References

Name	Field # of Occurrence
$$GET1^DIQ	ALLERGY+10, ALLERGY+19, ALLERGY+25
^DIR	HAZCHK+28
CLNDISP^PSJCLNOC	DSPORD+7
CK^PSJCROC	DISPLAY+7
CKIV^PSJCROC	DISPLAY+9, DISPLAY+10
CKIVD^PSJCROC	DISPLAY+11
EN^PSJGMRA	ALLERGY+15, ALLERGY+35
DSPLORDU^PSJLMUT1	DSPORD+9
DSPLORDV^PSJLMUT1	DSPORD+10
PAUSE^PSJLMUT1	DISPLAY+28, DISPLAY+29, DISPLAY+33, DSPORD+8, DSPORD+12, DRUGERR+8, DRUGERR+18, DSPDRGER+8, NOFDB+7
WRITE^PSJMISC	DSPDRGER+10, DSPDRGER+11
DI^PSJOCDI	DISPLAY+21
DT^PSJOCDT	DISPLAY+25
DTDGCK^PSJOCDT	DISPLAY+26
$$SYS^PSJOCERR	OC+9
DSPERR^PSJOCERR	DISPLAY+23, DISPLAY+27
CPRS^PSJOCOR	GMRAOC+3
BLD^PSODDPR4	OC+12
IN^PSSHRQ2	PING+3
$$HAZ^PSSUTIL	HAZCHK+10, HAZCHK+17, HAZDRUG+8, HAZDRUG+12, HAZDRUG+16
HAZWARNG^PSSUTIL	HAZCHK+23
FULL^VALM1	DISPLAY+3, ALLERGY+4
$$REPEAT^XLFSTR	WRAPTEXT+8, WRAPTEXT+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Building MEDS profile please wait...",! Line Location: OC+11
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+3
Function Call: WRITE	Prompt: "Now processing Clinical Reminder Order Checks. Please wait ..." Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !!,"Now Processing Enhanced Order Checks! Please wait...",! Line Location: DISPLAY+15
Function Call: WRITE	Prompt: !!,"Now doing allergy checks. Please wait..." Line Location: ALLERGY+6
Function Call: WRITE	Prompt: @IOF Line Location: DSPORD+8
Function Call: WRITE	Prompt: @IOF Line Location: DSPORD+12
Function Call: WRITE	Prompt: ! Line Location: DSPORD+13
Function Call: WRITE	Prompt: $E(X,9,$L(X)) Line Location: DSPORD+16
Function Call: WRITE	Prompt: ! Line Location: DSPORD+17
Function Call: WRITE	Prompt: ! Line Location: DRUGERR+12
Function Call: WRITE	Prompt: @IOF Line Location: DSPDRGER+8
Function Call: WRITE	Prompt: ! Line Location: DSPDRGER+9
Function Call: WRITE	Prompt: !!,PSJMSG Line Location: NOFDB+3
Function Call: WRITE	Prompt: !!,"No Enhanced Order Checks can be performed." Line Location: NOFDB+4
Function Call: WRITE	Prompt: !," Reason(s): ",PSJX,!! Line Location: NOFDB+5
Function Call: WRITE	Prompt: #,$C(7),LL,!,$J("*** WARNING ***",47) Line Location: HAZCHK+24
Function Call: WRITE	Prompt: ! Line Location: HAZCHK+25
Function Call: WRITE	Prompt: LL,! Line Location: HAZCHK+27
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR(" ",CSPACES) Line Location: WRAPTEXT+8
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR(" ",CSPACES) Line Location: WRAPTEXT+13
Function Call: WRITE	Prompt: NEXTWORD_" " Line Location: WRAPTEXT+14
Routine Call	DIR Line Location: HAZCHK+28

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.6 - [#52.6]	HAZDRUG+12
^PS(52.7 - [#52.7]	HAZDRUG+16
^TMP($J	OC+14!, DISPLAY+19, DISPLAY+26, DISPLAY+29, ALLERGY+23, ALLERGY+24, DRUGERR+10, DRUGERR+11, DRUGERR+13, PING+2* , DSPSERR+2, PROSPERR+3, PROSPERR+4, PROSPERR+5, PROSPERR+12, PROSPERR+13

Label References

Name	Line Occurrences
$$DSPSERR	DISPLAY+14, PING+4
$$ERRCHK	DRUGERR+16, PROSPERR+7
$$PROSPERR	DRUGERR+6
ALLERGY	GMRAOC+2
DISPLAY	OC+13
DRUGERR	DISPLAY+18
DSPDRGER	DRUGERR+17, PROSPERR+8
GMRAOC	DISPLAY+4
HAZCHK	GMRAOC+1
HAZDRUG	HAZCHK+8, HAZCHK+15
NOFDB	DSPSERR+3
WRAPTEXT	HAZCHK+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AR	HAZDRUG~
AR(	HAZDRUG+8, HAZDRUG+12, HAZDRUG+16*
COUNT	WRAPTEXT+3~, WRAPTEXT+9*, WRAPTEXT+10
CRIV	DISPLAY+9, DISPLAY+10, DISPLAY+12!
CROCLN	DISPLAY+2~, DISPLAY+5*
CROCLN2	DISPLAY+2~, DISPLAY+5*
CROCNR	DISPLAY+5*, DISPLAY+12!
CROCPFLG	DISPLAY+12!
CSPACES	WRAPTEXT~, WRAPTEXT+6*, WRAPTEXT+8, WRAPTEXT+13
DACNT	ALLERGY+7~, ALLERGY+36!
>> DFN	OC+12, ALLERGY+15, ALLERGY+35, DSPORD+9, DSPORD+10, HAZCHK+6, HAZCHK+13
DIR	HAZCHK+28!
DIR("?"	HAZCHK+28*
DIR("A"	HAZCHK+28*
DIR(0	HAZCHK+28*
DRGIEN	HAZCHK+1~, HAZCHK+16, HAZCHK+17, HAZCHK+20, HAZCHK+21, HAZCHK+22, HAZCHK+23
FILE	HAZDRUG~, HAZDRUG+6, HAZDRUG+7, HAZDRUG+10, HAZDRUG+11, HAZDRUG+14, HAZDRUG+15
GL	HAZDRUG+4~, HAZDRUG+7, HAZDRUG+11, HAZDRUG+15*
HAZ	HAZCHK+1~, HAZCHK+19, HAZCHK+23, HAZCHK+26
HAZD	HAZCHK+1~, HAZCHK+2, HAZCHK+21, HAZCHK+22, HAZCHK+23
HAZH	HAZCHK+1~, HAZCHK+2, HAZCHK+21, HAZCHK+22, HAZCHK+23
HDG	HAZCHK+1~, HAZCHK+19, HAZCHK+24
HTXT	HAZCHK+1~, HAZCHK+23, HAZCHK+25
HZAR	HAZCHK+1~, HAZCHK+8, HAZCHK+15
HZAR(	HAZCHK+10, HAZCHK+17, HAZCHK+20, HAZCHK+21
IFN	HAZDRUG+4~, HAZDRUG+7, HAZDRUG+8, HAZDRUG+11, HAZDRUG+12, HAZDRUG+15, HAZDRUG+16*
IOF	DISPLAY+3, DSPORD+8, DSPORD+12, DSPDRGER+8
IOSL	DISPLAY+32, DSPORD+8, DSPORD+12, DSPDRGER+8
LIMIT	WRAPTEXT~, WRAPTEXT+5*, WRAPTEXT+13
LINE	WRAPTEXT+3~, WRAPTEXT+12*, WRAPTEXT+13!
LL	HAZCHK+1~, HAZCHK+19*, HAZCHK+24, HAZCHK+27
>> NAME	HAZCHK+3, HAZCHK+9, HAZCHK+11
NEXTWORD	WRAPTEXT+3~, WRAPTEXT+10*, WRAPTEXT+11, WRAPTEXT+12, WRAPTEXT+14
NXT	HAZDRUG+4~, HAZDRUG+7, HAZDRUG+11, HAZDRUG+15*
NXTROOT	HAZDRUG+4~, HAZDRUG+7, HAZDRUG+11, HAZDRUG+15*
ON	DSPORD~, DSPORD+4, DSPORD+9, DSPORD+10, DSPORD+11, DSPORD+15, HAZCHK+3, HAZCHK+5, HAZCHK+6
>> PSGDRG	HAZCHK+3, HAZCHK+9, HAZCHK+10
>> PSGORD	HAZCHK+4, HAZCHK+5, HAZCHK+6
>> PSGORQF	DISPLAY+4, DISPLAY+7, DISPLAY+11, DISPLAY+13, DISPLAY+22, DISPLAY+27, DISPLAY+30, GMRAOC+2, ALLERGY+14, ALLERGY+34 , ALLERGY+35
PSIALLFL	ALLERGY+5!
>> PSIVCOPY	DISPLAY+28
PSJALGCT	ALLERGY+9~, ALLERGY+15*
PSJALLGS	ALLERGY+9~, ALLERGY+22, ALLERGY+33, ALLERGY+34*, ALLERGY+35
PSJALLGY	ALLERGY+36!, HAZCHK+9, HAZCHK+11, HAZCHK+16
PSJALLGY(	ALLERGY+10, ALLERGY+18, ALLERGY+20, ALLERGY+21, ALLERGY+26*, ALLERGY+27, ALLERGY+28!, ALLERGY+34, ALLERGY+35, HAZCHK+16
PSJALLGY("A"	ALLERGY+27!, ALLERGY+31, ALLERGY+32!
PSJALLGY("AA"	ALLERGY+11, ALLERGY+12, ALLERGY+14, ALLERGY+16!
PSJALLGY("Z"	ALLERGY+32
PSJAOC	ALLERGY+7~*
PSJCC	ALLERGY+29, ALLERGY+31, ALLERGY+32, ALLERGY+33, ALLERGY+34, ALLERGY+35, ALLERGY+36!
>> PSJCKDRG	ALLERGY+24*, ALLERGY+25, ALLERGY+26, ALLERGY+27, ALLERGY+28
PSJCLINF	DSPORD~, DSPORD+5*, DSPORD+7
PSJCOL	DSPORD+3~, DSPORD+6*
PSJCROCF	DISPLAY+2~
PSJDD	ALLERGY+9~, ALLERGY+10, ALLERGY+11, ALLERGY+12, ALLERGY+13, ALLERGY+14, ALLERGY+15, ALLERGY+20, ALLERGY+29, ALLERGY+31 , ALLERGY+32, ALLERGY+33, ALLERGY+35, ALLERGY+36!
PSJDERF2	DISPLAY+2~, DISPLAY+31, DISPLAY+32, DSPDRGER+11*
>> PSJDERR2	DRUGERR+18*
>> PSJDGCK	OC+11, DISPLAY+19, DISPLAY+25, DISPLAY+26, DISPLAY+28, DISPLAY+29, DISPLAY+33, ALLERGY+8, ALLERGY+17, DRUGERR+9
PSJDGCKX	DISPLAY+6, DISPLAY+12!
PSJDGDRG	ALLERGY+7~
PSJDGFLG	ALLERGY+7~, ALLERGY+22, ALLERGY+35
PSJDN	DISPLAY+1~
PSJDNM	DISPLAY+1~
PSJDRGIF	DISPLAY+2~, DISPLAY+31, DISPLAY+32
PSJDSFLG	DSPDRGER~, DSPDRGER+5
PSJDSPFG	DRUGERR+1~, DRUGERR+5, DRUGERR+8, DRUGERR+18, DSPDRGER+6, PROSPERR+8, PROSPERR+14
PSJDUPTF	DISPLAY+2~, DISPLAY+31, DISPLAY+32
PSJECNT	DISPLAY+1~
>> PSJEXCPT(	ERRCHK+7, ERRCHK+8
>> PSJEXCPT("PROFILE"	DRUGERR+9
PSJGDDN	ALLERGY+9~, ALLERGY+10, ALLERGY+11, ALLERGY+12, ALLERGY+19, ALLERGY+20, ALLERGY+21, ALLERGY+22, ALLERGY+25, ALLERGY+26 , ALLERGY+27
PSJGGDN	ALLERGY+13, ALLERGY+14, ALLERGY+36!
PSJLINE	DSPORD+3~, DSPORD+6*
PSJLINEF	DRUGERR+1~, DRUGERR+12*
PSJMON	DISPLAY+1~
PSJMSG	PING~, PING+4, DSPSERR~, DSPSERR+3, NOFDB~, NOFDB+3, NOFDB+4, NOFDB+7
PSJN	DRUGERR+1~, DRUGERR+11, DRUGERR+13, PROSPERR+1~, PROSPERR+4, PROSPERR+5
PSJNLST	DSPORD~, DSPORD+8, DSPORD+12, DSPORD+14
PSJNV	DRUGERR+1~, DRUGERR+13, DRUGERR+16, DSPDRGER+2, DSPDRGER+11, PROSPERR+1~, PROSPERR+5, PROSPERR+7
PSJOC	DISPLAY+1~, DSPORD+3~
PSJOC(	DSPORD+11, DSPORD+15
PSJOCDT	DISPLAY+1~
PSJOCDTL	DISPLAY+1~
PSJOCERR	OC+7~
PSJOCLST	DISPLAY+1~
PSJOLDSV	DISPLAY+1~
>> PSJORD	HAZCHK+11, HAZCHK+12, HAZCHK+13
PSJP	DISPLAY+1~
PSJPAUSE	DISPLAY+1~, DISPLAY+17, DISPLAY+31!, DISPLAY+32, DISPLAY+33, DSPDRGER+7!
PSJPERR	DRUGERR+1~, DRUGERR+6, DRUGERR+7, PROSPERR+1~, PROSPERR+11, PROSPERR+14*, PROSPERR+15
PSJPON	DISPLAY+1~, DRUGERR+1~, DRUGERR+10, DRUGERR+11, DRUGERR+13, DRUGERR+15, PROSPERR+1~, PROSPERR+3, PROSPERR+4, PROSPERR+5 , PROSPERR+6, PROSPERR+7, PROSPERR+12*, PROSPERR+13
PSJPTYP	OC~, OC+12
PSJS	DISPLAY+1~
PSJSEV	DISPLAY+1~
PSJTOFFL	DISPLAY+2~, DISPLAY+15*, DISPLAY+28
PSJTXT	DSPDRGER+1~, DSPDRGER+2, DSPDRGER+5, DSPDRGER+10
PSJTYPE	ERRCHK~, ERRCHK+5, ERRCHK+7, ERRCHK+8
PSJX	DSPORD+3~, DSPORD+11, DSPORD+14, DSPORD+15, DRUGERR+1~, ERRCHK~, ERRCHK+4, ERRCHK+7, ERRCHK+8, NOFDB~ , NOFDB+2, NOFDB+5, NOFDB+6!, PROSPERR+7
PSJXX	ALLERGY+18, ALLERGY+19, ALLERGY+20, ALLERGY+21, ALLERGY+22, ALLERGY+23*, ALLERGY+24, ALLERGY+36!
PSJYY	ALLERGY+22*, ALLERGY+36!
PSORDN	HAZCHK+1~, HAZCHK+4, HAZCHK+5, HAZCHK+6, HAZCHK+7, HAZCHK+8, HAZCHK+12, HAZCHK+13*, HAZCHK+14, HAZCHK+15
PSPDRG	OC~, OC+12, GMRAOC+3
PSPDRG(1	DISPLAY+7
QQ	HAZDRUG+4~, HAZDRUG+6, HAZDRUG+7, HAZDRUG+10, HAZDRUG+11, HAZDRUG+14*, HAZDRUG+15
ROOT	HAZDRUG+4~, HAZDRUG+6, HAZDRUG+7, HAZDRUG+10, HAZDRUG+11, HAZDRUG+14*, HAZDRUG+15
TEXT	WRAPTEXT~, WRAPTEXT+4, WRAPTEXT+7, WRAPTEXT+10
>> TMPDRG1("AD"	DISPLAY+7, DISPLAY+8, DISPLAY+9, DISPLAY+11
>> TMPDRG1("SOL"	DISPLAY+7, DISPLAY+8, DISPLAY+10, DISPLAY+11
TOP	HAZCHK+1~
U	ALLERGY+24, DRUGERR+16, DSPDRGER+2, DSPDRGER+11, DSPSERR+3, DSPSERR+4, PROSPERR+7, HAZCHK+21, HAZDRUG+12, HAZDRUG+16
>> VALMBCK	DISPLAY+11*
WORDS	WRAPTEXT+3~, WRAPTEXT+7*, WRAPTEXT+9
X	DSPORD+3~, DSPORD+15, DSPORD+16, DSPDRGER+4, DSPDRGER+5, DSPSERR+1~, DSPSERR+2*, DSPSERR+3, DSPSERR+4, NOFDB+1~

Customize PDF page

Package: Inpatient Medications

Routine: PSJOC

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: