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

Package: DSS Extracts

Routine: ECXNURS


Information

ECXNURS ;ALB/JAP,BIR/DMA,PTD-Nursing Extract for DSS ;9/13/10 13:59

Source Information

Source file <ECXNURS.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
DSS Extracts 7 ^ECXKILL  QUE^ECXTAUTO  ^ECXTRAC  ($$ECXDATE,$$ECXTIME,$$PATCAT)^ECXUTL  ($$INP,ECXDEF)^ECXUTL2  $$PAT^ECXUTL3  ($$ENCNUM,$$OBSPAT)^ECXUTL4  
VA FileMan 2 IX1^DIK  EN^DIQ1  
Kernel 1 $$S^%ZTLOAD  
Registration 1 $$TSDATA^DGACT  

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

Package Total Caller Graph
DSS Extracts 1 ECXNURS  

Entry Points

Name Comments DBIA/ICR reference
BEG ;entry point from option
START ;entry when queued
RESOLVE ;process ^tmp by patient
NEWWARD(ECDNEW,OLDWARD,NEWWARD) ;get new nursing location
; input ECDNEW = date of care
; OLDWARD = pointer to file #42, previous mas ward
; NEWWARD = null
; output NEWWARD = new nursing location^new nursing bedsection
; OR "^", if new ward same as previous ward or
FILE ;file extract records
SETUP ;Set required input for ECXTRAC
QUE ; entry point for the background requeuing handled by ECXTAUTO

External References

Name Field # of Occurrence
$$S^%ZTLOAD START+21, FILE+54
$$TSDATA^DGACT FILE+43
IX1^DIK FILE+53
EN^DIQ1 START+10, NEWWARD+17, NEWWARD+22
^ECXKILL BEG+2, QUE+1
QUE^ECXTAUTO QUE+1
^ECXTRAC BEG+2
$$ECXDATE^ECXUTL FILE+39, FILE+46
$$ECXTIME^ECXUTL FILE+47
$$PATCAT^ECXUTL FILE+31
$$INP^ECXUTL2 START+13, NEWWARD+10
ECXDEF^ECXUTL2 SETUP+2
$$PAT^ECXUTL3 FILE+12
$$ENCNUM^ECXUTL4 FILE+36
$$OBSPAT^ECXUTL4 FILE+28

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECX( FILE+9, FILE+52*
^NURSA(214.6 - [#214.6] START+7, START+8
^NURSF(211.4 - [#211.4] NEWWARD+15, NEWWARD+20
^TMP("ECX" START+4!, START+18*, START+22!, START+25!, RESOLVE+3, RESOLVE+5, RESOLVE+6!, RESOLVE+8, RESOLVE+13, RESOLVE+14
, RESOLVE+19*, RESOLVE+20, RESOLVE+23*, RESOLVE+24*, RESOLVE+28, RESOLVE+29, RESOLVE+35*, RESOLVE+36, RESOLVE+39*, RESOLVE+40*
, RESOLVE+43*, RESOLVE+44, RESOLVE+47*, RESOLVE+48*, FILE+11, FILE+17, FILE+18

Label References

Name Line Occurrences
FILE START+24
NEWWARD RESOLVE+21, RESOLVE+37, RESOLVE+45
RESOLVE START+23
SETUP BEG+1, QUE+1

Naked Globals

Name Field # of Occurrence
^( FILE+18, FILE+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT START+2~, START+3*, START+20*, START+21
DA START+9*, START+10!, NEWWARD+9~, NEWWARD+16*, NEWWARD+17!, NEWWARD+21*, NEWWARD+22!, FILE+8~, FILE+53*!
DA( NEWWARD+21*
>> DCDT RESOLVE+30*, RESOLVE+34, RESOLVE+42
DFN RESOLVE+1~, RESOLVE+2*, RESOLVE+3*, RESOLVE+5, RESOLVE+6, RESOLVE+8, RESOLVE+13, RESOLVE+14, RESOLVE+19, RESOLVE+20
, RESOLVE+23, RESOLVE+24, RESOLVE+28, RESOLVE+29, RESOLVE+35, RESOLVE+36, RESOLVE+39, RESOLVE+40, RESOLVE+43, RESOLVE+44
, RESOLVE+47, RESOLVE+48, NEWWARD+10, FILE+10*, FILE+11*, FILE+12, FILE+14, FILE+17, FILE+18
DIC START+9*, START+10!, NEWWARD+9~, NEWWARD+16*, NEWWARD+17!, NEWWARD+21*, NEWWARD+22!
DIK FILE+8~, FILE+53*!
DIQ START+9*, START+10!, NEWWARD+9~, NEWWARD+16*, NEWWARD+17!, NEWWARD+21*, NEWWARD+22!
DIQ(0 START+9*, NEWWARD+16*, NEWWARD+21*
DR START+9*, START+10!, NEWWARD+9~, NEWWARD+16*, NEWWARD+17!, NEWWARD+21*, NEWWARD+22!
DR( NEWWARD+21*
DT FILE+12
EC START+19!
EC( START+11*, START+13, START+18
EC(1 START+18
EC(3 START+18
EC(4 START+18
EC(6 START+18
EC(7 START+18
EC(8 START+12
>> EC23 FILE+38
>> EC7 FILE+9*, FILE+37*, FILE+38, FILE+52, FILE+53
>> ECA FILE+19*, FILE+36, FILE+46, FILE+47
>> ECC FILE+18*, FILE+20, FILE+21
ECD START+6*, START+7*, START+8, RESOLVE+1~, RESOLVE+3*, RESOLVE+5*, RESOLVE+6, RESOLVE+12*, RESOLVE+13*, RESOLVE+14
, RESOLVE+15*, RESOLVE+16*, RESOLVE+17, RESOLVE+18, RESOLVE+19, RESOLVE+25, RESOLVE+27*, RESOLVE+28*, RESOLVE+29, RESOLVE+30*
, RESOLVE+32, RESOLVE+34, RESOLVE+35, RESOLVE+36, RESOLVE+42, RESOLVE+43, RESOLVE+44, FILE+15*, FILE+17*, FILE+18
, FILE+19, FILE+36, FILE+39
>> ECDA START+7*, START+8*, START+9, START+11, START+19
ECDNEW RESOLVE+1~, RESOLVE+19*, RESOLVE+21, RESOLVE+23, RESOLVE+24, RESOLVE+34*, RESOLVE+35, RESOLVE+37, RESOLVE+39, RESOLVE+40
, RESOLVE+42*, RESOLVE+43, RESOLVE+45, RESOLVE+47, RESOLVE+48, NEWWARD~, NEWWARD+10
ECDPREV RESOLVE+1~, RESOLVE+15*, RESOLVE+17*, RESOLVE+18, RESOLVE+19, RESOLVE+20, RESOLVE+25*
>> ECED START+5, START+6*, START+7
>> ECFILE BEG+1, FILE+9, FILE+52, FILE+53, SETUP+2
>> ECGRP SETUP+2
>> ECHEAD FILE+36, SETUP+1*, SETUP+2
>> ECINST FILE+38, FILE+49
>> ECMN FILE+18*, FILE+46
>> ECODE FILE+38*, FILE+39*, FILE+40*, FILE+46*, FILE+47*, FILE+52
>> ECODE1 FILE+48*, FILE+49*, FILE+50*, FILE+51*, FILE+52
>> ECPACK SETUP+2
>> ECPIECE SETUP+2
>> ECRN FILE+52*
>> ECRTN SETUP+2
>> ECSD1 START+5, START+6
>> ECTS FILE+19*, FILE+28, FILE+36, FILE+43, FILE+44*, FILE+46
>> ECVER SETUP+2
>> ECXA FILE+18*, FILE+28, FILE+33, FILE+36, FILE+38
>> ECXACU FILE+20*, FILE+40
>> ECXCLS FILE+20*, FILE+40
ECXDATA FILE+42~, FILE+43*
ECXDATA(7 FILE+44
>> ECXDFN FILE+14*, FILE+31, FILE+38
>> ECXDOM FILE+19*, FILE+48
>> ECXDSSD FILE+24*, FILE+48
>> ECXDSSP FILE+24*, FILE+50
>> ECXEB FILE+20*, FILE+40
>> ECXENC FILE+36*, FILE+48
>> ECXLOGIC FILE+50, FILE+51
>> ECXMPI FILE+15*, FILE+48
>> ECXNBED FILE+21*, FILE+40
>> ECXNLOC FILE+21*, FILE+40
>> ECXOBS FILE+28*, FILE+33, FILE+36, FILE+48
ECXPAT FILE+12!
ECXPAT("MPI" FILE+15
ECXPAT("NAME" FILE+14
ECXPAT("SSN" FILE+14
>> ECXPATCAT FILE+31*, FILE+51
>> ECXPNM FILE+14*, FILE+38
>> ECXSSN FILE+14*, FILE+36, FILE+38
>> ECXYM FILE+39, FILE+46
FIRSTDAY START+2~, START+5*, RESOLVE+10
INP START+2~, START+13*, START+16, START+18, START+19!, NEWWARD+9~, NEWWARD+10*, NEWWARD+11
>> J START+11*
>> JJ NEWWARD+20*, NEWWARD+21, NEWWARD+23, NEWWARD+24
LASTDAY START+2~, START+5*, RESOLVE+10, RESOLVE+32, RESOLVE+34, RESOLVE+42
LOC START+9!, NEWWARD+9~
LOC( START+11, START+19!, NEWWARD+18, NEWWARD+19, NEWWARD+23, NEWWARD+24
NEWDT RESOLVE+1~, RESOLVE+42*
NEWLOC NEWWARD+9~, NEWWARD+14*, NEWWARD+24*, NEWWARD+25, NEWWARD+26
NEWSEC NEWWARD+9~, NEWWARD+14*, NEWWARD+24*, NEWWARD+25, NEWWARD+26
NEWW NEWWARD+9~, NEWWARD+14*, NEWWARD+15*, NEWWARD+16, NEWWARD+18, NEWWARD+19, NEWWARD+20, NEWWARD+21, NEWWARD+24
>> NEWW2 NEWWARD+14*
NEWWARD RESOLVE+1~, RESOLVE+20*, RESOLVE+21, RESOLVE+22, RESOLVE+23, RESOLVE+24, RESOLVE+36*, RESOLVE+37, RESOLVE+38, RESOLVE+39
, RESOLVE+40, RESOLVE+44*, RESOLVE+45, RESOLVE+46, RESOLVE+47, RESOLVE+48, NEWWARD~, NEWWARD+11*, NEWWARD+12*, NEWWARD+13
, NEWWARD+15, NEWWARD+20, NEWWARD+23, NEWWARD+25*, NEWWARD+26*
>> OK FILE+12*, FILE+13
OLDWARD RESOLVE+1~, RESOLVE+20*, RESOLVE+21, RESOLVE+36*, RESOLVE+37, RESOLVE+44*, RESOLVE+45, NEWWARD~, NEWWARD+12
OUT NEWWARD+9~, NEWWARD+14*, NEWWARD+15, NEWWARD+24*
>> QFLG START+3*, START+7, START+8, START+21*, START+22, FILE+10*, FILE+11, FILE+54*
TM RESOLVE+1~, RESOLVE+12!, RESOLVE+27!
TM( RESOLVE+14*, RESOLVE+16, RESOLVE+18, RESOLVE+29*, RESOLVE+30
TM("" RESOLVE+30
U START+16, START+18, RESOLVE+6, RESOLVE+14, RESOLVE+20, RESOLVE+23, RESOLVE+24, RESOLVE+29, RESOLVE+36, RESOLVE+39
, RESOLVE+40, RESOLVE+44, RESOLVE+47, RESOLVE+48, NEWWARD+11, NEWWARD+26, FILE+18, FILE+19, FILE+20, FILE+21
, FILE+38, FILE+39, FILE+40, FILE+46, FILE+47, FILE+48, FILE+49, FILE+51
>> ZTQUEUED START+21, FILE+54
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All