Routine: PSJPDV0

Information

PSJPDV0 ;BIR/KKA-LIST PATIENTS ON SPECIFIC DRUGS (CONT.) ;10 Dec 98 / 8:21 AM

Source Information

Source file <PSJPDV0.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Inpatient Medications	5	($$ENMRN,$$ENPDN)^PSGMI GT55^PSIVORFB ^PSJAC DRGDISP^PSJLMUT1 ^PSJPDV1
Kernel	1	$$DT^XLFDT
VA Fileman	1	NOW^%DTC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSJPDV

Entry Points

Name	Comments	DBIA/ICR reference
MATSOL	;see if solutions of the order match the drug
ENQ
DONE
MATADD	;see if additives of the order match the drug
UDSET	;get patient and order information and set in global
UDORD	;find all Unit Dose orders with specified dispense drugs
IVSET	;S IVND=$G(^PS(55,PSGP,"IV",+PSJJORD,0)),IVSCH=$P(IVND,"^",9),IVSTD=$P(IVND,"^",2),IVSPD=^TMP("PSJPDV",$J,PSGP,PSJJORD),IVMR=$P($G(^PS(55,PSGP,"IV",+PSJJORD,6)),"^",3),IVIR=$P(IVND,"^",8)
GETMAT	;see if the patient has the number of drugs necessary to be printed on
IVORD	;get IV orders matching the requested drug

Name	Field # of Occurrence
NOW^%DTC	ENQ
$$ENMRN^PSGMI	UDSET+1
$$ENPDN^PSGMI	UDSET+2
GT55^PSIVORFB	IVSET+3
^PSJAC	ENQ+4
DRGDISP^PSJLMUT1	UDSET+4
^PSJPDV1	ENQ+5
$$DT^XLFDT	ENQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.6 - [#52.6]	MATADD+2
^PS(52.7 - [#52.7]	MATSOL+2
^PS(55 - [#55]	UDORD+1, UDORD+2, UDORD+3, UDORD+4, UDORD+5, UDSET+1, UDSET+2, IVORD+1, IVORD+2, IVORD+3 , MATADD+1, MATADD+2, MATSOL+1, MATSOL+2, IVSET+5
^SC - [#44]	IVSET+5
^TMP("PSJ"	ENQ+1!, DONE!, UDSET+6, IVSET+6
^TMP("PSJPDV"	ENQ+1!, ENQ+3, ENQ+4, DONE!, UDORD+5, UDSET+2, MATADD+3, MATSOL+3*, IVSET+4

Name	Line Occurrences
GETMAT	ENQ+3
IVORD	ENQ+2
IVSET	ENQ+4
MATADD	IVORD+4
MATSOL	IVORD+4
UDORD	ENQ+2
UDSET	ENQ+4

Name	Field # of Occurrence
^(	UDORD+5, UDSET+2, MATADD+2, MATSOL+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENQ, DONE!
ADD	DONE!, MATADD+2*
CHOICE	ENQ+2, DONE!
CLS	DONE!, UDORD+5, MATADD+3, MATSOL+3*
DFN	DONE!, UDSET+6, IVSET+3*, IVSET+6
DO	DONE!, UDSET+2*, UDSET+6
DRG	DONE!, UDSET+2, UDSET+5, UDSET+6, IVSET+4*
DRG("AD"	IVSET+4
DRG("SOL"	IVSET+4
DT	ENQ*
>> GG	GETMAT+2*
>> GGG	GETMAT+2*
IVDO	DONE!
IVDRG	DONE!, IVSET+4*, IVSET+6
IVIR	DONE!, IVSET+4*, IVSET+6
IVMR	DONE!, IVSET+4*, IVSET+6
IVND	DONE!
IVORD	DONE!, IVORD+2*, IVORD+3, MATADD+1, MATADD+2, MATADD+3, MATSOL+1, MATSOL+2, MATSOL+3
IVPSGP	DONE!, IVORD+1*, IVORD+2, IVORD+3, MATADD+1, MATADD+2, MATADD+3, MATSOL+1, MATSOL+2, MATSOL+3
IVSCH	DONE!, IVSET+4*, IVSET+6
IVSPD	DONE!, IVORD+1, IVORD+2, MATADD+3, MATSOL+3, IVSET+4, IVSET+6
IVSTD	DONE!, IVSET+4*, IVSET+5, IVSET+6
>> MATCHES	ENQ+3, GETMAT+2*
MR	DONE!, UDSET+1*, UDSET+6
ND	DONE!, UDORD+3, UDSET+1, UDSET+2, IVORD+3, MATADD+2, MATSOL+2
ND2	DONE!, MATADD+2, MATADD+3, MATSOL+2, MATSOL+3
NM	ENQ+4*, DONE!, UDSET+6, IVSET+6
>> ON	IVSET+3*, IVSET+5
ON55	IVSET+3~
>> P("MR"	IVSET+4
>> P(2	IVSET+4
>> P(8	IVSET+4
>> P(9	IVSET+4
PATDRG	DONE!
PDRG	DONE!, UDORD+5*
PMATCH	ENQ+3, DONE!
PMATCH(	ENQ+3, UDORD+5, MATADD+3, MATSOL+3*, GETMAT+2
PSGDT	ENQ*, DONE!
PSGP	ENQ+3, ENQ+4, DONE!, UDORD+1, UDORD+2, UDORD+3, UDORD+4, UDORD+5, UDSET+1, UDSET+2 , UDSET+4, IVSET+3, IVSET+4, IVSET+5, GETMAT+2
PSGP(0	ENQ+4
PSJ	UDSET+3~, UDSET+4
PSJ(1	UDSET+5
>> PSJACNWP	ENQ+4*
>> PSJISP(	UDORD+5, MATADD+3, MATSOL+3
PSJJORD	ENQ+4, DONE!, UDORD+2, UDORD+3, UDORD+4, UDORD+5, UDSET+1, UDSET+2, UDSET+4, UDSET+6 , IVSET+3, IVSET+4, IVSET+6
>> PSJMAT	ENQ+3
>> PSJPDD	IVSET+5
>> PSJPRB	ENQ+4, UDSET+6, IVSET+5*, IVSET+6
>> PSJPWDN	ENQ+4, UDSET+6, IVSET+5*, IVSET+6
>> PSJREPF	UDORD+3, IVORD+3
>> PSJREPS	UDORD+1, IVORD+1
>> PSJSL	MATADD+3, MATSOL+3
>> PSJSRT	UDSET+6, IVSET+6
SCH	DONE!, UDSET+2*, UDSET+6
SOL	DONE!, MATSOL+2*
SPD	DONE!, UDORD+1, UDORD+2, UDORD+5, UDSET+2, UDSET+6
SPPDRG	DONE!, UDORD+5*
STD	DONE!, UDSET+2*, UDSET+6
TMPRB	ENQ~, ENQ+4*, IVSET+5
TMPWD	ENQ~, ENQ+4*, IVSET+5
U	UDORD+3, UDORD+5, IVORD+3, MATADD+3, MATSOL+3, IVSET+4
VA	DONE!
VA("PID"	UDSET+6, IVSET+6
VADM	DONE!
VAIN	DONE!
X	UDSET+3~, IVSET+3~

Customize PDF page

Package: Inpatient Medications

Routine: PSJPDV0

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: