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

Package: Inpatient Medications

Routine: PSJO1


Information

PSJO1 ;BIR/CML3,PR - GET UNIT DOSE/IV ORDERS FOR INPATIENT ;15 May 98 / 9:28 AM

Source Information

Source file <PSJO1.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Inpatient Medications 8 $$ENDTC^PSGMI  EXPIR^PSIVOE  GTOT^PSIVUTL  $$ONE^PSJBCMA  EN1^PSJHL2  CLEAN^PSJIMO1  DRGDISP^PSJLMUT1  $$RECDCEXP^PSJP  
VA FileMan 3 (C,NOW)^%DTC  ^DIE  $$GET1^DIQ  
Kernel 2 (T0,T1)^%ZOSV  $$DT^XLFDT  

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

Package Total Caller Graph
Inpatient Medications 12 PSGAP0  PSGAPIV  PSGCAP0  PSGCAPP  PSGOU  PSGPER0  PSGPER1  PSIVACT  
PSJDGCK  PSJLIVMD  PSJLMHED  PSJO  

Entry Points

Name Comments DBIA/ICR reference
ECHK ;
SET ;
IVSET ;Set IV data in ^TMP("PSJ",$J,.
IVSET1 ;
ENU ; update status field to reflect expired orders, if necessary
ENUNM ;
EN(PSJPTYP) ; enter here
; PSJPTYP=1:UD ONLY, 2:IV ONLY, 3:BOTH
NVSET ; Set up orders from 53.1.
KILL ;
COMCHK(PSJCOM,PSJPTYP) ;Check complex orders for order type
CLINIC(PSGP,ORDER) ; Return Clinic Name for a given patient/order combination
CLINSORT(C) ; Return integer sort value based on order status

External References

Name Field # of Occurrence
C^%DTC EN+13
NOW^%DTC EN+6, EN+13
T0^%ZOSV EN+5
T1^%ZOSV EN+21
^DIE ENUNM+3
$$GET1^DIQ CLINIC+7
$$ENDTC^PSGMI EN+13
EXPIR^PSIVOE EN+10
GTOT^PSIVUTL IVSET+7
$$ONE^PSJBCMA IVSET1+3
EN1^PSJHL2 ENUNM+4
CLEAN^PSJIMO1 EN+22
DRGDISP^PSJLMUT1 SET+2, IVSET+9
$$RECDCEXP^PSJP EN+3
$$DT^XLFDT EN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"...a few moments, I have some updating to do..."
  • Line Location: ENU+1
Routine Call
  • DIE
  • Line Location:
    • ENUNM+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] IVSET+4!, IVSET+5, IVSET1+5, EN+18, EN+20, NVSET+1, NVSET+2!, NVSET+4!, NVSET+6!, NVSET+7!
, NVSET+8, NVSET+9, COMCHK+5, COMCHK+8, COMCHK+9!, COMCHK+10, COMCHK+11, CLINIC+2, CLINIC+4, CLINIC+6
^PS(55 - [#55] ECHK+1, ECHK+3, IVSET+2, ENUNM+1, ENUNM+2, ENUNM+4, EN+7, EN+8, EN+10*, EN+11
, EN+15, CLINIC+2, CLINIC+5, CLINIC+6
^TMP("PSJ" SET+9*, IVSET1+12*, EN+6!

Label References

Name Line Occurrences
$$CLINIC SET+6, IVSET1+9
$$CLINSORT SET+7, IVSET1+11
$$COMCHK SET+1, IVSET+6
@( IVSET+7, EN+20
ECHK EN+15
ENUNM EN+14
IVSET EN+12
NVSET EN+18
SET ECHK+2, ECHK+3, ECHK+5, NVSET+11

Naked Globals

Name Field # of Occurrence
^( EN+11
^(0 IVSET1+5, ENUNM+2, NVSET+9
^(2 NVSET+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+6, EN+13
ACX2 CLINIC+5~*
C ECHK+1*, ECHK+5*, ECHK+6*, SET+7, SET+8*, SET+9, NVSET+9*, CLINSORT~, CLINSORT+1~*, CLINSORT+2
CLINFLAG SET+2~, SET+6*, SET+8
CLINSORT SET+7~*, SET+8, IVSET1+2~, IVSET1+11~*
CLN CLINIC+2~*, CLINIC+3, CLINIC+4*, CLINIC+5, CLINIC+6*, CLINIC+7*, CLINIC+8
CTMP CLINSORT+1~*
DA ENUNM+3~*
DA(1 ENUNM+3*
>> DFN IVSET+2, EN+7, EN+8, EN+10, EN+11
DIE ENUNM+3~*
>> DN SET+3*, SET+9
DR ENUNM+3~*
DRG IVSET+1~, IVSET+8
DRG("AD" IVSET+8
DRG("SOL" IVSET+8
DRGT IVSET+1~, IVSET+8*
DRUGNAME SET+2~
DRUGNAME(1 SET+3
DT EN+6*, EN+13*
>> HDT EN+13*
JJ KILL+1!
N KILL+1!
NAME IVSET+1~, IVSET+9
NAME(1 IVSET+9
ND ECHK+3*, ECHK+4, IVSET+1~, IVSET+4*, IVSET+5, NVSET+1~*, NVSET+3, NVSET+5
ND2 NVSET+7~*
>> ND4 ECHK+3*, ECHK+4
>> NF SET+9
>> O ECHK+1, ECHK+3, EN+15*, EN+18*, EN+20*, NVSET+1, NVSET+2, NVSET+4, NVSET+6, NVSET+7
, NVSET+8, NVSET+9
>> OK COMCHK+1*, COMCHK+2*, COMCHK+3, COMCHK+4, COMCHK+5, COMCHK+6*, COMCHK+8, COMCHK+10*, COMCHK+11*, COMCHK+12
ON ECHK+1*, SET+1, SET+2, SET+4, SET+5*, SET+6, SET+9, IVSET+2, IVSET+3, IVSET+4
, IVSET+5, IVSET+6, IVSET+7, IVSET+9, IVSET1+3, IVSET1+5, IVSET1+7, IVSET1+8*, IVSET1+9, IVSET1+12
, EN+10*, EN+12*!, EN+18*, EN+20*
ON55 IVSET+1~, IVSET+2*
ORDER CLINIC~, CLINIC+1, CLINIC+2, CLINIC+3, CLINIC+4, CLINIC+5, CLINIC+6
>> ORIFN ENUNM+4*
ORTX IVSET+1~, IVSET+8*, IVSET+9*, IVSET+11*, IVSET1+12, KILL+1!
P IVSET+1~, KILL+1!
P( IVSET+2*
P("PRNTON" SET+1, SET+4, SET+5, IVSET+5*, IVSET+6, IVSET1+7, IVSET1+8, NVSET+8*
P(17 IVSET+5*, IVSET1+4, IVSET1+5
P(2 IVSET+3, IVSET+5*, IVSET1+3, IVSET1+12
P(3 IVSET+3, IVSET+5*, IVSET1+3, IVSET1+6
P(4 IVSET+5*, IVSET+7
P(9 IVSET+5*, IVSET1+3
PRNTON SET+1, SET+4, SET+5*, IVSET1+7, IVSET1+8*, EN+18~*, EN+20~*
>> PSGDT ECHK+2, ENUNM+1, EN+6*, EN+10, EN+13*
>> PSGODT ECHK+3, ECHK+4, EN+13*
>> PSGONNV EN+16
PSGP ECHK+1, ECHK+3, SET+2, SET+6, IVSET+4, IVSET+9, IVSET1+3, IVSET1+9, ENUNM+1, ENUNM+2
, ENUNM+3, ENUNM+4, EN+15, EN+18, EN+20, EN+22, NVSET+2, NVSET+3, NVSET+4, NVSET+6
, CLINIC~, CLINIC+2, CLINIC+6
PSJCLIN IVSET1+2~, IVSET1+9*, IVSET1+11
PSJCOM COMCHK~, COMCHK+2, COMCHK+3, COMCHK+5, COMCHK+8, COMCHK+9
>> PSJDCEXP ECHK+5, IVSET1+6, EN+3*, EN+12
>> PSJIVOF EN+13*
>> PSJOCNT SET+9*, IVSET1+12*, EN+7*, EN+13
PSJOK SET+1~*, IVSET+6~*
>> PSJOL ECHK+5, ECHK+6, IVSET1+6, EN+4*, EN+5, EN+12, EN+21
PSJON COMCHK+7~*, COMCHK+8*, COMCHK+9, COMCHK+10, COMCHK+11
PSJOQ ENUNM+1*, ENUNM+2, ENUNM+5!
PSJOQQ ENUNM+2*, ENUNM+3, ENUNM+5!
PSJORD EN+7*, EN+8, EN+10, EN+11, EN+12, CLINIC+4~*, CLINIC+5~*, CLINIC+6
>> PSJOS ECHK+1, SET+3, SET+9, IVSET1+12, EN+6*
>> PSJPAD ENUNM+1
PSJPRI IVSET1+4, EN+11*, EN+12!
PSJPTYP SET+1, IVSET+6, EN~, EN+7, EN+15, EN+18, EN+20, COMCHK~, COMCHK+4, COMCHK+6
, COMCHK+10, COMCHK+11
>> PSJSYSP0 EN+6
>> PSJSYSU EN+6, EN+11
PSJX EN+2~, EN+8*, EN+9, EN+10, EN+12
PSJY EN+2~, EN+9*, EN+10*, EN+12
QQON ENUNM+3~*, ENUNM+4
>> SD ECHK+3, ECHK+4, IVSET+4, EN+15*, EN+18*, EN+20*, NVSET+2, NVSET+4, NVSET+6, NVSET+9
SORT SET+7~, CLINSORT+2*, CLINSORT+3
>> ST ECHK+3, ECHK+4, SET+9, EN+15*, NVSET+8*
>> START ECHK+1*, ECHK+2, SET+3, NVSET+8*
STAT IVSET+1~, IVSET1+4*, IVSET1+5*, IVSET1+6*, IVSET1+10, IVSET1+11*, IVSET1+12, KILL+1!
STAT2 IVSET1+10~*, IVSET1+11
>> STOP ECHK+1*, ECHK+2, ECHK+5
>> SUB SET+3*, SET+9
TYP IVSET+1~, IVSET1+3*, IVSET1+12, KILL+1!
U ECHK+1, ECHK+5, IVSET+2, IVSET+5, IVSET+8, IVSET1+5, IVSET1+6, EN+9, EN+10, EN+11
, EN+12, EN+18, EN+20, NVSET+3, NVSET+5, NVSET+7, NVSET+8, NVSET+9
>> UDU ECHK+4, EN+6*
UPD ENUNM+1*, ENUNM+5!
X IVSET+1~, IVSET+2*, ENUNM+3~, EN+13, EN+18*, EN+20*
>> X1 EN+13*
>> X2 EN+13*
>> XRT0 EN+21
>> XRTL EN+5
>> XRTN EN+21*
Y IVSET+1~, IVSET+2*, IVSET+5*, ENUNM+3~
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 |  Naked Globals |  Local Variables  | All