Routine: PSJORUTL

Information

PSJORUTL ;BIR/MLM-MISC. PROCEDURE CALLS FOR OE/RR 3.0 ;24 Feb 99 / 10:43 AM

Source Information

Source file <PSJORUTL.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Inpatient Medications	2	$$ENDDN^PSGMI $$OIDF^PSJLMUT1
National Drug File	1	($$PSJDF,$$PSJING,$$PSJST)^PSNAPIS

Caller Graph

Caller Graph Total: 12

Package	Total	Caller Graph
Order Entry Results Reporting	11	ORBCMA1 ORBCMA32 ORCDPS ORCDPS2 ORCHECK ORMBLDPS ORWDPS ORWDPS1 ORWDPS32 ORWDPS33 ORWDXC
Inpatient Medications	1	PSJORUT2

Entry Points

Name	Comments	DBIA/ICR reference
ENDD(PD,TYP,PSJ,DFN)	; Find all entries in DRUG file (50) for the passed primary/usage.	ICR #2403 Status: Active Usage: Private
ENDI(PN,PSJ)	; Find all ingredients for the passed dispense drug.
MAX	;returns max number of refills for outpatient orders ;5.27.97/SAB
ENSDC(PSGP)	; Add IV and UD orders to ^TMP global used for order checking. ; Input: PSGP - Patient IEN ; Output: ^TMP($J("ORDERS",DRUG NAME)=DRUG CLASS CODE^NDF POINTER*
ENDDIV(PD,TYP,VOLUME,PSJ)	; Find all entries in DRUG file (50) for the passed Orderable item, IV additive/solution.	ICR #2403 Status: Active Usage: Private
ENDCM(DDRG)		ICR #2403 Status: Active Usage: Private
ENDF(PN)	; Returns dosage form for the specified VA Product Name.
ENNDFS(PN)	; Returns STRENGTH from ^PSNDF for the specified VA Product Name. ; NEW NDF CALL
ENRFA(DDRG,TYP,PSJ)		ICR #2403 Status: Active Usage: Private

External References

Name	Field # of Occurrence
$$ENDDN^PSGMI	ENRFA+13
$$OIDF^PSJLMUT1	ENRFA+13
$$PSJDF^PSNAPIS	ENDF+5
$$PSJING^PSNAPIS	ENDI+7
$$PSJST^PSNAPIS	ENNDFS+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ENDF+5, ENNDFS+2, ENDI+7
^PS(	ENDDIV+11, ENDDIV+12
^PS(50.416 - [#50.416]	ENDI+12
^PS(50.606 - [#50.606]	ENDF+7
^PSDRUG - [#50]	ENDD+13, ENDD+16, ENDDIV+14, ENDCM+6, ENDCM+7, ENRFA+8, ENRFA+10, ENRFA+11, ENRFA+13, MAX+1 , MAX+2
^PSDRUG("ASP"	ENDD+13
^PSNDF(	ENDF+7, ENNDFS+4, ENDI+11, ENDI+12
^YSCL(603.01	MAX+3

Label References

Name	Line Occurrences
MAX	ENDD+16, ENRFA+13

Naked Globals

Name	Field # of Occurrence
^(0	ENDCM+7
^(660	ENDD+16, ENDDIV+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CLOZPAT	MAX+3*!
DDRG	ENDD+12~, ENDD+13, ENDD+16, ENDDIV+9~, ENDDIV+13, ENDDIV+14, ENDCM~, ENDCM+6, ENDCM+7, ENRFA~ , ENRFA+8, ENRFA+10, MAX+1, MAX+2
DEA	ENDD+12~, ENRFA+9~, MAX+1*, MAX+4!, MAX+5, MAX+6!
DEAI	ENDD+12~, ENRFA+9~, MAX+5*, MAX+6!
DFN	ENDD~, MAX+2, MAX+3
DT	ENDD+13
FIL	ENDDIV+9~, ENDDIV+10*, ENDDIV+11, ENDDIV+12
GDP	ENDI+9~, ENDI+10*, ENDI+11, ENDI+12
INACT	ENDD+12~, ENDD+13*
ING	ENDI+9~, ENDI+12*, ENDI+13
INGND	ENDI+9~, ENDI+11*, ENDI+12
INGNME	ENDI+9~, ENDI+12*, ENDI+13
INGPTR	ENDI+9~, ENDI+12*, ENDI+13
>> IVIEN	ENDDIV+11*, ENDDIV+12
MAX	ENDD+12~, ENDD+16!, ENRFA+9~, ENRFA+13!, MAX+1!, MAX+3, MAX+4, MAX+5, MAX+6
ND	ENDD+12~, ENDD+16, ENDDIV+9~, ENDDIV+14
PD	ENDD~, ENDD+12*, ENDD+13, ENDDIV~, ENDDIV+11
PN	ENDF~, ENDF+5, ENDF+7, ENNDFS~, ENNDFS+2, ENNDFS+4, ENDI~, ENDI+7, ENDI+10
PNP	ENDI+9~, ENDI+10*, ENDI+11
PNS	ENNDFS+2~, ENNDFS+4~, ENNDFS+5
PSGP	ENSDC~
PSJ	ENDD~, ENDD+12, ENDD+16, ENDDIV~, ENDDIV+9, ENDDIV+14, ENRFA~, ENRFA+8!, ENRFA+13, ENDI~ , ENDI+7, ENDI+10, ENDI+13*
PSJ(	ENDD+16, ENRFA+13, ENDI+13*
PSJDF	ENDF+5~, ENDF+7, ENDF+8
PSJNDF	ENDF+7~
TYP	ENDD~, ENDD+14, ENDDIV~, ENDDIV+10, ENDDIV+12, ENRFA~, ENRFA+11
U	ENDD+12, ENDD+13, ENDD+16, ENDDIV+12, ENDDIV+13, ENDDIV+14, ENDCM+7, ENRFA+11, ENRFA+13, ENDF+7 , ENDF+8, ENNDFS+4, ENNDFS+5, ENDI+12, ENDI+13
VOLUME	ENDDIV~, ENDDIV+10*, ENDDIV+12
X	ENDD+12~, ENDD+14, ENDDIV+9~, ENDCM+6~, ENDCM+7, ENRFA+9~, ENRFA+10, ENDF+5~, ENDF+7~, ENDF+8 , ENNDFS+2~, ENNDFS+4~, ENNDFS+5, ENDI+7~, ENDI+9~, ENDI+11*
X1	ENDF+5~, ENNDFS+2~, ENDI+7~*
X2	ENDF+5~, ENNDFS+2~, ENDI+7~*
XX	ENRFA+9~, ENRFA+11*
Y	ENDD+12~, ENDD+13, ENDD+14, ENDD+15, ENDD+16, ENDDIV+9~, ENDDIV+12, ENDDIV+13, ENDDIV+14, ENRFA+9~ , ENRFA+10, ENRFA+11, ENRFA+13, ENNDFS+4~, ENDI+9~, ENDI+11, ENDI+12
YY	ENRFA+9~, ENRFA+11, ENRFA+12, ENRFA+13*

Customize PDF page

Package: Inpatient Medications

Routine: PSJORUTL

Call Graph Total: 3

Caller Graph Total: 12