Routine: PSJHL7

Package	Total	Call Graph
Inpatient Medications	9	^PSGAL5 ENWALL^PSGNE3 $$GTNEDFD^PSGOE7 LOG^PSIVORAL (FILEOPI,FILESI,GETOPI,GETSI)^PSJBCMA5 $$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
RENEW	;Renew orders from OE/RR
DONE	;
IVSET	;
PUT531	; Move data in local variables to 53.1
PTD531	; Move drug data from local array into 53.1
ENRNAT(OWD,NWD,SC,OAT)	;Determine admin times for renewal orders.
GTDRG	; Get drug info and place in DRG(.
REN531(PSGORD,PSGDT,PSGOEPR,PSGOFD,PSGP)	;
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
CHKM	;

Name	Field # of Occurrence
FILE^DICN	REN531+7
^DIE	DONE+5
^PSGAL5	DONE+3
ENWALL^PSGNE3	RENEW+13
$$GTNEDFD^PSGOE7	RENEW+9
LOG^PSIVORAL	DONE+6
FILEOPI^PSJBCMA5	REN531+12
FILESI^PSJBCMA5	REN531+10
GETOPI^PSJBCMA5	REN531+12
GETSI^PSJBCMA5	REN531+10
$$DDOK^PSJHL10	CHK+8
EN1^PSJHL2	DONE+7
$$ENRNAT^PSJHL7	RENEW+10
$$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+7, PUT531+8, PUT531+9, PUT531+11, PUT531+14, PTD531+1!, PTD531+3, PTD531+4*, REN531+3
^PS(53.45 - [#53.45]	REN531+10, REN531+12
^PS(55 - [#55]	RENEW+5, RENEW+11, IVSET+2, IVSET+3, IVSET+4, IVSET+5, IVSET+6, GTDRG+1, REN531+4, REN531+5 , REN531+9, REN531+11
^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+12
REN531	RENEW+26, PUT531+14, PTD531+5

Name	Field # of Occurrence
^(	RENEW+5, RENEW+11, RENEW+19*, GTDRG+3
^(0	RENEW+23*
^(2	RENEW+5, RENEW+19*
^(2.1	RENEW+5, RENEW+19*
^(6	RENEW+5, RENEW+19*

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+8*, RENEW+19
DR	DONE+1~, DONE+2*, REN531+6!
DRG	IVSET+1~, IVSET+3, PTD531+3, PTD531+4, GTDRG+3*
DRG(	IVSET+10, PUT531+12, PTD531+2, PTD531+3, PTD531+4, GTDRG+3*
>> DRGI	IVSET+10, GTDRG+3
DRGN	IVSET+1~, IVSET+3*
>> DRGT	IVSET+10, PUT531+12, PTD531+1, PTD531+2, PTD531+3, PTD531+4, GTDRG+1*, GTDRG+3
DRUGS	RENEW+4~, RENEW+20
DRUGS(	RENEW+11*, RENEW+24
DT	RENEW+11, RENEW+24
DUP	REN531+2~, REN531+3*
DUZ	REN531+7
>> F	RENEW+19, RENEW+21, RENEW+23, RENEW+24
>> FIL	GTDRG+1*, GTDRG+3
IVLIM	PUT531+1~*
IVLIMIT	PUT531+1~
IVND	PUT531+14~*
>> JJ	RENEW+24*
>> LOC	RENEW+2, RENEW+10
>> LOGIN	RENEW+15, IVSET+4
>> MSG	CHKM+3*, CHKM+4
MSG2	CHKM+2~, CHKM+3*, CHKM+4
ND	RENEW+4~, RENEW+5, RENEW+8, RENEW+11, RENEW+15, RENEW+16, RENEW+19, RENEW+26, IVSET+6, IVSET+7 , PUT531+14, GTDRG+3*, CHK+5
ND(	PUT531+7
ND(0	PUT531+2, PUT531+3, PTD531+5
ND(17	PUT531+6*
ND(2	PUT531+4*
ND(4	PUT531+4*
ND(8	PUT531+5*
ND(9	PUT531+5*
ND1	RENEW+4~, RENEW+5, RENEW+7, RENEW+8
>> ND14	REN531+6*
ND2	RENEW+4~, RENEW+5, RENEW+6, RENEW+8, RENEW+9, RENEW+10, RENEW+18, RENEW+19
ND2P1	RENEW+4~, RENEW+5*, RENEW+19
>> NEWORDER	RENEW+15, RENEW+19, RENEW+26, PUT531+1, PUT531+2, PUT531+7, PUT531+8, PUT531+9, PUT531+11, PUT531+14 , PTD531+1, PTD531+3, PTD531+4, PTD531+5
NWD	ENRNAT~, ENRNAT+6
OAT	ENRNAT~, ENRNAT+3, ENRNAT+5
OIDRG	RENEW+4~, RENEW+8*, RENEW+9, RENEW+19
ON55	DONE+1~, DONE+4*
OOAT	ENRNAT+2~, ENRNAT+3*, ENRNAT+5, ENRNAT+7
>> ORDCON	RENEW+19, PUT531+9
>> ORDER	RENEW+16, 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+8
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+8
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, PUT531+6
P(9	PUT531+4
>> PREON	RENEW+3, RENEW+5, RENEW+11, RENEW+16, RENEW+25, RENEW+26, DONE+2, DONE+3, DONE+4, DONE+6 , DONE+7, IVSET+2, IVSET+3, IVSET+4, IVSET+5, IVSET+6, PUT531+1, PUT531+13, GTDRG+1, REN531+2 , REN531+4, REN531+5, REN531+9, REN531+10, REN531+11, REN531+12
>> PRIORITY	RENEW+19, PUT531+9
>> PRNTON	RENEW+19, PUT531+11
>> PROVIDER	RENEW+15, IVSET+3
>> PSGAL("C"	DONE+3*
PSGDFLG	CHK+7!
>> PSGDI	CHK+7*
PSGDO	RENEW+4~, RENEW+8*, RENEW+19
PSGDT	REN531~, REN531+1, REN531+3, REN531+7
PSGHSM	RENEW+4~, RENEW+8*, RENEW+15
PSGMR	RENEW+4~, RENEW+8*, RENEW+15
PSGNEDFD	RENEW+4~, RENEW+9*, RENEW+15
PSGNEFD	RENEW+1~, RENEW+6*, RENEW+13, RENEW+18
PSGNESD	RENEW+1~, RENEW+6*, RENEW+13, RENEW+14, RENEW+18
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, REN531+10, REN531+12
PSGOXT	RENEW+4~, RENEW+9*, RENEW+14, RENEW+18
PSGP	REN531~, REN531+1, REN531+4, REN531+5, REN531+6, REN531+9, REN531+10, REN531+11, REN531+12
PSGPFLG	CHK+7!
PSGSCH	RENEW+4~, RENEW+8*, RENEW+10, RENEW+18
PSGSI	RENEW+4~, RENEW+5*, RENEW+19
PSGSM	RENEW+4~, RENEW+8*, RENEW+15
PSGSOY	RENEW+4~, RENEW+9, RENEW+10, RENEW+14*, RENEW+18
PSGST	RENEW+4~, RENEW+8*, RENEW+15
>> PSGWLL	RENEW+5*
>> PSITEM	RENEW+7
PSIVACT	DONE+1~, DONE+4*
PSIVALT	DONE+1~, DONE+4*
PSIVREA	DONE+1~, DONE+4*
>> PSJHLDFN	RENEW+5, RENEW+11, RENEW+13, RENEW+15, RENEW+25, RENEW+26, DONE+2, DONE+6, DONE+7, IVSET+2 , IVSET+3, IVSET+4, IVSET+5, IVSET+6, PUT531+1, PUT531+3, PUT531+13, PUT531+14, GTDRG+1
>> PSJHLMTN	DONE+7*
>> PSJORDER	DONE+2
PSJOSTOP	RENEW+1~, RENEW+25, RENEW+26, PUT531+13, PUT531+14
PSJSYSP	REN531+10~, REN531+12~
PSJSYSW	RENEW+1~, RENEW+2*
PSJSYSW0	RENEW+1~, RENEW+2*, RENEW+5
>> PSOC	DONE+7*
>> PSREASON	CHKM+4*
>> Q	RENEW+11*
Q1	RENEW+1~, RENEW+11*
Q2	RENEW+1~
>> ROC	RENEW+16, IVSET+5
SC	ENRNAT~, ENRNAT+3
SCP	ENRNAT+2~, ENRNAT+3*, ENRNAT+6
U	RENEW+6, RENEW+15, RENEW+16, RENEW+18, RENEW+19, RENEW+24, IVSET+2, IVSET+3, IVSET+5, IVSET+6 , IVSET+7, IVSET+10, PUT531+1, PUT531+2, PUT531+3, PUT531+4, PUT531+5, PUT531+8, PUT531+9, PTD531+3 , PTD531+4, ENRNAT+3, ENRNAT+6, GTDRG+3
>> UNIT	RENEW+8*, RENEW+19
WAT	RENEW+4~, ENRNAT+3*, ENRNAT+5
WRDPTR	RENEW+1~, RENEW+2*
X	RENEW+11, RENEW+17, IVSET+2, PUT531+7, 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: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: