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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSJDIN

Package: Inpatient Medications

Routine: PSJDIN


Information

PSJDIN ;BIR/MV - National Formulary Indicator Utility ;4 MAR 2000/ 4:27 PM

Source Information

Source file <PSJDIN.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 2 $$GET1^DIQ  ^DIR  
Inpatient Medications 1 ($$DDNAME,$$OINAME)^PSJLMUTL  
List Manager 1 (CLEAR,FULL,PAUSE)^VALM1  
Pharmacy Data Management 1 ($$PROMPT,EN)^PSSDIN  

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: 8

Package Total Caller Graph
Inpatient Medications 7 PSGOE7  PSIVEDRG  PSJ LM DIN  PSJLIUTL  PSJLIVFD  PSJLIVMD  PSJLMUDE  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
DINIV(FIL,DRGTMP)
DIN(PSJOI,PSJDRG)
TXD(N1) ;
HLD ;
NFIV(FIL,PSJIVIEN,PSJNF)
DINFLIV(DRG)
DINFLUD(PSJOI,PSJDDA) ;
DINHIDE(PSJDFN,PSJORD) ;
IV ;
UD ;
NEWUD ;*New backdoor order doesn't have an order# yet.
DINOI(PSJOI,COL)
DINDD(PSJDD,COL)
OINF(PSJOI)
DDNF(PSJDD)

External References

Name Field # of Occurrence
$$GET1^DIQ IV+14, IV+15
^DIR HLD+5
$$DDNAME^PSJLMUTL DINDD+6
$$OINAME^PSJLMUTL DINOI+6
$$PROMPT^PSSDIN DIN+8
EN^PSSDIN DIN+6, DINFLIV+9, DINFLUD+9, DINFLUD+11, IV+21, UD+7, UD+12, NEWUD+6, NEWUD+11
CLEAR^VALM1 DIN+14
FULL^VALM1 IV+7, UD+4, NEWUD+4
PAUSE^VALM1 DIN+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Dispense Drug Text:"
  • Line Location: DIN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DIN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DIN+11
Function Call: WRITE
  • Prompt: !!,"Orderable Item Text:"
  • Line Location: DIN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DIN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DIN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: TXD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HLD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HLD+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: IV+7
Function Call: WRITE
  • Prompt: !,"Drug restriction/guideline info:"
  • Line Location: IV+8
Function Call: WRITE
  • Prompt: !!,"IV "_$S(FIL="AD":"Additive",1:"Solution")_": "_NAME
  • Line Location: IV+18
Function Call: WRITE
  • Prompt: $G(PSJNF("NF"))_$S(FIL="AD":" Additive Strength: "_$G(STRUN),1:""),!
  • Line Location: IV+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: UD+4
Function Call: WRITE
  • Prompt: !,"Drug restriction/guideline info:"
  • Line Location: UD+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWUD+4
Function Call: WRITE
  • Prompt: !,"Drug restriction/guideline info:"
  • Line Location: NEWUD+5
Function Call: WRITE
  • Prompt: !!,?COL,"Orderable Item: "_$$OINAME^PSJLMUTL(PSJOI)_$$OINF(PSJOI),!
  • Line Location: DINOI+6
Function Call: WRITE
  • Prompt: !,?10,"No information available",!
  • Line Location: DINOI+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DINOI+8
Function Call: WRITE
  • Prompt: !,?COL,"Dispense drug: "_$$DDNAME^PSJLMUTL(+PSJDD)_$$DDNF(PSJDD),!
  • Line Location: DINDD+6
Function Call: WRITE
  • Prompt: !?10,"No information available",!
  • Line Location: DINDD+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DINDD+8
Routine Call
  • DIR
  • Line Location:
    • HLD+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.6 - [#52.6] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS( DINIV+6, NFIV+8, DINFLIV+9
^PS(50.7 - [#50.7] OINF+4
^PS(52.6 - [#52.6] IV+20
^PS(52.7 - [#52.7] IV+20
^PS(53.1 - [#53.1] DINHIDE+9
^PS(53.45 - [#53.45] NEWUD+8, NEWUD+10
^PSDRUG - [#50] NFIV+8, DDNF+4
^TMP( TXD+4, TXD+5, TXD+6, TXD+7
^TMP("PSSDIN" DIN+7, DINFLIV+10, DINFLIV+12!, DINFLUD+9!, DINFLUD+11, DINFLUD+12!, DINHIDE+11!, IV+25!, UD+15!, NEWUD+14!
, DINOI+7, DINDD+7

Label References

Name Line Occurrences
$$DDNF DINDD+6
$$DINFLUD DINFLIV+11
$$OINF DINOI+6
@( DINHIDE+9
DIN DINIV+7
DINDD IV+23, UD+13, NEWUD+12
DINOI IV+22, UD+7, NEWUD+6
HLD TXD+7, IV+24, UD+14, NEWUD+13, DINDD+7, DINDD+8
IV DINHIDE+6
NEWUD DINHIDE+10
NFIV IV+19
TXD DIN+11, DIN+13, DINOI+8, DINDD+8
UD DINHIDE+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COL DINOI~, DINOI+6, DINDD~, DINDD+6
DIR HLD+3!, HLD+5!
DIR("A" HLD+4*
DIR(0 HLD+4*
DRG DINFLIV~
DRG( DINFLIV+8, DINFLIV+9, IV+9, IV+12, IV+14, IV+15, IV+20
DRGTMP DINIV~, DINIV+6
F UD+3~, UD+6*, UD+7, UD+9, UD+11, NEWUD+3~
FIL DINIV~, DINIV+6, NFIV~, NFIV+8, IV+6~, IV+9*, IV+12, IV+14, IV+15, IV+18
, IV+19, IV+20
IOF DIN+9, HLD+6, IV+7, UD+4, NEWUD+4, DINDD+8
N1 TXD~, TXD+4, TXD+5, TXD+6, TXD+7
N2 TXD+3~, TXD+4*, TXD+5, TXD+6, TXD+7
N3 TXD+3~, TXD+5*, TXD+6, TXD+7
N4 TXD+3~, TXD+6*, TXD+7
NAME IV+6~, IV+12*, IV+18
NX TXD+3~*, TXD+4, TXD+5, TXD+6, TXD+7
>> P("PD" DINFLIV+11
>> PSGPD NEWUD+6
PSJDD DINIV+5~, DIN+5~, DINFLUD+8~, DINFLUD+10*, DINFLUD+11, IV+6~, IV+21*, IV+23, UD+3~, UD+11*
, UD+12, UD+13, NEWUD+3~, NEWUD+10*, NEWUD+11, NEWUD+12, DINDD~, DINDD+6, DINDD+7, DDNF~
, DDNF+4
PSJDDA DINFLUD~
PSJDDA( DINFLUD+10
PSJDDX UD+3~, UD+9*, UD+11, NEWUD+3~, NEWUD+8*, NEWUD+10
PSJDFN DINHIDE~
PSJDIN DINIV+5~, DIN+5~, DIN+8*, DIN+10, DIN+12
PSJDRG DINIV+5~, DINIV+6*, DINIV+7, DIN~, DIN+6
PSJFIL DINFLIV+7~, DINFLIV+8*, DINFLIV+9
PSJFL DINFLIV+7~, DINFLIV+8, DINFLIV+10*, DINFLIV+11*, DINFLIV+13, DINFLUD+8~, DINFLUD+11*, DINFLUD+13
PSJINDEX DINIV+5~, DIN+5~
PSJIVIEN NFIV~, NFIV+8
PSJND DINFLIV+7~, DINFLIV+8*, DINFLIV+9
PSJNF NFIV~, NFIV+8*, NFIV+9, NFIV+10, IV+6~, IV+19
PSJNF("MSG" NFIV+10*
PSJNF("NF" NFIV+9*, IV+19
PSJOI DINIV+5~, DINIV+6*, DINIV+7, DIN~, DIN+6, DINFLUD~, DINFLUD+9, IV+6~, IV+21*, IV+22
, UD+3~, UD+7*, UD+12, NEWUD+3~, NEWUD+6*, NEWUD+11, DINOI~, DINOI+6, DINOI+7, OINF~
, OINF+4
PSJORD DINFLIV+11, DINHIDE~, DINHIDE+6, DINHIDE+7, DINHIDE+8, DINHIDE+9, DINHIDE+10, UD+6
>> PSJSYSP NEWUD+8, NEWUD+10
PSJX DINFLIV+7~, DINFLIV+9*, IV+6~, IV+9*, IV+12, IV+14, IV+15, IV+19, IV+20
PSJXY IV+6~, IV+11*, IV+24, UD+3~, UD+10*, UD+14, NEWUD+3~, NEWUD+9*, NEWUD+13
STR IV+6~, IV+14*, IV+16, IV+17
STRUN IV+6~, IV+16*, IV+17*, IV+19
U DINIV+6, DIN+10, TXD+4, TXD+5, TXD+6, NFIV+8, NFIV+9, NFIV+10, DINFLIV+9, DINHIDE+9
, IV+12, IV+14, IV+15, IV+21, OINF+4, DDNF+4
UNT IV+6~, IV+15*, IV+16
X DIN+5~, TXD+7, IV+6~, IV+10~, IV+20*, IV+21, DINOI+5~, DINDD+5~
XIT DIN+5~, DIN+10, TXD+3*, TXD+4, TXD+5, TXD+6, TXD+7*
XX DINOI+5~
Y DIN+5~, DIN+9, IV+6~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All