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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSJOCDI

Package: Inpatient Medications

Routine: PSJOCDI


Information

PSJOCDI ;BIR/MV - DISPLAY DRUG INTERACTION ORDER CHECKS ;6 Jun 07 / 3:37 PM

Source Information

Source file <PSJOCDI.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Inpatient Medications 5 DISPCLN^PSJCLNOC  (INTERV,RINTERV)^PSJGMRA  ($$GENVUID,$$VAGEN,LINE,PAUSE,WRITE)^PSJMISC  MON^PSJMON  DSPORD^PSJOC  
Outpatient Pharmacy 1 EN^PSODRDU2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJOC  

Entry Points

Name Comments DBIA/ICR reference
DISPON2 ;
DSPCRTCL(PSJPSPEC,PSJPROFL) ;Display Critical orders
HDR(PSJDNM) ;Display the intro text on drug interaction
DISPON ; Display orders & clin effects if applied.
PSTAT(PSJPONCK) ;**Display order status - CCR 5980
INTERV ;Log intervention. Required for Critical.
DI ;
RDIVUID ;Loop thru the "IN" global to store the VUID for remote Rx
DSPLOC ;Display drug drug interaction - sorted by severity, prospective drug (50,.01), profile drug (VAgen name), package, seq#
SORTORD ;Sort drug drug output to display in order of: Inpatient, Active Rx, Remote Rx, Pending Rx, Non_VA
CRITICAL ;
DSPDRG(PSJPON,PSJDNM,PSJCLINF) ;Display order info or drug name from prospective. CCR 6454
OCLST(PSJ1,PSJCLINF) ;Sort orders into array to display later
CLIN(PSJSEV,PSJDNM,PSJPON,PSJDN,PSJLINE) ;
DSPLCLIN(PSJ2) ;If the next drug on the list is diff the flag to display the clin effects.

External References

Name Field # of Occurrence
DISPCLN^PSJCLNOC DISPON+8, DISPON+14
INTERV^PSJGMRA INTERV+23
RINTERV^PSJGMRA INTERV+14
$$GENVUID^PSJMISC OCLST+27
$$VAGEN^PSJMISC OCLST+19, OCLST+26
LINE^PSJMISC DI+19, DSPLOC+4, DSPLOC+25
PAUSE^PSJMISC DSPLOC+4, DISPON+1, DISPON+5, DISPON+10, DISPON+16, DISPON2+3, CLIN+8, CLIN+11, DSPDRG+7
WRITE^PSJMISC CLIN+9
MON^PSJMON DI+21
DSPORD^PSJOC DSPDRG+8
EN^PSODRDU2 DISPON+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"*** REFER TO MONOGRAPH FOR SIGNIFICANT INTERACTION CLINICAL EFFECTS",!
  • Line Location: DI+18
Function Call: WRITE
  • Prompt: !
  • Line Location: DI+20
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DSPLOC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLOC+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPON+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPON+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPON+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPON+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPON2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CLIN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLIN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CLIN+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLIN+11
Function Call: WRITE
  • Prompt: !,?8,$G(PSJDNM)_$G(PSJSTCK),!
  • Line Location: DSPDRG+3
Function Call: WRITE
  • Prompt: !?8,$G(PSJDNM)_" (Prospective)",!
  • Line Location: DSPDRG+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DSPDRG+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] PSTAT+25, PSTAT+26, PSTAT+27, PSTAT+28, PSTAT+29, PSTAT+30
^PS(55 - [#55] PSTAT+32, PSTAT+33, PSTAT+34, PSTAT+35, PSTAT+36, PSTAT+37, PSTAT+38, PSTAT+39, PSTAT+41, PSTAT+42
, PSTAT+43, PSTAT+44, PSTAT+45, PSTAT+46, PSTAT+47, PSTAT+48
^PSRX - [#52] PSTAT+8, PSTAT+9, PSTAT+10, PSTAT+11, PSTAT+12, PSTAT+13, PSTAT+14, PSTAT+15, PSTAT+16, PSTAT+17
, PSTAT+18, PSTAT+19, PSTAT+20, PSTAT+21
^TMP($J DI+8, DI+9, DI+10, DI+12, DI+13, DI+17, SORTORD+2, OCLST+15, OCLST+24, CLIN+5
, CLIN+6, HDR+3, HDR+4, RDIVUID+4, RDIVUID+5, DSPLCLIN+11, DSPLCLIN+12

Label References

Name Line Occurrences
$$DSPLCLIN DISPON2+2
$$PSTAT HDR+4
CLIN DISPON2+2
CRITICAL DI+15
DISPON DSPLOC+29, DSPCRTCL+7
DSPCRTCL DSPLOC+20
DSPDRG DISPON+9
DSPLOC DI+16
HDR DISPON+4
INTERV DI+22
OCLST SORTORD+5, SORTORD+6
RDIVUID DI+5
SORTORD DI+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN DISPON+15, PSTAT+32, PSTAT+33, PSTAT+34, PSTAT+35, PSTAT+36, PSTAT+37, PSTAT+38, PSTAT+39, PSTAT+41
, PSTAT+42, PSTAT+43, PSTAT+44, PSTAT+45, PSTAT+46, PSTAT+47, PSTAT+48
IOF DSPLOC+4, DISPON+1, DISPON+5, DISPON+10, DISPON+16, DISPON2+3, CLIN+8, CLIN+11, DSPDRG+7
IOSL DISPON+1, DISPON+5, DISPON+10, DISPON+16, DISPON2+3, CLIN+8, CLIN+11, DSPDRG+7
PDJDNV SORTORD+1~
>> PSGORQF DI+8, DI+9, DI+10, DI+13, INTERV+6, INTERV+9, INTERV+17, INTERV+19
PSJ1 OCLST~, OCLST+13, OCLST+20, OCLST+23
PSJ2 DI+1~, DI+6*, DSPLOC+1~, DSPLOC+27*, DSPLOC+28, DSPCRTCL+1~, DSPCRTCL+5*, DSPCRTCL+6, DISPON2+1, DISPON2+2
, OCLST+14*, OCLST+20, OCLST+23, DSPLCLIN~, DSPLCLIN+2, DSPLCLIN+3, DSPLCLIN+5, CRITICAL+10*, CRITICAL+12
PSJ2N DSPLCLIN+1~, DSPLCLIN+5*, DSPLCLIN+6, DSPLCLIN+7*, DSPLCLIN+8
PSJCKOS PSTAT+1~, PSTAT+2*, PSTAT+8, PSTAT+9*, PSTAT+10*, PSTAT+11*, PSTAT+12*, PSTAT+13*, PSTAT+14*, PSTAT+15*
, PSTAT+16*, PSTAT+17*, PSTAT+18*, PSTAT+19*, PSTAT+20*, PSTAT+21*
PSJCKST PSTAT+1~, PSTAT+2*, PSTAT+4, PSTAT+6*, PSTAT+7*, PSTAT+8*, PSTAT+22*, PSTAT+23, PSTAT+24, PSTAT+25*
, PSTAT+26*, PSTAT+27*, PSTAT+28*, PSTAT+29*, PSTAT+30*, PSTAT+31, PSTAT+32*, PSTAT+33*, PSTAT+34*, PSTAT+35*
, PSTAT+36*, PSTAT+37*, PSTAT+38*, PSTAT+39*, PSTAT+40, PSTAT+41*, PSTAT+42*, PSTAT+43*, PSTAT+44*, PSTAT+45*
, PSTAT+46*, PSTAT+47*, PSTAT+48*, PSTAT+49
PSJCLINC DSPLCLIN+1~, DSPLCLIN+11*, DSPLCLIN+13
PSJCLINF DI+1~, DI+11*, DI+12*, DSPLOC+1~, DISPON+3*, DISPON+8, DISPON+9, DISPON+14, SORTORD+5, SORTORD+6
, OCLST~, OCLST+20, OCLST+23, DSPDRG~, DSPDRG+8
PSJCLINN DSPLCLIN+1~, DSPLCLIN+12*, DSPLCLIN+13
PSJCLINV CLIN+3~, CLIN+6*, CLIN+8
PSJCNT HDR+1~*, HDR+3*, HDR+4, PSTAT+1~, PSTAT+2*, PSTAT+23*
PSJCRTCL DI+1~
PSJCRTCL( DSPLOC+17, DSPLOC+18, DSPLOC+19, CRITICAL+12*
PSJDD INTERV+3~, INTERV+10*, INTERV+20*
PSJDDSV INTERV+4!
>> PSJDEFLG DSPLOC+4*
>> PSJDGCK DI+11, DI+22, INTERV+14, INTERV+23, HDR+3, HDR+9, PSTAT+4
PSJDN DI+1~, DI+13*, DSPLOC+1~, SORTORD+2, OCLST+15, OCLST+20, OCLST+23, OCLST+24, OCLST+32, CLIN~
, INTERV+3~, INTERV+9*, INTERV+10, INTERV+19*, INTERV+20
PSJDNM DI+1~, DI+9*, DI+10, DI+13, SORTORD+2, OCLST+15, OCLST+19, OCLST+20, OCLST+23, OCLST+24
, OCLST+32, CLIN~, CLIN+5, CLIN+6, HDR~, HDR+4, HDR+8, HDR+12, DSPDRG~, DSPDRG+4
PSJDNV DSPLOC+1~, DSPLOC+28*, DSPCRTCL+6*, DISPON+2, DISPON+3, DISPON+4, DISPON+9, DISPON+14, SORTORD+2*, OCLST+12~
, OCLST+15*, OCLST+16, OCLST+19, OCLST+20, OCLST+23, OCLST+26, OCLST+27, OCLST+29, OCLST+32
PSJDNVC DSPLCLIN+1~, DSPLCLIN+3*, DSPLCLIN+4
PSJDNVN DSPLCLIN+1~, DSPLCLIN+8*, DSPLCLIN+9
>> PSJDNX CLIN+5*, CLIN+6
>> PSJDRGIF DSPLOC+4, DISPON+7*, DISPON+11*
PSJDSPON DSPLOC+1~, DSPLOC+22!, DISPON+4!
PSJDSPON( DISPON+12, DISPON+13*, DSPDRG+5, DSPDRG+6*
PSJDXOPT DI+1~, DI+11*, DI+12
PSJGROUP DI+1~, DSPLOC+18*, DSPLOC+19, CRITICAL+1~, CRITICAL+2*, CRITICAL+7*, CRITICAL+12
PSJHDR DI+1~, DISPON+4*
PSJHDRS DSPLOC+1~, DSPLOC+6*, DISPON+4*
PSJIND PSTAT+1~, PSTAT+2*, PSTAT+23*, PSTAT+24, PSTAT+31, PSTAT+40
PSJINTVD INTERV+3~, INTERV+4!
PSJINTVD( INTERV+12, INTERV+13*, INTERV+21, INTERV+22*
PSJLINE DSPLOC+6*, DISPON2+1*, DISPON2+2, CLIN~, CLIN+4*
PSJMON DI+1~, DI+21
PSJMON( OCLST+30, OCLST+32*, OCLST+33*, OCLST+35*, OCLST+41*
PSJMONTI OCLST+12~, OCLST+24*, OCLST+25*, OCLST+30, OCLST+31, OCLST+32, OCLST+33, OCLST+35, OCLST+41
PSJMONV OCLST+12~, OCLST+30*, OCLST+34, OCLST+35, OCLST+37
PSJNDV INTERV+3~, INTERV+10*, INTERV+12, INTERV+13, INTERV+14, INTERV+20*, INTERV+21, INTERV+22, INTERV+23
PSJNDX CLIN+3~
PSJNEXT CRITICAL+1~, CRITICAL+2*, CRITICAL+6*, CRITICAL+9, CRITICAL+11, CRITICAL+13*
PSJOCLST DI+1~
PSJOCLST( DSPLOC+8, DSPLOC+9, DSPLOC+10, DSPLOC+11, DSPLOC+24, DSPLOC+26, DSPLOC+27, DSPLOC+28, OCLST+20*, OCLST+23*
, INTERV+6, INTERV+7, INTERV+8, INTERV+9, INTERV+10, INTERV+17, INTERV+18, INTERV+19, INTERV+20, DSPLCLIN+3
, DSPLCLIN+5, DSPLCLIN+6, DSPLCLIN+7, DSPLCLIN+8, CRITICAL+4, CRITICAL+5, CRITICAL+8, CRITICAL+10, CRITICAL+12
PSJOCLST("" DI+14, DSPLOC+7
PSJOCLST("C" DSPCRTCL+4, DSPCRTCL+5, DSPCRTCL+6
PSJON1 OCLST+12~, OCLST+37*, OCLST+39, OCLST+40, OCLST+42!
PSJON2 OCLST+12~, OCLST+38*, OCLST+39, OCLST+40, OCLST+42!
PSJONCK PSTAT+1~, PSTAT+2*, PSTAT+23*, PSTAT+25, PSTAT+26, PSTAT+27, PSTAT+28, PSTAT+29, PSTAT+30, PSTAT+32
, PSTAT+33, PSTAT+34, PSTAT+35, PSTAT+36, PSTAT+37, PSTAT+38, PSTAT+39, PSTAT+41, PSTAT+42, PSTAT+43
, PSTAT+44, PSTAT+45, PSTAT+46, PSTAT+47, PSTAT+48
PSJONFG OCLST+12~, OCLST+36*, OCLST+39*, OCLST+40*, OCLST+41, OCLST+42!
PSJONFLG DI+1~, DI+22, DISPON+7*, DISPON+11*
PSJP DSPLOC+1~, DISPON+8, DISPON+14
PSJP( DISPON+2*
PSJP(1 DISPON2+2
PSJP(2 DISPON2+2
PSJP(4 DISPON+9, DISPON+12, DISPON+13, DISPON+15, DISPON2+2
PSJP(5 DISPON2+2
PSJPAUSE DSPLOC+3!
PSJPC DSPLCLIN+1~
PSJPC( DSPLCLIN+4*
PSJPC(1 DSPLCLIN+10, DSPLCLIN+11
PSJPC(2 DSPLCLIN+10, DSPLCLIN+11
PSJPC(4 DSPLCLIN+10, DSPLCLIN+11
PSJPC(5 DSPLCLIN+10, DSPLCLIN+11
PSJPN DSPLCLIN+1~
PSJPN( DSPLCLIN+9*
PSJPN(1 DSPLCLIN+10, DSPLCLIN+12
PSJPN(2 DSPLCLIN+10, DSPLCLIN+12
PSJPN(4 DSPLCLIN+10, DSPLCLIN+12
PSJPN(5 DSPLCLIN+10, DSPLCLIN+12
PSJPON DI+1~, DI+10*, DI+12, DI+13, DSPLOC+1~, SORTORD+2, SORTORD+3, SORTORD+4, SORTORD+6, OCLST+15
, OCLST+20, OCLST+23, OCLST+24, OCLST+27, OCLST+32, OCLST+38, CLIN~, CLIN+5, CLIN+6, DSPDRG~
, DSPDRG+1, DSPDRG+4, DSPDRG+5, DSPDRG+6, DSPDRG+8, RDIVUID+1~, RDIVUID+3*, RDIVUID+4*, RDIVUID+5, RDIVUID+6
PSJPONCK PSTAT~, PSTAT+6, PSTAT+7, PSTAT+8, PSTAT+9, PSTAT+10, PSTAT+11, PSTAT+12, PSTAT+13, PSTAT+14
, PSTAT+15, PSTAT+16, PSTAT+17, PSTAT+18, PSTAT+19, PSTAT+20, PSTAT+21, PSTAT+22, PSTAT+23
PSJPROFL DSPLOC+1~, DSPCRTCL~, DSPCRTCL+3, DSPCRTCL+4, DSPCRTCL+5, DSPCRTCL+6, OCLST+12~, INTERV+3~, INTERV+7*, INTERV+8
, INTERV+9, INTERV+10, DSPLCLIN+3, DSPLCLIN+5, DSPLCLIN+6, DSPLCLIN+7, DSPLCLIN+8, CRITICAL+5*, CRITICAL+8, CRITICAL+10
, CRITICAL+12
PSJPSPEC DSPLOC+1~, DSPLOC+24*, DSPLOC+26, DSPLOC+27, DSPLOC+28, DSPCRTCL~, DSPCRTCL+2, DSPCRTCL+4, DSPCRTCL+5, DSPCRTCL+6
, DISPON2+1, OCLST+12~, OCLST+16*, OCLST+20, OCLST+23, INTERV+6*, INTERV+7, INTERV+8, INTERV+9, INTERV+10
, INTERV+17*, INTERV+18, INTERV+19, INTERV+20, DSPLCLIN+3, DSPLCLIN+5, DSPLCLIN+6, DSPLCLIN+7, DSPLCLIN+8, CRITICAL+4*
, CRITICAL+5, CRITICAL+8, CRITICAL+10, CRITICAL+12
PSJRDI DI+1~, RDIVUID+2!
PSJRDI( OCLST+27, RDIVUID+6*
PSJSEV DI+1~, DI+8*, DI+9, DI+10, DI+13, DSPLOC+1~, DSPLOC+15*, DSPLOC+23*, DSPLOC+24, DSPLOC+26
, DSPLOC+27, DSPLOC+28, DISPON+4, DISPON2+1, DISPON2+2, SORTORD+2, OCLST+15, OCLST+18, OCLST+20, OCLST+22
, OCLST+23, OCLST+24, OCLST+32, OCLST+35, CLIN~, CLIN+2, CLIN+5, CLIN+6, INTERV+3~, INTERV+6*
, INTERV+7, INTERV+8, INTERV+9, INTERV+10, INTERV+17*, INTERV+18, INTERV+19, INTERV+20, HDR+7, HDR+11
, DSPLCLIN+3, DSPLCLIN+5, DSPLCLIN+6, DSPLCLIN+7, DSPLCLIN+8, CRITICAL+3*, CRITICAL+4, CRITICAL+5, CRITICAL+8, CRITICAL+10
, CRITICAL+12
PSJSORT DI+1~, DSPLOC+1~, DSPLOC+17*, DSPLOC+18, DSPLOC+19, DSPLOC+26*, DSPLOC+27, DSPLOC+28, DSPCRTCL+1~, DSPCRTCL+4*
, DSPCRTCL+5, DSPCRTCL+6, DISPON+6, DISPON+11, DISPON2+1, DSPLCLIN+3, DSPLCLIN+5, DSPLCLIN+6, DSPLCLIN+7, DSPLCLIN+8
, CRITICAL+8*, CRITICAL+10, CRITICAL+12
PSJSORTN DSPLCLIN+1~, DSPLCLIN+6*
PSJSTCK HDR+1~*, HDR+3, HDR+4*, HDR+5, HDR+8
PSJTYPE INTERV+3~, INTERV+8*, INTERV+9, INTERV+10, INTERV+18*, INTERV+19, INTERV+20
PSJVAGEN OCLST+12~, OCLST+19*, OCLST+20, OCLST+26*, OCLST+27*, OCLST+28, OCLST+29*, OCLST+30, OCLST+32, OCLST+33
, OCLST+35, OCLST+41
PSJVUID RDIVUID+1~, RDIVUID+5*, RDIVUID+6
PSJX DSPLOC+1~, SORTORD+1~, SORTORD+4*, SORTORD+5, CLIN+3~, CLIN+8*, CLIN+9
PSJXDN DSPLOC+1~, DSPLOC+11*, DISPON2+1
PSJXNM DSPLOC+1~, DSPLOC+8*, DSPLOC+9, DSPLOC+10, DSPLOC+11, DISPON2+1
PSJXNM1 DSPLOC+1~, DSPLOC+9*, DSPLOC+10, DSPLOC+11
PSJXSEV DSPLOC+1~, DSPLOC+7*, DSPLOC+8, DSPLOC+9, DSPLOC+10, DSPLOC+11, DISPON2+1
PSJXSORT DSPLOC+1~, DSPLOC+10*, DSPLOC+11, DISPON2+1
U DSPLOC+20, DISPON+2, DISPON+3, DISPON+4, DISPON+9, DISPON+14, OCLST+16, OCLST+19, OCLST+20, OCLST+23
, OCLST+26, OCLST+27, OCLST+29, OCLST+32, OCLST+33, OCLST+35, OCLST+37, OCLST+41, INTERV+10, INTERV+12
, INTERV+13, INTERV+14, INTERV+20, INTERV+21, INTERV+22, INTERV+23, HDR+4, PSTAT+8, PSTAT+9, PSTAT+10
, PSTAT+11, PSTAT+12, PSTAT+13, PSTAT+14, PSTAT+15, PSTAT+16, PSTAT+17, PSTAT+18, PSTAT+19, PSTAT+20
, PSTAT+21, PSTAT+25, PSTAT+26, PSTAT+27, PSTAT+28, PSTAT+29, PSTAT+30, PSTAT+32, PSTAT+33, PSTAT+34
, PSTAT+35, PSTAT+36, PSTAT+37, PSTAT+38, PSTAT+39, PSTAT+41, PSTAT+42, PSTAT+43, PSTAT+44, PSTAT+45
, PSTAT+46, PSTAT+47, PSTAT+48, RDIVUID+5, DSPLCLIN+4, DSPLCLIN+9, CRITICAL+12
X DSPLOC+1~, DSPLOC+19*, DSPLOC+20, DISPON+2*, DSPLCLIN+4*, DSPLCLIN+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All