Routine: PSJHL7

Package	Total	Call Graph
Inpatient Medications	8	^PSGAL5 ENWALL^PSGNE3 $$GTNEDFD^PSGOE7 LOG^PSIVORAL $$DDOK^PSJHL10 EN1^PSJHL2 $$ENRNAT^PSJHL7 $$GETDUR^PSJLIVMD
VA Fileman	2	FILE^DICN ^DIE

Package	Total	Caller Graph
Inpatient Medications	3	PSJHL10 PSJHL4A PSJHL7

Name	Comments	DBIA/ICR reference
ENRNAT(OWD,NWD,SC,OAT)	;Determine admin times for renewal orders.
REN531(PSGORD,PSGDT,PSGOEPR,PSGOFD,PSGP)	;
PUT531	; Move data in local variables to 53.1
PTD531	; Move drug data from local array into 53.1
CHKM	;
RENEW	;Renew orders from OE/RR
DONE	;
GTDRG	; Get drug info and place in DRG(.
IVSET	;
CHK(X,Y,Z)	;Check for required fields ; Input: X="^^"_MED ROUTE_"^^^^"_SCH TYPE ; Y=ORDERABLE ITEM_"^"_DOSAGE ORDERED ; Z=SCHEDULE_"^"_START DATE/TIME_"^^"_STOP DATE/TIME

Name	Field # of Occurrence
FILE^DICN	REN531+7
^DIE	DONE+5
^PSGAL5	DONE+3
ENWALL^PSGNE3	RENEW+11
$$GTNEDFD^PSGOE7	RENEW+8
LOG^PSIVORAL	DONE+6
$$DDOK^PSJHL10	CHK+8
EN1^PSJHL2	DONE+7
$$ENRNAT^PSJHL7	RENEW+9
$$GETDUR^PSJLIVMD	PUT531+1

Name	Line Occurrences (* Changed, ! Killed)
^PS(	GTDRG+3
^PS(50.7 - [#50.7]	IVSET+6, CHK+4
^PS(51.1 - [#51.1]	ENRNAT+3, ENRNAT+6
^PS(51.2 - [#51.2]	IVSET+7
^PS(53.1 - [#53.1]	PUT531+1, PUT531+6, PUT531+7, PUT531+8, PUT531+10, PUT531+13, PTD531+1!, PTD531+3, PTD531+4*, REN531+3
^PS(55 - [#55]	RENEW+5, RENEW+10, IVSET+2, IVSET+3, IVSET+4, IVSET+5, IVSET+6, GTDRG+1, REN531+4, REN531+5
^PS(59.6 - [#59.6]	RENEW+2
^SC - [#44]	RENEW+2
^VA(200 - [#200]	IVSET+3, IVSET+5

Name	Line Occurrences
DONE	RENEW+3
GTDRG	IVSET+8
IVSET	RENEW+3
PTD531	PUT531+11
REN531	RENEW+24, PUT531+13, PTD531+5

Name	Field # of Occurrence
^(	RENEW+5, RENEW+10, RENEW+17*, GTDRG+3
^(0	RENEW+21*
^(2	RENEW+5, RENEW+17*
^(6	RENEW+5, RENEW+17*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CHK	CHK+4, CHK+5, CHK+6, CHK+8, CHKM+1, CHKM+3
>> CLERK	IVSET+5
DA	DONE+1~, DONE+2*, REN531+6!
DA(1	DONE+2, REN531+6
DA(2	REN531+6*
DD	REN531+6!
DFN	DONE+6~*, PTD531+5
DIC	REN531+6!*
DIC("DR"	REN531+7*
DIC("P"	REN531+6*
DIC(0	REN531+6*
DIE	DONE+1~, DONE+2*, REN531+6!
DINUM	REN531+6*, REN531+8!
DO	REN531+6!, REN531+8!
>> DOSE	RENEW+7*, RENEW+17
DR	DONE+1~, DONE+2*, REN531+6!
DRG	IVSET+1~, IVSET+3, PTD531+3, PTD531+4, GTDRG+3*
DRG(	IVSET+10, PUT531+11, PTD531+2, PTD531+3, PTD531+4, GTDRG+3*
>> DRGI	IVSET+10, GTDRG+3
DRGN	IVSET+1~, IVSET+3*
>> DRGT	IVSET+10, PUT531+11, PTD531+1, PTD531+2, PTD531+3, PTD531+4, GTDRG+1*, GTDRG+3
DRUGS	RENEW+4~, RENEW+18
DRUGS(	RENEW+10*, RENEW+22
DT	RENEW+10, RENEW+22
DUP	REN531+2~, REN531+3*
DUZ	REN531+7
>> F	RENEW+17, RENEW+19, RENEW+21, RENEW+22
>> FIL	GTDRG+1*, GTDRG+3
IVLIM	PUT531+1~*
IVLIMIT	PUT531+1~
IVND	PUT531+13~*
>> JJ	RENEW+22*
>> LOC	RENEW+2, RENEW+9
>> LOGIN	RENEW+13, IVSET+4
>> MSG	CHKM+3*, CHKM+4
MSG2	CHKM+2~, CHKM+3*, CHKM+4
ND	RENEW+4~, RENEW+5, RENEW+7, RENEW+10, RENEW+13, RENEW+14, RENEW+17, RENEW+24, IVSET+6, IVSET+7 , PUT531+13, GTDRG+3*, CHK+5
ND(	PUT531+6
ND(0	PUT531+2, PUT531+3, PTD531+5
ND(2	PUT531+4*
ND(4	PUT531+4*
ND(8	PUT531+5*
ND(9	PUT531+5*
ND1	RENEW+4~, RENEW+5, RENEW+6, RENEW+7
>> ND14	REN531+6*
ND2	RENEW+4~, RENEW+5, RENEW+7, RENEW+8, RENEW+9, RENEW+16, RENEW+17
>> NEWORDER	RENEW+13, RENEW+17, RENEW+24, PUT531+1, PUT531+2, PUT531+6, PUT531+7, PUT531+8, PUT531+10, PUT531+13 , PTD531+1, PTD531+3, PTD531+4, PTD531+5
NWD	ENRNAT~, ENRNAT+6
OAT	ENRNAT~, ENRNAT+3, ENRNAT+5
OIDRG	RENEW+4~, RENEW+7*, RENEW+8, RENEW+17
ON55	DONE+1~, DONE+4*
OOAT	ENRNAT+2~, ENRNAT+3*, ENRNAT+5, ENRNAT+7
>> ORDCON	RENEW+17, PUT531+8
>> ORDER	RENEW+14, IVSET+3
OWAT	ENRNAT+2~
OWD	ENRNAT~, ENRNAT+3
P	IVSET+1~
P(	IVSET+2*
P("CLRK"	IVSET+5*, PUT531+4
P("DO"	IVSET+6*, PUT531+7
P("FRES"	IVSET+5*
P("LOG"	IVSET+4*, PUT531+3
P("MR"	IVSET+7*, PUT531+2
P("OPI"	IVSET+5*, PUT531+5
P("OT"	IVSET+9, IVSET+10, PUT531+2
P("PD"	IVSET+6*, PUT531+7
P("PON"	IVSET+3*, PUT531+3
P("REM"	IVSET+3*, PUT531+5
P("REN"	IVSET+2*, PUT531+4
P("RES"	IVSET+2, IVSET+5, PUT531+3, PTD531+5
P("SYRS"	IVSET+5*, PUT531+5
P(11	PUT531+4
P(15	PUT531+4
P(21	IVSET+3*, PUT531+3
P(23	PUT531+5
P(3	PTD531+5
P(4	IVSET+9, PUT531+5
P(5	PUT531+5
P(6	IVSET+3*, PUT531+2
P(7	PUT531+5
P(8	PUT531+5
P(9	PUT531+4
>> PREON	RENEW+3, RENEW+5, RENEW+10, RENEW+14, RENEW+23, RENEW+24, DONE+2, DONE+3, DONE+4, DONE+6 , DONE+7, IVSET+2, IVSET+3, IVSET+4, IVSET+5, IVSET+6, PUT531+1, PUT531+12, GTDRG+1, REN531+2 , REN531+4, REN531+5
>> PRIORITY	RENEW+17, PUT531+8
>> PRNTON	RENEW+17, PUT531+10
>> PROVIDER	RENEW+13, IVSET+3
>> PSGAL("C"	DONE+3*
PSGDFLG	CHK+7!
>> PSGDI	CHK+7*
PSGDO	RENEW+4~, RENEW+7*, RENEW+17
PSGDT	REN531~, REN531+1, REN531+3, REN531+7
PSGHSM	RENEW+4~, RENEW+7*, RENEW+13
PSGMR	RENEW+4~, RENEW+7*, RENEW+13
PSGNEDFD	RENEW+4~, RENEW+8*, RENEW+13
>> PSGNEFD	RENEW+11*, RENEW+16
>> PSGNESD	RENEW+11*, RENEW+12, RENEW+16
PSGOEPR	REN531~, REN531+1, REN531+7
PSGOFD	REN531~, REN531+1, REN531+7
PSGOLDPR	REN531+2~, REN531+4, REN531+5, REN531+7
PSGORD	REN531~, REN531+1, REN531+3, REN531+6
PSGOXT	RENEW+4~, RENEW+8*, RENEW+12, RENEW+16
PSGP	REN531~, REN531+1, REN531+4, REN531+5, REN531+6
PSGPFLG	CHK+7!
PSGSCH	RENEW+4~, RENEW+7*, RENEW+9, RENEW+16
PSGSI	RENEW+4~, RENEW+5*, RENEW+17
PSGSM	RENEW+4~, RENEW+7*, RENEW+13
PSGSOY	RENEW+4~, RENEW+8, RENEW+9, RENEW+12*, RENEW+16
PSGST	RENEW+4~, RENEW+7*, RENEW+13
>> PSGWLL	RENEW+5*
>> PSITEM	RENEW+6
PSIVACT	DONE+1~, DONE+4*
PSIVALT	DONE+1~, DONE+4*
PSIVREA	DONE+1~, DONE+4*
>> PSJHLDFN	RENEW+5, RENEW+10, RENEW+11, RENEW+13, RENEW+23, RENEW+24, DONE+2, DONE+6, DONE+7, IVSET+2 , IVSET+3, IVSET+4, IVSET+5, IVSET+6, PUT531+1, PUT531+3, PUT531+12, PUT531+13, GTDRG+1
>> PSJHLMTN	DONE+7*
>> PSJORDER	DONE+2
PSJOSTOP	RENEW+1~, RENEW+23, RENEW+24, PUT531+12, PUT531+13
PSJSYSW	RENEW+1~, RENEW+2*
PSJSYSW0	RENEW+1~, RENEW+2*, RENEW+5
>> PSOC	DONE+7*
>> PSREASON	CHKM+4*
>> Q	RENEW+10*
Q1	RENEW+1~, RENEW+10*
Q2	RENEW+1~
>> ROC	RENEW+14, IVSET+5
SC	ENRNAT~, ENRNAT+3
SCP	ENRNAT+2~, ENRNAT+3*, ENRNAT+6
U	RENEW+13, RENEW+14, RENEW+16, RENEW+17, RENEW+22, IVSET+2, IVSET+3, IVSET+5, IVSET+6, IVSET+7 , IVSET+10, PUT531+1, PUT531+2, PUT531+3, PUT531+4, PUT531+5, PUT531+7, PUT531+8, PTD531+3, PTD531+4 , ENRNAT+3, ENRNAT+6, GTDRG+3
>> UNIT	RENEW+7*, RENEW+17
WAT	RENEW+4~, ENRNAT+3*, ENRNAT+5
WRDPTR	RENEW+1~, RENEW+2*
X	RENEW+10, RENEW+15, IVSET+2, PUT531+6, PTD531+2, PTD531+3, PTD531+4, ENRNAT+2~, ENRNAT+4, ENRNAT+6* , REN531+7, CHK~, CHK+6, CHKM+3
>> X1	PTD531+3*, PTD531+4
Y	IVSET+2, IVSET+4, IVSET+5, PTD531+3, PTD531+4, ENRNAT+2~, ENRNAT+4, GTDRG+1, GTDRG+3, CHK~ , CHK+4, CHK+8
Z	CHK~

Customize PDF page

Package: Inpatient Medications

Routine: PSJHL7

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: