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

Package: Inpatient Medications

Routine: PSJMISC


Information

PSJMISC ;BIR/MV - MISC. SUB-ROUTINES ;03 Aug 98 / 8:42 AM

Source Information

Source file <PSJMISC.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 NOW^%DTC  ^DIR  ^DIWP  ^DIWW  
National Drug File 3 ZERO^PSN50P6  DATA^PSN50P68  $$PROD0^PSNAPIS  
Inpatient Medications 1 ($$GCN,$$PREMIX)^PSJMISC  
Toolkit 1 ($$GETVUID,GETIREF)^XTID  

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

Package Total Caller Graph
Inpatient Medications 25 PSGOEE  PSGOEF  PSGOESF  PSGSICHK  PSIVEDT  PSIVOC  PSIVOCDS  PSIVOPT1  
PSIVORC1  PSIVORC2  PSJAPIDS  PSJBLDOC  PSJCLNOC  PSJMISC  PSJMISC2  PSJMON  
PSJOC  PSJOCDI  PSJOCDS  PSJOCDSD  PSJOCDT  PSJOCERR  PSJOCOR  PSJOE1  
PSJORUTL  

Entry Points

Name Comments DBIA/ICR reference
GCN(PSJDD) ;Return GCNSEQNO for a dispense drug
GTVUID(PSJDD) ;Return the VUID for a dispense drug
VAGEN(PSJDD) ;Return the VA GENERIC name
GENVUID(PSJVUID) ;Return the VA GENERIC name
CLASS(PSJDD) ;Return the VA CLASS
PREMIX(X) ;Check if the solution is flag as a Pre-mix
IVDDRG(PSIVAS,PSJIEN) ;Return corresponding dispense drug IEN for ad/sol
WRITE(X,DIWL,DIWR) ;Start a new line before writing
MYWRITE(X,DIWL,DIWR) ;Continue writing on the same line
COMPARE(DRG,TMPDRG,PSJNPRMX) ;
DN(X) ;
OI(X) ;
LINE(PSJLINE,PSJLEN) ;Display a line
DD53P45() ;Return the zero node of the first dispense drug found in 53.45
RETQUIT() ;
PAUSE(PSJFIRST,PSJLAST) ;
PAUSE1() ;Allow "^"
ONCALL(PSJSCH,PSJSTYPE) ;
; PSJSCH = Admin Schedule
; PSJSTYPE = schedule type (optional)
; Returns 0 = Not an "ON CALL" schedule.
; 1 = For schedule ="ON CALL" or schedule type = "OC".
TMPDRG(DFN,ON,TMPDRG) ;Set TMPDRG array from the order in 55
TMPDRG1(DFN,ON,TMPDRG) ;Set TMPDRG array from the order in 53.1
INFRATE(DFN,ON,PSJIR,PSJDTYP) ;Check if the infusion rate has changed
ADDD(PSJOI) ;Return the best dispense drug IEN for giving OI from the additive file
SOLDD(PSJOI,PSJVOL) ;Return the best dispense drug IEN for giving OI from the solution file

External References

Name Field # of Occurrence
NOW^%DTC DD53P45+3
^DIR RETQUIT+6, PAUSE+3, PAUSE1+8
^DIWP WRITE+4, MYWRITE+4
^DIWW WRITE+4
$$GCN^PSJMISC ADDD+19, SOLDD+21
$$PREMIX^PSJMISC SOLDD+22
ZERO^PSN50P6 VAGEN+5
DATA^PSN50P68 GENVUID+13
$$PROD0^PSNAPIS GCN+6
$$GETVUID^XTID GTVUID+6
GETIREF^XTID GENVUID+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?DIWL,^UTILITY($J,"W",DIWL,PSJCNT,0)
  • Line Location: MYWRITE+5
Function Call: WRITE
  • Prompt: X
  • Line Location: LINE+4
Routine Call
  • DIR
  • Line Location:
    • RETQUIT+6
    • PAUSE+3
    • PAUSE1+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS( TMPDRG+6, TMPDRG1+7
^PS(50.7 - [#50.7] OI+3
^PS(52.6 - [#52.6] IVDDRG+4, ADDD+9, ADDD+11, ADDD+13
^PS(52.7 - [#52.7] PREMIX+4, IVDDRG+5, SOLDD+11, SOLDD+13, SOLDD+16, SOLDD+18
^PS(53.1 - [#53.1] TMPDRG1+4, TMPDRG1+5, INFRATE+9
^PS(53.45 - [#53.45] DD53P45+6, DD53P45+7
^PS(55 - [#55] TMPDRG+4, INFRATE+8
^PSDRUG - [#50] GCN+4, GTVUID+5, VAGEN+4, CLASS+3, DN+2, DD53P45+10, ADDD+16, SOLDD+19
^TMP($J VAGEN+6, VAGEN+7!, GENVUID+14, GENVUID+15!
^UTILITY($J WRITE+4!, MYWRITE+4!, MYWRITE+5

Label References

Name Line Occurrences
$$PREMIX COMPARE+12, COMPARE+19

Naked Globals

Name Field # of Occurrence
^( TMPDRG+6, TMPDRG1+7
^("I" DD53P45+10
^(2 DD53P45+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DD53P45+2~, DD53P45+3
DDRUG IVDDRG+3~, IVDDRG+4*, IVDDRG+5*, IVDDRG+6
DFN TMPDRG~, TMPDRG+4, TMPDRG1~, TMPDRG1+4, INFRATE~, INFRATE+8
DIC GTVUID+2~, GENVUID+6~
DIR RETQUIT+2~, PAUSE+3!, PAUSE1+4~, PAUSE1+5!
DIR("?" RETQUIT+5*, PAUSE+3*, PAUSE1+6*
DIR("A" RETQUIT+4*, PAUSE+3*, PAUSE1+5*
DIR(0 RETQUIT+4*, PAUSE+3*, PAUSE1+7*
DIROUT RETQUIT+2~, RETQUIT+7
DIRUT PAUSE1+4~
DIWL WRITE~, WRITE+2*, MYWRITE~, MYWRITE+2*, MYWRITE+5
DIWR WRITE~, WRITE+3*, MYWRITE~, MYWRITE+3*
DN WRITE+1~, MYWRITE+1~
DRG COMPARE~, COMPARE+4, COMPARE+5, TMPDRG+2~, TMPDRG+6*, TMPDRG+7, TMPDRG1+2~, TMPDRG1+7*, TMPDRG1+8
DRG("AD" COMPARE+8, COMPARE+9, COMPARE+16
DRG("SOL" COMPARE+11, COMPARE+13, COMPARE+20
DRGI TMPDRG+2~, TMPDRG+6*, TMPDRG+7, TMPDRG1+2~, TMPDRG1+7*, TMPDRG1+8
DRGT TMPDRG+2~, TMPDRG+4*, TMPDRG+6, TMPDRG+7, TMPDRG1+2~, TMPDRG1+5*, TMPDRG1+7, TMPDRG1+8
DT ADDD+12, ADDD+17, SOLDD+14, SOLDD+20
DTOUT RETQUIT+2~, RETQUIT+7
DUOUT RETQUIT+2~, RETQUIT+7, PAUSE1+4~
FIL TMPDRG+2~, TMPDRG+4*, TMPDRG+6, TMPDRG1+2~, TMPDRG1+5*, TMPDRG1+7
ND TMPDRG+2~, TMPDRG+6*, TMPDRG+7, TMPDRG1+2~, TMPDRG1+7*, TMPDRG1+8
ON TMPDRG~, TMPDRG+3, TMPDRG+4, TMPDRG1~, TMPDRG1+3, TMPDRG1+4, TMPDRG1+5, INFRATE~, INFRATE+6, INFRATE+8
, INFRATE+9
PSGDT DD53P45+2~, DD53P45+3*, DD53P45+8, DD53P45+10
PSIVAS IVDDRG~, IVDDRG+4, IVDDRG+5
PSIVIEN ADDD+7~, ADDD+9*, ADDD+11, ADDD+13, ADDD+21, ADDD+22, ADDD+23, ADDD+25, ADDD+26, ADDD+27
, ADDD+30*, SOLDD+9~, SOLDD+11*, SOLDD+13, SOLDD+16, SOLDD+18, SOLDD+25, SOLDD+26, SOLDD+27, SOLDD+28
, SOLDD+30, SOLDD+31, SOLDD+32, SOLDD+33, SOLDD+36*
PSIVIEN0 ADDD+7~, ADDD+13*, ADDD+14, ADDD+15, ADDD+18
PSJACTDD ADDD+7~, ADDD+10*, ADDD+17*, ADDD+21, ADDD+22, ADDD+25, ADDD+26, SOLDD+9~, SOLDD+12*, SOLDD+20*
, SOLDD+25, SOLDD+26, SOLDD+30, SOLDD+31
>> PSJALLGY( DD53P45+12*
PSJCLASS CLASS+2~, CLASS+3*, CLASS+4
PSJCNT MYWRITE+1~, MYWRITE+5*
PSJDD GCN~, GCN+3, GCN+4, GTVUID~, GTVUID+3, GTVUID+5, VAGEN~, VAGEN+3, VAGEN+4, CLASS~
, CLASS+1, CLASS+3, DD53P45+2~, DD53P45+4*, DD53P45+9*, DD53P45+10, DD53P45+11*, DD53P45+12, ADDD+15*, ADDD+16
, ADDD+19, ADDD+21, ADDD+22, ADDD+23, ADDD+25, ADDD+26, ADDD+27, ADDD+29*, ADDD+30*, SOLDD+18*
, SOLDD+19, SOLDD+21, SOLDD+22, SOLDD+25, SOLDD+26, SOLDD+27, SOLDD+28, SOLDD+30, SOLDD+31, SOLDD+32
, SOLDD+33, SOLDD+35*, SOLDD+36*
PSJDD0 DD53P45+2~, DD53P45+7*, DD53P45+8*, DD53P45+9, DD53P45+11*, DD53P45+13
PSJDD1 DD53P45+2~, DD53P45+4*, DD53P45+13*, DD53P45+14
PSJDDND GCN+2~, GCN+4*, GCN+5, GCN+6
PSJDDX ADDD+7~, ADDD+29*, ADDD+30, SOLDD+9~, SOLDD+35*, SOLDD+36
PSJDIFF COMPARE+6~, COMPARE+7*, COMPARE+8, COMPARE+9*, COMPARE+10, COMPARE+11, COMPARE+13*, COMPARE+14, COMPARE+15, COMPARE+16*
, COMPARE+17, COMPARE+18, COMPARE+20*, COMPARE+21
PSJDTYP INFRATE~, INFRATE+5
PSJFIRST PAUSE~, PAUSE+3
PSJFLUID ADDD+7~, ADDD+10*, ADDD+18*, ADDD+20, ADDD+24, SOLDD+9~, SOLDD+10*, SOLDD+23*, SOLDD+24, SOLDD+29
PSJGCN ADDD+7~, ADDD+10*, ADDD+19*, ADDD+21, ADDD+25, SOLDD+9~, SOLDD+12*, SOLDD+21*, SOLDD+25, SOLDD+30
PSJIEN VAGEN+2~, VAGEN+4*, VAGEN+5, VAGEN+6, IVDDRG~, IVDDRG+4, IVDDRG+5
PSJINACT ADDD+7~, ADDD+11*, ADDD+12, ADDD+16*, ADDD+17, SOLDD+9~, SOLDD+13*, SOLDD+14, SOLDD+19*, SOLDD+20
PSJIR INFRATE~, INFRATE+7, INFRATE+11
PSJLAST PAUSE~, PAUSE+3
PSJLEN LINE~, LINE+3
PSJLINE LINE~, LINE+3
PSJLIST ADDD+7~, ADDD+28, SOLDD+9~, SOLDD+34
PSJLIST( ADDD+30, SOLDD+36
PSJLIST(0 ADDD+29, SOLDD+35
PSJLIST(1 ADDD+21*, SOLDD+25*
PSJLIST(2 ADDD+22*, SOLDD+26*
PSJLIST(3 ADDD+23*, SOLDD+27*
PSJLIST(4 ADDD+25*, SOLDD+28*
PSJLIST(5 ADDD+26*, SOLDD+30*
PSJLIST(6 ADDD+27*, SOLDD+31*
PSJLIST(7 SOLDD+32*
PSJLIST(8 SOLDD+33*
PSJND GTVUID+2~, GTVUID+5*, GTVUID+6
PSJNDF GENVUID+6~, GENVUID+10*, GENVUID+12, GENVUID+13, GENVUID+14
PSJNPRMX COMPARE~, COMPARE+12, COMPARE+19
PSJOI ADDD~, ADDD+6, ADDD+9, SOLDD~, SOLDD+8, SOLDD+11
PSJOK ADDD+7~, ADDD+8*, ADDD+9, ADDD+21*, SOLDD+9~, SOLDD+10*, SOLDD+11, SOLDD+25*
PSJONIR INFRATE+4~, INFRATE+8*, INFRATE+9*, INFRATE+10, INFRATE+11
PSJPREMX SOLDD+9~, SOLDD+12*, SOLDD+22*, SOLDD+25, SOLDD+26, SOLDD+27, SOLDD+30, SOLDD+31, SOLDD+32
PSJQUIT RETQUIT+2~, RETQUIT+3*, RETQUIT+7*, RETQUIT+8
PSJRDIID GENVUID+7!, GENVUID+11!
PSJRDIID( GENVUID+10
PSJSCH ONCALL~, ONCALL+6, ONCALL+7
PSJSOL SOLDD+9~, SOLDD+16*, SOLDD+17, SOLDD+23
PSJSTYPE ONCALL~, ONCALL+5
>> PSJSYSP DD53P45+5, DD53P45+6, DD53P45+7
PSJVAGEN VAGEN+2~, VAGEN+6*, VAGEN+8, GENVUID+6~, GENVUID+8*, GENVUID+14*, GENVUID+16
PSJVOL SOLDD~, SOLDD+17
PSJVUID GTVUID+2~, GTVUID+4*, GTVUID+6*, GTVUID+7, GENVUID~, GENVUID+5, GENVUID+9
PSJX COMPARE+6~, COMPARE+8*, COMPARE+11*, COMPARE+12, COMPARE+15*, COMPARE+18*, COMPARE+19, OI+2~, OI+3*, OI+4
, DD53P45+2~, DD53P45+8*, DD53P45+10*, DD53P45+11
>> PSSIEN ADDD+29*, SOLDD+35*
TMPDRG COMPARE~, COMPARE+5, TMPDRG~, TMPDRG1~
TMPDRG( TMPDRG+6*, TMPDRG+7*, TMPDRG1+7*, TMPDRG1+8*
TMPDRG("AD" COMPARE+9, COMPARE+15, COMPARE+16
TMPDRG("SOL" COMPARE+13, COMPARE+18, COMPARE+20
U GCN+6, GCN+7, GTVUID+5, GENVUID+14, CLASS+3, PREMIX+4, IVDDRG+4, IVDDRG+5, DN+2, OI+3
, DD53P45+8, DD53P45+10, TMPDRG+7, TMPDRG1+4, TMPDRG1+8, INFRATE+8, INFRATE+9, ADDD+15, ADDD+18, ADDD+30
, SOLDD+17, SOLDD+18, SOLDD+23, SOLDD+36
X GCN+2~, GCN+6*, GCN+7, PREMIX~, PREMIX+3, PREMIX+4, WRITE~, MYWRITE~, COMPARE+6~, COMPARE+8*
, COMPARE+9, COMPARE+11*, COMPARE+13, COMPARE+15*, COMPARE+16, COMPARE+18*, COMPARE+20, DN~, DN+2, OI~
, OI+3, LINE+3*, LINE+4, DD53P45+2~, DD53P45+6*, DD53P45+7, PAUSE1+4~, PAUSE1+9, PAUSE1+10, INFRATE+4~
, INFRATE+8*, INFRATE+9*
Y TMPDRG+2~, TMPDRG+4*, TMPDRG+6, TMPDRG1+2~, TMPDRG1+5*, TMPDRG1+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All