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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSJADT

Package: Inpatient Medications

Routine: PSJADT


Information

PSJADT ;BIR/CML3,MLM-AUTO DC/HOLD ON PATIENT ADT ;24 Aug 98 / 2:01 PM

Source Information

Source file <PSJADT.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Inpatient Medications 4 ENSET0^PSGNE3  (ENCV,ENKV)^PSGSETU  (,ENDC)^PSJADT0  (ENDEL,ENHOLD,ENUW)^PSJADT1  
Registration 1 (IN5,INP)^VADPT  

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

Package Total Caller Graph
Inpatient Medications 1 PSJ OR PAT ADT  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
TRN ;
DONE ;
DIS ; discharge
ADM ; admit
; ************ old way **************************
LC ; is movement the latest one of its type?
END ; he be dead

External References

Name Field # of Occurrence
ENSET0^PSGNE3 DONE+1
ENCV^PSGSETU PSJADT+9
ENKV^PSGSETU DONE+4
^PSJADT0 TRN+8
ENDC^PSJADT0 TRN+12, TRN+13, DIS+1, ADM+6
ENDEL^PSJADT1 PSJADT+16
ENHOLD^PSJADT1 TRN+7, TRN+11
ENUW^PSJADT1 PSJADT+18, TRN+14
IN5^VADPT TRN+4, DIS+1, ADM+6, LC+5, END+8
INP^VADPT TRN+12, END+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] TRN+13
^PS(55 - [#55] PSJADT+10, DONE+1*, DONE+2*
^PS(59.7 - [#59.7] TRN+6, TRN+12, TRN+13
^UTILITY("DGPM" PSJADT+15, PSJADT+16, PSJADT+19, PSJADT+20, TRN+2, ADM+5, LC+11

Label References

Name Line Occurrences
ADM PSJADT+22
DIS PSJADT+21, END+11
DONE PSJADT+18, PSJADT+23, TRN+3, TRN+6, TRN+10, TRN+12, TRN+13, END+11
LC PSJADT+19, PSJADT+20, TRN+2
PSJADT END+8

Naked Globals

Name Field # of Occurrence
^( PSJADT+19, PSJADT+20, TRN+2
^("A" PSJADT+19, PSJADT+20, TRN+2
^("P" PSJADT+19, PSJADT+20, TRN+2, LC+11
^(0 TRN+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AM DONE+3!
D END+1~
D0 END+1~
D1 END+1~
D2 END+1~
DA DONE+3!, END+1~
DB END+1~
DC END+1~
DE END+1~
>> DFN PSJADT+10, PSJADT+16, END+1*
DG END+1~
>> DGPM0 PSJADT+17
>> DGPMDA PSJADT+15, PSJADT+16
>> DGPMP PSJADT+16
>> DGQUIET PSJADT+8, DONE+4
>> DGX PSJADT+16, PSJADT+17
DH END+1~
DI END+1~
DIC END+1~
DIE DONE+3!, END+1~
DIG END+1~
DIH END+1~
DIK END+1~
DIQ END+1~
DIR END+1~
DIS DONE+3!
DIU END+1~
DIV END+1~
DIW END+1~
DK END+1~
DL END+1~
DM END+1~
DP END+1~
DQ END+1~
DR DONE+3!, END+1~
DU END+1~
DV END+1~
DW END+1~
FS TRN+13*, DONE+3!
MR END+1~
N DONE+4!
NX END+1~
ON DONE+3!
ORIFN DONE+3!
P DONE+4!
P("NAT" PSJADT+10*, DONE+4!
PS DONE+4!
PSGAL DONE+3!
PSGALO TRN+8*, TRN+11*, TRN+12*, TRN+13*, DONE+3!, DIS+1*, ADM+6*
PSGALR DONE+3!
>> PSGDT LC+11
PSGOEHA TRN+6*, TRN+7, TRN+11*, DONE+3!
>> PSGP PSJADT+10*, DONE+1, DONE+2
PSGTOL DONE+3!
PSGTOO DONE+3!
PSGUOW DONE+3!
PSIVLN DONE+3!
PSIVNST DONE+3!
PSIVREA DONE+3!
PSIVRES DONE+3!
PSJADTWD PSJADT+10!, TRN+12*, DONE+3!, DIS+1*, ADM+6*
PSJAM PSJADT+10*, PSJADT+20*, PSJADT+22, DONE+3!, ADM+5
PSJCF PSJADT+10*, PSJADT+16*, PSJADT+18, PSJADT+23, DONE+3!, DIS+1*, ADM+5, ADM+6*
PSJDA DONE+3!
PSJDCA PSJADT+19*, DONE+3!, DIS+1, END+9*
PSJDD PSJADT+19*, DONE+3!, LC+11, END+8*
PSJDEL PSJADT+9~, PSJADT+14*, PSJADT+15, PSJADT+16, PSJADT+18
PSJDF PSJADT+21*, DONE+3!, DIS+1, END+9*
PSJDM PSJADT+10*, PSJADT+19*, PSJADT+21, DONE+3!
PSJFW PSJADT+10*, TRN+4*, TRN+6, TRN+12, TRN+13, DONE+3!, DIS+1*, ADM+6*
PSJIVDCF DONE+3!
PSJIVON DONE+3!
>> PSJNKF DONE+2*
PSJNOO PSJADT+10*, DONE+4!
PSJPAD TRN+4*, TRN+7, TRN+11, DONE+3!, DIS+1*, ADM+6*
PSJPDD DONE+3!
PSJPIND PSJADT+10*, PSJADT+16, PSJADT+17*, TRN+2*, TRN+10, TRN+11*, DONE+2, DONE+3!, DIS+1*, ADM+5*
>> PSJPIND4 PSJADT+16*, PSJADT+17
PSJPWD DONE+3!
PSJPWDN DONE+3!
PSJQUIET PSJADT+8, PSJADT+13, PSJADT+18, DONE+4, END+8*, END+11!
PSJRSB LC+4~
PSJRSB("X" LC+4*, LC+6
PSJRSB("Y" LC+4*, LC+8
PSJS DONE+4!
PSJSYSL PSJADT+9~
PSJSYSP PSJADT+9~
PSJSYSP0 PSJADT+9~
PSJSYSU PSJADT+9~
PSJSYSW PSJADT+9~
PSJSYSW0 PSJADT+9~
PSJTM PSJADT+10*, TRN+2*, TRN+3, DONE+4!
PSJTMT PSJADT+10*, TRN+2*, TRN+3, TRN+6, TRN+7, TRN+8, TRN+10, TRN+11, TRN+12, DONE+4!
>> Q PSJADT+19*, PSJADT+20*, TRN+1*, TRN+2*, LC+11
Q1 DONE+4!
Q2 DONE+4!
RZ DONE+4!
ST DONE+4!
TS TRN+13*, DONE+4!
TSCN DONE+4!
U PSJADT+16, TRN+6
VA200 PSJADT+9~, PSJADT+10*
VAIN PSJADT+9~, END+1~
VAIN(4 TRN+12, TRN+13
VAIP PSJADT+9~, TRN+4!, DIS+1!, LC+5~, END+1~, END+8~
VAIP("D" TRN+4*, ADM+6*, LC+5*, END+8*
VAIP("E" DIS+1*, ADM+6*
VAIP(13 TRN+4, DIS+1, ADM+6, END+9
VAIP(14 ADM+6
VAIP(15 TRN+4
VAIP(17 DIS+1, ADM+6
VAIP(3 LC+5
X PSJADT+9~, PSJADT+19*, PSJADT+20*, TRN+2*, LC+4, LC+6*, LC+7*, LC+11*, END+8
>> Y PSJADT+19*, PSJADT+20*, TRN+1*, LC+4, LC+5, LC+8*, LC+11
Z DONE+4!, LC+5*, LC+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All