Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSJPDV0

Package: Inpatient Medications

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

External References

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

Label References

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

Naked Globals

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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All