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.) ; 7/6/09 2:20pm

Source Information

Source file <PSJPDV0.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJPDV  

Entry Points

Name Comments DBIA/ICR reference
ENQ
DONE
DIVWARD() ;DIVISION/WARD MATCH FOR PATIENT (PSJ*5*214)
UDORD ;find all Unit Dose orders with specified dispense drugs
UDSET ;get patient and order information and set in global
IVORD ;get IV orders matching the requested drug
MATADD ;see if additives of the order match the drug
MATSOL ;see if solutions of the order match the drug
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
CLN(SDIV) ; check Out patient clinic orders

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIVWARD+7, CLN+3
^DIC(42 - [#42] DIVWARD+7
^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+2, UDSET+3, UDSET+4, IVORD+1, IVORD+2
, IVORD+3, MATADD+1, MATADD+2, MATSOL+1, MATSOL+2, IVSET+5, IVSET+6
^SC - [#44] UDSET+2, IVSET+5, IVSET+6
^TMP("PSJ" ENQ+1!, DONE!, UDSET+8*, IVSET+7*
^TMP("PSJPDV" ENQ+1!, ENQ+3, ENQ+4, DONE!, UDORD+5*, UDSET+4, MATADD+3*, MATSOL+3*, IVSET+4

Label References

Name Line Occurrences
$$CLN UDSET+2, IVSET+6
$$DIVWARD ENQ+4
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+4, 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!
CLN UDSET+1~, UDSET+2*, IVSET+3~, IVSET+6*
CLS DONE!, UDORD+5*, MATADD+3*, MATSOL+3*
DFN DONE!, UDSET+8, IVSET+3*, IVSET+7
DIV CLN+1~, CLN+3*, CLN+4
DO DONE!, UDSET+4*, UDSET+8
DRG DONE!, UDSET+4*, UDSET+7*, UDSET+8, IVSET+4*
DRG("AD" IVSET+4
DRG("SOL" IVSET+4
DT ENQ*
FLG CLN+1~, CLN+3*, CLN+4*, CLN+5
>> GG GETMAT+2*
>> GGG GETMAT+2*
IVDO DONE!
IVDRG DONE!, IVSET+4*, IVSET+7
IVIR DONE!, IVSET+4*, IVSET+7
IVMR DONE!, IVSET+4*, IVSET+7
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+7
IVSPD DONE!, IVORD+1*, IVORD+2, MATADD+3, MATSOL+3, IVSET+4*, IVSET+7
IVSTD DONE!, IVSET+4*, IVSET+5, IVSET+7
>> MATCHES ENQ+3, GETMAT+2*
MR DONE!, UDSET+3*, UDSET+8
ND DONE!, UDORD+3*, UDSET+3*, UDSET+4*, IVORD+3*, MATADD+2*, MATSOL+2*
ND2 DONE!, MATADD+2*, MATADD+3, MATSOL+2*, MATSOL+3
NM ENQ+4*, DONE!, UDSET+8, IVSET+7
>> ON IVSET+3*, IVSET+5, IVSET+6
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+2, UDSET+3
, UDSET+4, UDSET+6, IVSET+3, IVSET+4, IVSET+5, IVSET+6, GETMAT+2
PSGP(0 ENQ+4
PSJ UDSET+5~, UDSET+6
PSJ(1 UDSET+7
>> PSJACNWP ENQ+4*
>> PSJISP( UDORD+5, MATADD+3, MATSOL+3
PSJJORD ENQ+4*, DONE!, UDORD+2*, UDORD+3, UDORD+4, UDORD+5, UDSET+2, UDSET+3, UDSET+4, UDSET+6
, UDSET+8, IVSET+3, IVSET+4, IVSET+7
>> PSJMAT ENQ+3
>> PSJPDD IVSET+5
>> PSJPRB ENQ+4, UDSET+8, IVSET+5*, IVSET+7
>> PSJPWD DIVWARD+4, DIVWARD+5, DIVWARD+7, UDSET+2, IVSET+6
>> PSJPWDN ENQ+4, UDSET+8, IVSET+5*, IVSET+7
>> PSJREPF UDORD+3, IVORD+3
>> PSJREPS UDORD+1, IVORD+1
>> PSJSL MATADD+3, MATSOL+3
>> PSJSRT UDSET+8, IVSET+7
PSJV DIVWARD+1~, DIVWARD+7*, CLN+4*
PSJVA DIVWARD+1~, DIVWARD+2*, DIVWARD+6, DIVWARD+7*
PSJVC DIVWARD+1~, DIVWARD+7*, CLN+1~, CLN+4*
SC0 UDSET+1~, UDSET+2*, IVSET+3~, IVSET+6*
SCH DONE!, UDSET+4*, UDSET+8
SDIV CLN~, CLN+2, CLN+3
SOL DONE!, MATSOL+2*
SPD DONE!, UDORD+1*, UDORD+2, UDORD+5, UDSET+4*, UDSET+8
SPPDRG DONE!, UDORD+5*
STD DONE!, UDSET+4*, UDSET+8
TMPRB ENQ~, ENQ+4*, IVSET+5
TMPWD ENQ~, ENQ+4*, IVSET+5
U DIVWARD+7, UDORD+3, UDORD+5, UDSET+2, IVORD+3, MATADD+3, MATSOL+3, IVSET+4, IVSET+6, CLN+3
VA DONE!
VA("PID" UDSET+8, IVSET+7
VADM DONE!
VAIN DONE!
>> VAUTD DIVWARD+3, DIVWARD+5, UDSET+2, IVSET+6
>> VAUTD( DIVWARD+7, CLN+4
>> VAUTW DIVWARD+3, DIVWARD+6
>> VAUTW( DIVWARD+4
X UDSET+5~, IVSET+3~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All