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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSJLMUT1

Package: Inpatient Medications

Routine: PSJLMUT1


Information

PSJLMUT1 ;BIR/MLM - DRUG NAME DISPLAY ;Jul 05, 2018@08:53

Source Information

Source file <PSJLMUT1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Inpatient Medications 8 ($$ENDTC,$$ENDTC2,$$ENMRN)^PSGMI  TXT^PSGMUTL  GTDRG^PSIVORFA  GTDRG^PSIVORFB  (GTOT,NAME)^PSIVUTL  $$ONE^PSJBCMA  DRGDISP^PSJLMUT1  SHOR^PSJLMUT2  
List Manager 1 $$SETSTR^VALM1  
Outpatient Pharmacy 1 EN^PSODRDU2  
VA FileMan 1 ^DIR  

Caller Graph

Caller Graph Total: 60

Package Total Caller Graph
Inpatient Medications 60 PSGAP0  PSGAPP  PSGCAP0  PSGCAPP  PSGLOI  PSGMAR0  PSGMMAR0  PSGMMAR5  
PSGMUTL  PSGO  PSGOECS  PSGOER  PSGOETO1  PSGOU  PSGSICHK  PSGVBW0  
PSGVW  PSIVORE2  PSIVORFA  PSIVORFB  PSIVPRO  PSIVSPDC  PSIVUTL  PSJADT2  
PSJBCMA  PSJBCMA1  PSJBCMA4  PSJBLDOC  PSJCLOR1  PSJCLOR3  PSJCOM1  PSJCROC  
PSJDPT  PSJEXP  PSJEXP0  PSJIBAG  PSJLIFNI  PSJLMPRU  PSJLMUT1  PSJMISC2  
PSJMPEND  PSJMPRT  PSJMPRTU  PSJO  PSJO1  PSJOC  PSJOCDS  PSJOCDSD  
PSJOCDT  PSJORMA1  PSJORRE  PSJORRE1  PSJORRN  PSJORRN1  PSJORRO  PSJORUTL  
PSJPDV0  PSJPDV1  PSJPXRM1  PSJRXI  

Entry Points

Name Comments DBIA/ICR reference
DRGDISP(DFN,ON,NL,GL,NAME,DRUGONLY)
OIDF(OIND)
DD(F,NAME)
DSPLORDU(PSGP,ON)
DSPLORDV(DFN,ON)
SOL ;
PIVAD ; Print IV Additives.
PIV1 ; Print Sched type, start/stop dates, and status.
SETTMP ;
ORDCHK(DFN,TYPE,PIECE)
SETPSJOC ;Set PSJOC array to be displayed later
WRITE(TYPE)
PAUSE ;

External References

Name Field # of Occurrence
^DIR PAUSE+1
$$ENDTC^PSGMI DSPLORDU+9
$$ENDTC2^PSGMI PIV1+6
$$ENMRN^PSGMI DRGDISP+12
TXT^PSGMUTL DRGDISP+20, DRGDISP+22
GTDRG^PSIVORFA DRGDISP+13, DSPLORDV+8
GTDRG^PSIVORFB DSPLORDV+6
GTOT^PSIVUTL DSPLORDV+6, DSPLORDV+8
NAME^PSIVUTL SOL+2, PIVAD+1
$$ONE^PSJBCMA DSPLORDV+5
DRGDISP^PSJLMUT1 DSPLORDU+4
SHOR^PSJLMUT2 ORDCHK+25
EN^PSODRDU2 ORDCHK+26
$$SETSTR^VALM1 DSPLORDU+13, SOL+9, PIVAD+6, PIV1+7, PIV1+8, SETPSJOC+2, SETPSJOC+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The patient has this "_$S($P(PSJPACK,";")["N":"Non-VA Meds",$P(PSJPACK,";",2)["O":"Outpatient",1:"")_" order:",!
  • Line Location: ORDCHK+24
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+37
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDCHK+39
Function Call: WRITE
  • Prompt: !!,"This patient is already receiving the following order",$S(PSJOC>1:"s",1:"")," for ",$S($G(PSJDD)]"":$P($G(^PSDRUG(PSJDD,0)),U),1:"this drug"),":",!
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: !!,"This patient is already receiving ",$S(PSJOC>1:"orders",1:"an order")," for the following drug",$S(PSJOC>1:"s",1:"")," in the same",!,"class as ",$S($G(PSJDD)]"":$P($G(^PSDRUG(PSJDD,0)),U),1:"the drug selected"),":",!
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: !!,"This patient is receiving the following medication",$S(PSJOC>1:"s",1:"")," that ha",$S(PSJOC>1:"ve",1:"s")," an interaction",!,"with ",$P($G(^PSDRUG(PSJDD,0)),U),":",!
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] OIDF+4
^PS(50.7 - [#50.7] OIDF+3
^PS(53.1 - [#53.1] DSPLORDV+8, ORDCHK+13, ORDCHK+15
^PS(55 - [#55] DSPLORDV+3, ORDCHK+15, ORDCHK+32
^PSDRUG - [#50] DD+4, WRITE+2, WRITE+3, WRITE+4
^TMP($J ORDCHK+9, ORDCHK+10, ORDCHK+17, ORDCHK+18, ORDCHK+20, ORDCHK+25, SETPSJOC+2

Label References

Name Line Occurrences
$$OIDF DRGDISP+16
DD DRGDISP+15
DSPLORDU ORDCHK+34
DSPLORDV DSPLORDU+5, ORDCHK+33
PAUSE ORDCHK+23, ORDCHK+25, ORDCHK+26, ORDCHK+38
PIV1 SOL+9, PIVAD+6
PIVAD DSPLORDV+9
SETPSJOC ORDCHK+29, ORDCHK+32
SETTMP SOL+9, PIVAD+6
SOL DSPLORDV+9
WRITE ORDCHK+36

Naked Globals

Name Field # of Occurrence
^(2 DSPLORDV+8
^(8 DSPLORDV+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COMPDRG DSPLORDV+1~, SOL+3*, SOL+5, SOL+6
DFN DRGDISP~, DSPLORDV~, DSPLORDV+3, DSPLORDV+5, ORDCHK~, ORDCHK+15, ORDCHK+26, ORDCHK+32, ORDCHK+33, ORDCHK+34
DIR PAUSE+1!
DIR("?" PAUSE+1*
DIR("A" PAUSE+1*
DIR(0 PAUSE+1*
DRG DRGDISP+13~, DSPLORDV+1~, SOL+2*, SOL+3, PIVAD+1*
DRG( DRGDISP+13
DRG("AD" PIVAD+1
DRG("SOL" SOL+2, SOL+3
DRGI DSPLORDV+1~
DRGT DSPLORDV+1~
DRGX DSPLORDV+1~, SOL+2*, SOL+5, SOL+7, SOL+8, SOL+9, PIVAD+1*, PIVAD+3, PIVAD+4, PIVAD+5
PIVAD+6
DRUGNAME DRGDISP+7~, DRGDISP+15, DRGDISP+16*, DRGDISP+20, DSPLORDU+1~, DSPLORDU+4
DRUGNAME( DSPLORDU+11, DSPLORDU+14
DRUGNAME(1 DSPLORDU+13*
DRUGONLY DRGDISP~, DRGDISP+21
F DRGDISP+7~, DRGDISP+9*, DRGDISP+10*, DRGDISP+11, DRGDISP+12, DRGDISP+14, DRGDISP+15, DD~, DD+3, DD+6
, DSPLORDU+1~, DSPLORDU+2*, DSPLORDU+3
FIL DSPLORDV+1~
GL DRGDISP~, DRGDISP+22
MARX DRGDISP+7~
MARX( DRGDISP+20, DRGDISP+22, DRGDISP+23, DRGDISP+24
MR DRGDISP+7~, DRGDISP+12*, DRGDISP+18
NAME DRGDISP~, DRGDISP+8!, OIDF+2~, OIDF+4*, OIDF+5, DD~, DD+2!, DD+4*, DD+5*, SOL+2
PIVAD+1
NAME( DRGDISP+20*, DRGDISP+23*, DRGDISP+24*, SOL+2, SOL+5*, SOL+7*, SOL+8*, SOL+9, PIVAD+1, PIVAD+3*
PIVAD+4*, PIVAD+5*, PIVAD+6
NAME(1 DRGDISP+11*
ND DSPLORDV+1~
NL DRGDISP~, DRGDISP+20
NODE0 DSPLORDU+1~, DSPLORDU+3*, DSPLORDU+5, DSPLORDU+6, DSPLORDU+7, DSPLORDU+8
NODE2 DSPLORDU+1~, DSPLORDU+3*, DSPLORDU+9
NOTGV DRGDISP+7~, DRGDISP+12*, DRGDISP+18
OIND DRGDISP+7~, DRGDISP+12*, DRGDISP+13*, DRGDISP+16, OIDF~, OIDF+3, OIDF+5
ON DRGDISP~, DRGDISP+9, DRGDISP+10, DSPLORDU~, DSPLORDU+2, DSPLORDU+4, DSPLORDU+5, DSPLORDU+14, DSPLORDV~, DSPLORDV+2
, DSPLORDV+3, DSPLORDV+5, DSPLORDV+6, DSPLORDV+8, SETTMP+1, ORDCHK+7~, ORDCHK+27*, ORDCHK+28, ORDCHK+29, ORDCHK+31
, ORDCHK+32, ORDCHK+33, ORDCHK+34, ORDCHK+35, ORDCHK+37*, ORDCHK+38, SETPSJOC+4
ON55 DSPLORDV+1~, DSPLORDV+6*, ORDCHK+16
P DSPLORDV+1~
P( DSPLORDV+3*, PIV1+6*
P("OT" DSPLORDV+6*
P(17 DSPLORDV+4*, DSPLORDV+8*, PIV1+7, PIV1+8
P(2 DSPLORDV+5, DSPLORDV+8*, PIV1+7, PIV1+8
P(3 DSPLORDV+5, DSPLORDV+8*, PIV1+7, PIV1+8
P(4 DSPLORDV+6, DSPLORDV+8*
P(8 DSPLORDV+8*
P(9 DSPLORDV+5, DSPLORDV+8*
PIECE ORDCHK~, ORDCHK+10, ORDCHK+17, SETPSJOC+1~*, SETPSJOC+2
PSGGV DRGDISP+7~, DRGDISP+18*, DRGDISP+22
PSGINS DRGDISP+7~, DRGDISP+8*, DRGDISP+10*, DRGDISP+18
>> PSGORD ORDCHK+11, ORDCHK+12
PSGP DSPLORDU~, DSPLORDU+4, DSPLORDU+5
PSGUPDDO DRGDISP+7~, DRGDISP+12*, DRGDISP+15, DRGDISP+18, DD+6*
PSGX DRGDISP+7~, DRGDISP+13*, DRGDISP+19*, DRGDISP+20*, DRGDISP+23, DRGDISP+24
>> PSIVOCON ORDCHK+28, ORDCHK+29
>> PSIVRNFG ORDCHK+16
PSIVX ORDCHK+7~, ORDCHK+9*, ORDCHK+10, ORDCHK+17, ORDCHK+18, ORDCHK+20, ORDCHK+25, ORDCHK+38*, SETPSJOC+2
>> PSJCOM ORDCHK+13
>> PSJCT DSPLORDV+7*
>> PSJDD WRITE+2, WRITE+3, WRITE+4
>> PSJEXTP PIV1+6, PIV1+7
>> PSJFST ORDCHK+23, ORDCHK+25*, ORDCHK+26*, ORDCHK+37*
PSJID DSPLORDU+1~, DSPLORDU+9*, DSPLORDU+10*, DSPLORDU+12
>> PSJIREQ ORDCHK+18*
PSJIVFLG DSPLORDV+1~, DSPLORDV+9*, SOL+1, SOL+9, PIVAD+6, PIV1+1!
PSJL DSPLORDV+7*, SOL+1*, SOL+4, SOL+8, SOL+9*, PIVAD+6*, PIV1+7*, PIV1+8*, SETTMP+1, ORDCHK+7~
PSJLINE DSPLORDU+14, DSPLORDU+15*, SETTMP+1*, ORDCHK+7~, ORDCHK+8*, ORDCHK+35*, ORDCHK+37*, ORDCHK+38*, SETPSJOC+4*
PSJOC ORDCHK+7~, ORDCHK+8*, ORDCHK+33*, ORDCHK+34*, ORDCHK+36, SETPSJOC+4*, WRITE+2, WRITE+3, WRITE+4
PSJOC( DSPLORDU+14*, SETTMP+1*, ORDCHK+27, ORDCHK+35*, ORDCHK+37, ORDCHK+38, SETPSJOC+4*
>> PSJOCDT(10 SOL+6, PIVAD+4
>> PSJOCDT(20 SOL+6, PIVAD+4
>> PSJORD ORDCHK+11*, ORDCHK+12, ORDCHK+13, ORDCHK+15
PSJORIEN ORDCHK+7~, ORDCHK+17*, ORDCHK+28, ORDCHK+29
PSJORIFN DSPLORDV+1~
>> PSJP(2 SOL+5, PIVAD+3
PSJPACK ORDCHK+7~, ORDCHK+10*, ORDCHK+12, ORDCHK+13, ORDCHK+15, ORDCHK+16, ORDCHK+22, ORDCHK+24, ORDCHK+26, ORDCHK+27
PSJPDDDP DRGDISP+18, DRGDISP+19!, DD+7*
>> PSJPDRG ORDCHK+26*, WRITE+1*
>> PSJRXREQ ORDCHK+20*
PSJX DSPLORDU+1~, DSPLORDU+11*, DSPLORDU+12, DSPLORDU+13, DSPLORDU+14
SCH DRGDISP+7~, DRGDISP+14*, DRGDISP+18, DSPLORDU+1~, DSPLORDU+6*, DSPLORDU+10*, DSPLORDU+12
SD DSPLORDU+1~, DSPLORDU+9*, DSPLORDU+10*, DSPLORDU+12
STAT DSPLORDU+1~, DSPLORDU+7*, DSPLORDU+8*, DSPLORDU+9, DSPLORDU+10, DSPLORDU+12
TYP DSPLORDV+1~, DSPLORDV+2*, DSPLORDV+5*, PIV1+7, PIV1+8
TYPE ORDCHK~, ORDCHK+9, ORDCHK+10, ORDCHK+17, ORDCHK+18, ORDCHK+20, ORDCHK+25, ORDCHK+36, SETPSJOC+1, SETPSJOC+2
, WRITE~, WRITE+2, WRITE+3, WRITE+4
U DRGDISP+12, DRGDISP+13, DRGDISP+14, OIDF+4, DD+4, DD+6, DSPLORDU+5, DSPLORDU+6, DSPLORDU+7, DSPLORDU+8
, DSPLORDU+9, DSPLORDV+3, DSPLORDV+4, DSPLORDV+8, ORDCHK+10, ORDCHK+17, ORDCHK+18, ORDCHK+20, SETPSJOC+2, WRITE+2
, WRITE+3, WRITE+4
X DRGDISP+7~, DRGDISP+10*, DRGDISP+12*, DRGDISP+13*, DRGDISP+20*, DRGDISP+22*, DRGDISP+23, DRGDISP+24, OIDF+2~, OIDF+3*
, OIDF+4, DD+2~, DD+3*, DD+4, DD+5, DD+6, DSPLORDU+1~, DSPLORDU+12*, DSPLORDU+13, DSPLORDV+1~
, DSPLORDV+3*, PIV1+6*, ORDCHK+22~*, SETPSJOC+2*, SETPSJOC+3*, SETPSJOC+4
Y DSPLORDU+1~, DSPLORDV+1~, DSPLORDV+3*, DSPLORDV+4, DSPLORDV+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All