Routine: PSJHL9

Information

PSJHL9 ;BIR/LDT - VALIDATE INCOMING HL7 DATA/CREATE NEW ORDER ;Aug 26, 2020@15:04:51

Package	Total	Call Graph
Inpatient Medications	3	$$ENLU^PSGMI ENGNN^PSGOETO EN1^PSJHLERR
Kernel	2	($$FMADD,$$FMDIFF,$$SCH)^XLFDT $$TRIM^XLFSTR
Order Entry Results Reporting	2	EN^ORERR ($$ESC,$$UNESC)^ORHLESC
VA FileMan	2	^%DT ^DIE
Registration	1	IN5^VADPT

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

Package	Total	Caller Graph
Inpatient Medications	2	PSJHL4 PSJHL4A

Entry Points

Name	Comments	DBIA/ICR reference
VALID	;
ERROR	;Sends error msg to CPRS, logs error in OE/RR Errors file
NVO	; put new orders in non-verified orders file
STRIP	;Strips spaces off the end of instructions.
ORTYP(MDRT,DDRG)
TRYAGAIN(MDRT,OI)
STOP(REQST,DURA)
ZQDATE(DATE,MONTHS)
DAY(DATE)	;DATE=FIRST FIVE DIGITS OF FM DATE
STPADM(SCH,AT,STP)	; calculate STOP DATE based on admin schedule; p*388

External References

Name	Field # of Occurrence
^%DT	ZQDATE+2
^DIE	NVO+8
EN^ORERR	ERROR+1
$$ESC^ORHLESC	NVO+4
$$UNESC^ORHLESC	NVO+29, NVO+31, NVO+32, NVO+34, NVO+37, NVO+38, NVO+44, NVO+50, NVO+53
$$ENLU^PSGMI	VALID+10
ENGNN^PSGOETO	NVO+3
EN1^PSJHLERR	ERROR+2
IN5^VADPT	VALID+14
$$FMADD^XLFDT	STOP+5, STOP+13, DAY+5, STPADM+6
$$FMDIFF^XLFDT	STPADM+6, STPADM+8
$$SCH^XLFDT	STOP+5, STOP+7
$$TRIM^XLFSTR	VALID+11

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ERROR+1
^PS(50.7 - [#50.7]	VALID+2
^PS(51.2 - [#51.2]	NVO+2, ORTYP+6, ORTYP+7, ORTYP+8, ORTYP+9, ORTYP+10, ORTYP+11, ORTYP+12
^PS(53.1 - [#53.1]	NVO+10, NVO+11, NVO+12, NVO+13, NVO+14, NVO+15, NVO+16, NVO+19, NVO+20, NVO+21 , NVO+22, NVO+25, NVO+26, NVO+27, NVO+28, NVO+29, NVO+30, NVO+31, NVO+32, NVO+33 , NVO+34, NVO+36, NVO+37, NVO+38, NVO+40, NVO+41, NVO+43, NVO+44, NVO+46, NVO+47 , NVO+49, NVO+50, NVO+51, NVO+52, NVO+53*
^PS(55 - [#55]	NVO+9*
^PSDRUG - [#50]	ORTYP+3, ORTYP+4, ORTYP+7, ORTYP+8, ORTYP+9, ORTYP+10, ORTYP+11, ORTYP+12, TRYAGAIN+5
^PSDRUG("ASP"	TRYAGAIN+4
^SC - [#44]	NVO+5
^TMP("PSJNVO"	VALID+19, ERROR+2!, NVO+42, NVO+44, NVO+45, NVO+47, NVO+48, NVO+50, NVO+52, NVO+53
^VA(200 - [#200]	NVO+51

Label References

Name	Line Occurrences
$$DAY	STOP+2, STOP+5
$$ORTYP	VALID+4, TRYAGAIN+6
$$STOP	NVO+21
$$STPADM	STOP+6, STOP+8, STOP+15
$$TRYAGAIN	VALID+4
ERROR	VALID+1, VALID+2, VALID+3, VALID+13, VALID+14, VALID+17, VALID+19, VALID+21
STRIP	NVO+29

Naked Globals

Name	Field # of Occurrence
^(0	NVO+36, NVO+40

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADMINS	NVO+6*, NVO+15, STOP+6, STOP+8, STOP+15
>> ADMINSTR	NVO+39
>> ADMINSTR(	NVO+41
>> APPL	VALID+1, VALID+3, VALID+4, VALID+5, VALID+6, VALID+13, VALID+14, VALID+15, VALID+16, VALID+18 , NVO+2, NVO+4, NVO+11, NVO+29, NVO+32
>> APPT	VALID+14, NVO+5
AT	STPADM~, STPADM+3*, STPADM+4, STPADM+5, STPADM+6, STPADM+7
AT1	STPADM+2~, STPADM+5, STPADM+6, STPADM+7
>> CLERK	NVO+33, NVO+51
DA	NVO+3~, NVO+8, NVO+10, NVO+11, NVO+12, NVO+13, NVO+14, NVO+15, NVO+16, NVO+19 , NVO+20, NVO+21, NVO+22, NVO+25, NVO+26, NVO+27, NVO+28, NVO+29, NVO+30, NVO+31 , NVO+32, NVO+33, NVO+34, NVO+36, NVO+37, NVO+38, NVO+40, NVO+41, NVO+43, NVO+44 , NVO+46, NVO+47, NVO+49, NVO+50, NVO+51, NVO+52, NVO+53
DATE	STOP+4*, STOP+5, ZQDATE~, ZQDATE+2, ZQDATE+3, DAY~, DAY+2, DAY+3, DAY+4
>> DAYS	STOP+2, STOP+5
DDRG	ORTYP~, ORTYP+2, ORTYP+3, ORTYP+4, ORTYP+7, ORTYP+8, ORTYP+9, ORTYP+10, ORTYP+11, ORTYP+12 , TRYAGAIN+4~*, TRYAGAIN+5, TRYAGAIN+6
>> DEL	STOP+5*
DFN	VALID+14~*
DIE	NVO+3~*
>> DISPENSE	VALID+4, NVO+34
>> DOSE	NVO+29
DR	NVO+3~, NVO+4, NVO+5, NVO+6, NVO+7
DT	TRYAGAIN+5
DURA	STOP~, STOP+2, STOP+3, STOP+4, STOP+5, STOP+7, STOP+9, STOP+10, STOP+11, STOP+12* , STOP+13, STOP+15
>> DURATION	NVO+18*, NVO+19, NVO+21
>> FREQ	NVO+27
>> INFRT	VALID+20, VALID+21, NVO+23, NVO+24*, NVO+25, NVO+26
>> INSTR	NVO+22, NVO+29
>> IVCAT	VALID+20, NVO+6
>> IVLIMIT	NVO+20
>> IVTYP	NVO+25
>> JJ	NVO+37, NVO+41, NVO+44, NVO+47, NVO+50*, NVO+51, NVO+52, NVO+53
>> LOC	NVO+5
>> LOGIN	NVO+4
MDRT	ORTYP~, ORTYP+5, ORTYP+6, ORTYP+7, ORTYP+8, ORTYP+9, ORTYP+10, ORTYP+11, ORTYP+12, TRYAGAIN~ , TRYAGAIN+6
MONTHS	ZQDATE~, ZQDATE+2
ND	STPADM+2~, STPADM+7, STPADM+8
>> NEWDATE	ZQDATE+3*, ZQDATE+4
>> NEWORDER	NVO+8*
>> NUM	STOP+4*
OI	TRYAGAIN~, TRYAGAIN+4
>> ORDCON	NVO+30
>> ORDER	ERROR+2, NVO+10
>> ORTYP	ORTYP+2, ORTYP+3, ORTYP+4, ORTYP+5, ORTYP+6, ORTYP+7, ORTYP+8, ORTYP+9, ORTYP+10, ORTYP+11 , ORTYP+12, ORTYP+13, TRYAGAIN+3, TRYAGAIN+6, TRYAGAIN+7, TRYAGAIN+8, TRYAGAIN+9, TRYAGAIN+10*, TRYAGAIN+11
ORTYPI	TRYAGAIN+2~, TRYAGAIN+3, TRYAGAIN+7, TRYAGAIN+10
ORTYPP	TRYAGAIN+2~, TRYAGAIN+3, TRYAGAIN+9, TRYAGAIN+10
ORTYPU	TRYAGAIN+2~, TRYAGAIN+3, TRYAGAIN+8, TRYAGAIN+10
PND	STPADM+2~, STPADM+8*, STPADM+9, STPADM+10
>> PREON	NVO+14
>> PRIORITY	NVO+4
>> PRNTON	NVO+4, STOP+6, STOP+8, STOP+15
>> PROCOM	NVO+35
>> PROCOM(	NVO+37
>> PROVIDER	NVO+4, NVO+9
PSG	STPADM+2~, STPADM+9
PSG(	STPADM+7*, STPADM+8
PSG(9999999	STPADM+9
>> PSITEM	VALID+1, VALID+2, VALID+4, NVO+4
>> PSJHLDFN	VALID+14, ERROR+2, NVO+4, NVO+9
PSJHLSKP	NVO+8!
>> PSJINDI	NVO+38
>> PSJMSG	ERROR+1
>> PSJORDER	NVO+8*
>> PSOC	ERROR+2
>> PSREASON	VALID+1, VALID+2, VALID+3, VALID+13, VALID+14, VALID+17, VALID+19, VALID+21, ERROR+1, ERROR+2
>> QFLG	ERROR+2*
>> QQ	NVO+53*
REQST	NVO+16, NVO+21, STOP~, STOP+2, STOP+4, STOP+5, STOP+7, STOP+13
>> ROC	VALID+17, NVO+13
>> ROUTE	VALID+3, VALID+4, VALID+17, NVO+1, NVO+2, NVO+4
SCH	STPADM~, STPADM+3
>> SCHEDULE	VALID+7*, VALID+13, NVO+31, STOP+6, STOP+8, STOP+15
>> SCHTYP	NVO+7, NVO+28
>> STOP	STOP+3, STOP+5, STOP+6, STOP+7, STOP+8, STOP+13, STOP+15, STOP+16
STP	STPADM~, STPADM+3*, STPADM+4, STPADM+6, STPADM+7, STPADM+8, STPADM+10
U	ERROR+2, NVO+5
>> UNIT	NVO+29
>> UNITS	NVO+32, NVO+34
>> VAIP(5	VALID+14
X	VALID+7~, VALID+9, VALID+10, VALID+11, VALID+12, ERROR+1, NVO+29~, STRIP+1, ZQDATE+2, ZQDATE+3 , DAY+1~, DAY+3, DAY+4, DAY+5, STPADM+2~, STPADM+8
Y	ZQDATE+2, STPADM+2~, STPADM+7*

Customize PDF page

Package: Inpatient Medications