Routine: PSJHL10

Package	Total	Call Graph
Inpatient Medications	10	ENSET0^PSGNE3 (CRA,ENGNA)^PSGOETO NEW55^PSIVORFB ($$ENU,$$INTERVAL)^PSIVUTL $$ENPC^PSJHL11 EN1^PSJHL2 CHK^PSJHL7 EN1^PSJHLERR (CIMOI,CIMOU)^PSJIMO1 $$SCHREQ^PSJLIVFD
VA FileMan	3	NOW^%DTC FILE^DICN IX^DIK
Barcode Medication Administration	1	(MOB,MOBR)^PSBAPIPM
Kernel	1	$$TRIM^XLFSTR
Order Entry Results Reporting	1	EN^ORERR
Registration	1	IN5^VADPT

Package	Total	Caller Graph
Inpatient Medications	2	PSJHL4A PSJHL7

Name	Comments	DBIA/ICR reference
VALID	;
ERROR	;Sends error msg to CPRS, logs error in OE/RR Errors file
UDSET	;Set up UD variables
OUT	;
CHK(X,Y,Z)
DDOK(PSJF,OI)	;Check to be sure all dispense drugs that are active in the
IVSET	;
PUTD55	; Move drug data from local array into 55
SETN	;Set up patient 0 node if needed.
CHKIV	;Validate IV data
AD	;Check additives
SOL	;Check solutions
DRG	;Check to be sure additive/solutions are active

Name	Field # of Occurrence
NOW^%DTC	DDOK+8
FILE^DICN	SETN+1
IX^DIK	IVSET+27
EN^ORERR	ERROR+1
MOB^PSBAPIPM	VALID+2
MOBR^PSBAPIPM	VALID+11, ERROR+1
ENSET0^PSGNE3	UDSET+12
CRA^PSGOETO	UDSET+39
ENGNA^PSGOETO	UDSET+13
NEW55^PSIVORFB	IVSET+12
$$ENU^PSIVUTL	AD+4
$$INTERVAL^PSIVUTL	IVSET+9
$$ENPC^PSJHL11	UDSET+36, IVSET+25
EN1^PSJHL2	VALID+11
CHK^PSJHL7	CHK+4
EN1^PSJHLERR	ERROR+2
CIMOI^PSJIMO1	IVSET+19
CIMOU^PSJIMO1	UDSET+38
$$SCHREQ^PSJLIVFD	IVSET+9
IN5^VADPT	VALID+6
$$TRIM^XLFSTR	UDSET+5

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

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ERROR+1
^PS(	AD+1, SOL+1, DRG+1
^PS(51.2 - [#51.2]	UDSET+14, IVSET+7
^PS(55 - [#55]	UDSET+12, UDSET+21, UDSET+22, UDSET+23!, UDSET+24!, UDSET+40, IVSET+16, IVSET+17, IVSET+18, IVSET+19* , IVSET+20, IVSET+21, IVSET+23, IVSET+24, IVSET+25, IVSET+28, PUTD55+1!, PUTD55+3, PUTD55+4, SETN+1* , SETN+3*
^PSDRUG - [#50]	DDOK+13
^TMP("PSB"	VALID+3, ERROR+2!, UDSET+30, PUTD55+2, PUTD55+4, CHKIV+7, CHKIV+8, CHKIV+9, CHKIV+10, CHKIV+11
^TMP("PSJNVO"	ERROR+2!, PUTD55+4, CHKIV+9, CHKIV+10, AD+4, SOL+4
^XUSEC("ORELSE"	UDSET+11, CHKIV+6

Name	Line Occurrences
@(	CHKIV+11
CHK	UDSET+8
CHKIV	IVSET+10
DRG	CHKIV+11
ERROR	VALID+3, VALID+4, VALID+5, UDSET+9, UDSET+10, UDSET+11, IVSET+10
IVSET	VALID+10
PUTD55	IVSET+26
SETN	IVSET+11
UDSET	VALID+8

Name	Field # of Occurrence
^(	UDSET+28*, UDSET+30
^("I"	DDOK+13, DRG+1
^(0	UDSET+14, UDSET+34, IVSET+23, AD+3, SOL+3
^(2	DDOK+13, IVSET+17*
^(4	UDSET+29*
^(5.1	SETN+1!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DDOK+8
>> APPT	UDSET+37, IVSET+19
>> C	UDSET+30*, UDSET+31
CHK	VALID+3~, VALID+11, UDSET+6, UDSET+9, UDSET+10, UDSET+11, IVSET+1, IVSET+10, CHKIV+2, CHKIV+3 , CHKIV+4, CHKIV+5, CHKIV+6, CHKIV+7, CHKIV+8, CHKIV+9, CHKIV+10, CHKIV+11, CHKIV+12, AD+1* , AD+4, SOL+1, SOL+4, DRG+1
>> CLERK	IVSET+8
>> D	UDSET+30*
DA	UDSET+15, UDSET+21, UDSET+22, UDSET+23, UDSET+24, UDSET+25, UDSET+38, UDSET+40, UDSET+41, IVSET+13~ , IVSET+27!*, IVSET+28, SETN+1!
DA(1	IVSET+27*
DATA0	VALID+3~*, VALID+4, VALID+5, VALID+8, VALID+10, UDSET+3, UDSET+19, IVSET+3, IVSET+4, IVSET+5
DD	SETN+1!
DDCNT	DDOK+7~, DDOK+12, DDOK+14
DFN	VALID+6, UDSET+40, IVSET+1~, IVSET+16, IVSET+17, IVSET+18, IVSET+19, IVSET+20, IVSET+21, IVSET+23 , IVSET+24, IVSET+25, IVSET+27, IVSET+28, PUTD55+1, PUTD55+3, PUTD55+4, SETN+1, SETN+3
DIC	SETN+1!*
DIC(0	SETN+1*
DIK	IVSET+13~, IVSET+27!*
>> DINUM	SETN+1*
DO	SETN+1!
>> DOSE	UDSET+4, UDSET+28
>> DRG	PUTD55+3, PUTD55+4, CHKIV+11, AD+1, AD+4, SOL+1, SOL+4, DRG+1
>> DRGI	CHKIV+11*, AD+4, SOL+4
>> DRGT	IVSET+26, PUTD55+1, PUTD55+2, PUTD55+3, PUTD55+4, CHKIV+11, AD+4, SOL+4
DT	DRG+1
DUZ	UDSET+11, UDSET+18, UDSET+19, CHKIV+6
>> F	UDSET+25, UDSET+27, UDSET+28, UDSET+29, UDSET+30, UDSET+31, UDSET+34, UDSET+35, UDSET+36, UDSET+37
>> FIL	CHKIV+11*, AD+1, SOL+1, DRG+1
>> INFRT	IVSET+3
>> INSTR	UDSET+5, UDSET+27
>> JJ	UDSET+35, IVSET+24
>> LOC	UDSET+37, IVSET+3
>> LOGIN	VALID+6, UDSET+7, IVSET+3
ND	UDSET+7, UDSET+13, DDOK+7~, DDOK+11, DDOK+13, IVSET+13~
ND(	IVSET+15, IVSET+16
ND(0	IVSET+14, IVSET+16
ND(1	IVSET+16*
ND(3	IVSET+16*
>> ND0	UDSET+13, UDSET+15, UDSET+16*, UDSET+25
>> ND2	UDSET+17*, UDSET+29
>> ND4	UDSET+18, UDSET+19, UDSET+20*, UDSET+21, UDSET+22, UDSET+23, UDSET+24, UDSET+29
OI	DDOK~, DDOK+13
OK	CHKIV+1~, CHKIV+12, AD+3, SOL+3*
>> ON55	IVSET+14, IVSET+16, IVSET+17, IVSET+18, IVSET+19, IVSET+20, IVSET+21, IVSET+23, IVSET+24, IVSET+25 , IVSET+27, IVSET+29, PUTD55+1, PUTD55+3, PUTD55+4
>> ORDCON	UDSET+11, UDSET+28, IVSET+16, CHKIV+6
P	IVSET+1~, IVSET+9
P(	IVSET+2*, IVSET+14
P("CLIN"	IVSET+8*, IVSET+19
P("CLRK"	IVSET+8*, IVSET+18
P("DO"	IVSET+16
P("FRES"	IVSET+8*, IVSET+17
P("INS"	IVSET+15
P("IVRM"	IVSET+8*, IVSET+17
P("LOG"	IVSET+3*, IVSET+17
P("MR"	IVSET+6, IVSET+7, IVSET+16
P("NINIT"	IVSET+8*, IVSET+20
P("NINITDT"	IVSET+3*, IVSET+20
P("OPI"	IVSET+8*, IVSET+16
P("PD"	IVSET+8*, IVSET+16
P("PRY"	IVSET+8*, IVSET+16
P("REM"	IVSET+8*, IVSET+16
P("RES"	IVSET+8*, IVSET+17
P("SYRS"	IVSET+8*, IVSET+17
P(15	IVSET+9
P(17	IVSET+3*
P(2	IVSET+3*
P(21	IVSET+3*
P(22	IVSET+3*, IVSET+19
P(3	IVSET+3*
P(4	IVSET+3*, IVSET+4, IVSET+5, IVSET+7, CHKIV+2, CHKIV+3, CHKIV+4, CHKIV+8
P(5	IVSET+3*, IVSET+5, CHKIV+4
P(6	IVSET+3*
P(8	IVSET+3*
P(9	IVSET+3, IVSET+4, IVSET+5*, CHKIV+3, CHKIV+4, CHKIV+5
P15	IVSET+9~*
>> PRIORITY	UDSET+28, IVSET+8
>> PROCOM	UDSET+32, IVSET+22
>> PROCOM(	UDSET+35, IVSET+24
>> PROVIDER	UDSET+2, IVSET+3
PSGDO	UDSET+1~, UDSET+4, UDSET+5, UDSET+8, UDSET+28
>> PSGDT	DDOK+8*, DDOK+13
PSGHSM	UDSET+1~, UDSET+2*, UDSET+7
PSGMR	UDSET+1~, UDSET+2*, UDSET+7, UDSET+8, UDSET+14
>> PSGMRN	UDSET+14*
PSGNEFD	UDSET+1~, UDSET+3*, UDSET+8, UDSET+17
PSGNESD	UDSET+1~, UDSET+3*, UDSET+8, UDSET+17
PSGOEAV	UDSET+1~, UDSET+3*, UDSET+18
>> PSGOEPR	UDSET+12*
>> PSGORD	VALID+11, UDSET+41, IVSET+29
PSGP	UDSET+1~, UDSET+2*, UDSET+7, UDSET+12, UDSET+21, UDSET+22, UDSET+23, UDSET+24, UDSET+25, UDSET+38
PSGPDRG	UDSET+1~, UDSET+2*, UDSET+8, UDSET+28
PSGPR	UDSET+1~, UDSET+2*, UDSET+7, UDSET+12
PSGS0XT	UDSET+1~, UDSET+3*, UDSET+17
PSGS0Y	UDSET+1~, UDSET+3*, UDSET+17
PSGSCH	UDSET+1~, UDSET+2*, UDSET+8, UDSET+10, UDSET+17
PSGSM	UDSET+1~, UDSET+2*, UDSET+7
PSGST	UDSET+1~, UDSET+2*, UDSET+7, UDSET+8
>> PSITEM	UDSET+2, IVSET+8, AD+3, SOL+3
PSIVACT	IVSET+13~, IVSET+27*
PSIVFN	SETN+1!*
PSJ	DDOK+7~, DDOK+11*
PSJ1	DDOK+7~, DDOK+13, DDOK+14
PSJF	DDOK~, DDOK+9, DDOK+11
>> PSJHLDFN	VALID+2, VALID+4, VALID+6, VALID+11, ERROR+1, ERROR+2, UDSET+2, IVSET+1
>> PSJMSG	ERROR+1
>> PSJORDER	VALID+2, VALID+5, VALID+11, ERROR+1, ERROR+2, UDSET+16, IVSET+3
PSJSYSU	UDSET+1~, UDSET+3*, UDSET+18, UDSET+19
>> PSREASON	VALID+3, VALID+4, VALID+5, ERROR+1, ERROR+2, UDSET+10, UDSET+11, CHKIV+2, CHKIV+3, CHKIV+4 , CHKIV+5, CHKIV+6, CHKIV+7, CHKIV+8, CHKIV+9, CHKIV+10, CHKIV+12, AD+1, AD+4, SOL+1 , SOL+4, DRG+1
>> QFLG	ERROR+2*
>> ROC	IVSET+8
>> ROUTE	UDSET+2, IVSET+6
>> SCHEDULE	UDSET+2, IVSET+3
U	UDSET+7, UDSET+8, UDSET+12, UDSET+14, UDSET+17, UDSET+18, UDSET+19, UDSET+20, UDSET+21, UDSET+22 , UDSET+23, UDSET+24, UDSET+28, UDSET+30, UDSET+31, UDSET+34, DDOK+13, IVSET+14, IVSET+16, IVSET+17 , IVSET+18, IVSET+20, IVSET+23, PUTD55+3
>> UNIT	UDSET+4, UDSET+28
>> VAIN(4	IVSET+17
VAIP	VALID+6~
VAIP("D"	VALID+6*
VAIP(5	UDSET+17
X	ERROR+1, UDSET+30, CHK~, CHK+4, IVSET+2, IVSET+14, IVSET+16, PUTD55+2, PUTD55+4, SETN+1*
Y	CHK~, CHK+4, PUTD55+3*, PUTD55+4
Z	CHK~, CHK+4

Customize PDF page

Package: Inpatient Medications

Routine: PSJHL10

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: