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

Package: Emergency Department Integration Software

Routine: EDPFMOVE


Information

EDPFMOVE ;SLC/MKB - Move local ER Visits to EDIS ;2/28/12 08:33am

Source Information

Source file <EDPFMOVE.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,STAT)^%ZTLOAD  $$TZ^XLFDT  ($$NAME,$$NS)^XUAF4  
VA FileMan 3 ^DIC  $$EXTERNAL^DILFD  ^DIR  
Emergency Department Integration Software 2 VST^EDPCONV  SEND^EDPFMON  

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
Emergency Department Integration Software 1 EDP CONVERSION  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- Option EDP CONVERSION to copy local data
E1 ; -- start here
CONFIG ; -- convert site configuration
ACTIVE ; -- Loop through ER Locations, convert open visits first
LOOP ; -- Queued loop to send previous [closed] visits
EN1(IEN,OPEN) ; -- convert single ER visit
LOC(X) ; -- Return 0-node for Location ien X
ACU(X)
STS(X) ; -- Return 0-node for Status ien X
DEL(X) ; -- Return 0-node for Delay Reason ien X
ARR(X) ; -- Return 0-node for Arrival Mode ien X
DIS(X) ; -- Return 0-node for Disposition ien X
PER(X) ; -- Return NAME^INITIALS for New Person ien X
NUR(X) ; -- Return #200 ptr for Nurse Staff ien X
SELDIV() ; -- Select division ien to convert
AREA(D) ; -- Return Tracking Area #231.9 ien for Division ien
SELCVT ; -- Select what to convert: configuration, data, or both

External References

Name Field # of Occurrence
^%ZTLOAD E1+13
STAT^%ZTLOAD E1+6
^DIC SELDIV+11
$$EXTERNAL^DILFD CONFIG+15, CONFIG+16, CONFIG+19, CONFIG+20, EN1+20
^DIR EN+16, SELCVT+7
VST^EDPCONV EN1+33
SEND^EDPFMON CONFIG+22
$$TZ^XLFDT CONFIG+10, EN1+6
$$NAME^XUAF4 CONFIG+3, CONFIG+4
$$NS^XUAF4 SELDIV+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You have no ER data to convert."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"The data conversion has completed."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"This option will copy ER configuration and visit data at your site"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"to the new Emergency Department application. For each division,"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"your local configuration data will be copied first, followed by all"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"currently active patient visits. A task will then be queued to"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"populate previous, closed visits in the national application files"
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"to allow reports to continue to function."
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"Please create a Tracking Area for this division.",!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!,"DO NOT PROCEED UNTIL YOU ARE READY TO USE THE NEW EDIS PACKAGE!!",!
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,"Visit conversion is still running."
  • Line Location: E1+7
Function Call: WRITE
  • Prompt: !,"Task #"_ZTSK_" started to copy closed visits."
  • Line Location: E1+14
Function Call: WRITE
  • Prompt: !,"ERROR -- Task to copy closed visits NOT started!"
  • Line Location: E1+16
Function Call: WRITE
  • Prompt: !,"Configuration data for "_$$NAME^XUAF4(EDPDIV)_" has already been copied."
  • Line Location: CONFIG+3
Function Call: WRITE
  • Prompt: !,"Configuration data for "_$$NAME^XUAF4(EDPDIV)_" will not be copied."
  • Line Location: CONFIG+4
Function Call: WRITE
  • Prompt: !,"Copying local configuration ... "
  • Line Location: CONFIG+5
Function Call: WRITE
  • Prompt: !,"Copying currently active visits ... "
  • Line Location: ACTIVE+4
Function Call: WRITE
  • Prompt: !!,"There is no data to convert."
  • Line Location: SELDIV+5
Function Call: WRITE
  • Prompt: !!,"Available divisions: "
  • Line Location: SELDIV+9
Function Call: WRITE
  • Prompt: !,$P(DIV(I),U,2),?10,$P(DIV(I),U)
  • Line Location: SELDIV+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELCVT+3
Routine Call
  • DIC
  • Line Location:
    • SELDIV+11
Routine Call
  • DIR
  • Line Location:
    • EN+16
    • SELCVT+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIZ(172006 EN+1, LOOP+3, EN1+3, EN1+4, EN1+21, EN1+34*, SELDIV+3
^DIZ(172007 CONFIG+13, CONFIG+14, ACU+1
^DIZ(172008 ACTIVE+5, ACTIVE+6, LOC+1
^DIZ(172009 CONFIG+18, EN1+2, STS+1
^DIZ(172011 DEL+1
^DIZ(172012 CONFIG+6, CONFIG+8, CONFIG+11, SELCVT+8
^DIZ(172014 ARR+1
^DIZ(172015 DIS+1
^EDPB(231.9 - [#231.9] AREA+1
^NURSF(210 - [#210] NUR+1
^VA(200 - [#200] PER+1
^XTMP("EDP-CONV" EN+2, E1+5, E1+15*, CONFIG+2, CONFIG+23*, ACTIVE+2, ACTIVE+7*, ACTIVE+8*, ACTIVE+9*, LOOP+2
, LOOP+4*, LOOP+6*, SELDIV+2, SELCVT+1, SELCVT+8*

Label References

Name Line Occurrences
$$ACU EN1+17, EN1+23
$$AREA EN+12
$$ARR EN1+14
$$DEL EN1+18
$$DIS EN1+19
$$LOC EN1+15, EN1+24
$$NUR EN1+16, EN1+25
$$SELDIV EN+11
$$STS EN1+10, EN1+22, LOC+2
ACTIVE E1+2
CONFIG E1+1
EN1 ACTIVE+7, LOOP+5
SELCVT EN+13

Naked Globals

Name Field # of Occurrence
^( CONFIG+18, EN1+21, SELDIV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT SELDIV+1~, SELDIV+4*, SELDIV+7
D AREA~, AREA+1
DIC SELDIV+1~, SELDIV+6*
DIC("A" SELDIV+8*
DIC("B" SELDIV+7*
DIC("S" SELDIV+6*
DIC(0 SELDIV+6*
DIR EN+4~, SELCVT+2~
DIR("?" SELCVT+5*, SELCVT+6*
DIR("A" EN+15*, SELCVT+4*
DIR("B" EN+15*
DIR(0 EN+15*, SELCVT+3*
DIROUT EN+4~
DIRUT EN+4~
DIV SELDIV+1~
DIV( SELDIV+4*, SELDIV+7, SELDIV+10
DIV(0 SELDIV+5, SELDIV+7
DIZ EN1+1~, EN1+33
DIZ( EN1+3*
DIZ("ACU" EN1+17*, EN1+23*
DIZ("ARR" EN1+14*
DIZ("CLOSED" EN1+12*, EN1+13*
DIZ("DEL" EN1+18*
DIZ("DIS" EN1+19*, EN1+20*
DIZ("LOC" EN1+15*, EN1+24*
DIZ("MVT" EN1+26*
DIZ("SITE" EN1+5*
DIZ("STS" EN1+10*, EN1+13, EN1+22*, LOC+2*
DIZ("TZ" EN1+6*
DIZ(0 EN1+10, EN1+14
DIZ(230 EN1+34
DIZ(3 EN1+5, EN1+15
DIZ(4 EN1+16*, EN1+17, EN1+18
DIZ(6 EN1+20
DIZ(8 EN1+4*
DIZ(9 EN1+19
DTOUT EN+4~, SELDIV+1~, SELCVT+2~
DUOUT EN+4~, SELDIV+1~, SELCVT+2~
EDPDIV EN+4~, EN+11*, EN+12, EN+13, E1+5, E1+15, CONFIG+2, CONFIG+3, CONFIG+4, CONFIG+9
, CONFIG+13, CONFIG+23, ACTIVE+2, ACTIVE+5, ACTIVE+8, ACTIVE+9, LOOP+2, LOOP+3, LOOP+4, LOOP+6
, SELCVT+1, SELCVT+7*, SELCVT+8
EDPI CONFIG+1~, CONFIG+2*, CONFIG+3, CONFIG+4, CONFIG+6*, CONFIG+8, CONFIG+11, LOOP+1~, LOOP+2*, LOOP+3*
, LOOP+4, LOOP+5, LOOP+6
EDPL ACTIVE+1~, ACTIVE+2*, ACTIVE+3, ACTIVE+5*, ACTIVE+6, ACTIVE+8
GONE EN1+1~, EN1+2*, EN1+12, EN1+13
I CONFIG+1~, CONFIG+11*, CONFIG+13*, CONFIG+14, CONFIG+17, CONFIG+18*, CONFIG+21, EN1+1~, EN1+3*, EN1+21*
, EN1+26, SELDIV+1~, SELDIV+2*, SELDIV+3, SELDIV+4, SELDIV+7*, SELDIV+10*
IEN EN1~, EN1+3, EN1+4, EN1+21, EN1+34
MSG CONFIG+1~, CONFIG+7!, CONFIG+22
MSG( CONFIG+9*, CONFIG+10*, CONFIG+11*, CONFIG+17*, CONFIG+21*
MSG(1 CONFIG+7*
N CONFIG+1~, CONFIG+7*, CONFIG+9*, CONFIG+10*, CONFIG+11*, CONFIG+17*, CONFIG+21*
NODE LOC+1~*, LOC+2, LOC+3
OPEN EN1~, EN1+11
S LOC+1~, LOC+2*
STS E1+6~*, E1+7
U E1+5, E1+15, CONFIG+2, CONFIG+14, CONFIG+15, CONFIG+16, CONFIG+19, CONFIG+20, CONFIG+23, ACTIVE+2
, ACTIVE+6, ACTIVE+8, ACTIVE+9, LOOP+2, LOOP+4, LOOP+6, EN1+5, EN1+10, EN1+13, EN1+14
, EN1+15, EN1+16, EN1+17, EN1+18, EN1+19, EN1+20, EN1+22, EN1+23, EN1+24, EN1+25
, LOC+2, PER+1, NUR+1, SELDIV+3, SELDIV+7, SELDIV+10, SELCVT+1, SELCVT+8
VST ACTIVE+1~, ACTIVE+6*, ACTIVE+7
X EN+4~, EN1+1~, EN1+5*, EN1+10*, EN1+13, EN1+14*, EN1+15*, EN1+16*, EN1+17*, EN1+18*
, EN1+19*, EN1+20*, EN1+22*, EN1+23*, EN1+24*, EN1+25*, LOC~, LOC+1, ACU~, ACU+1
, STS~, STS+1, DEL~, DEL+1, ARR~, ARR+1, DIS~, DIS+1, PER~, PER+1
, NUR~, NUR+1, SELDIV+1~, SELDIV+2*, SELDIV+3, SELCVT+2~
X0 CONFIG+1~, CONFIG+8*, CONFIG+14*, CONFIG+15*, CONFIG+16*, CONFIG+17, CONFIG+18*, CONFIG+19*, CONFIG+20*, CONFIG+21
, EN1+1~, EN1+21*, EN1+22, EN1+23, EN1+24, EN1+25*, EN1+26
XMMG CONFIG+1!, CONFIG+6
XMZ CONFIG+1~, ACTIVE+1~
Y EN+4~, EN+16, EN1+1~, SELDIV+1~, SELDIV+11*, SELDIV+12, SELCVT+2~, SELCVT+7, SELCVT+8
ZTCPU E1+4~
ZTDESC E1+4~, E1+12*
ZTDTH E1+4~, E1+11*
ZTIO E1+4~, E1+11*
ZTKIL E1+4~
ZTPRI E1+4~
ZTRTN E1+4~, E1+11*
ZTSAVE E1+4~
ZTSAVE("EDPDIV" E1+11*
ZTSK E1+4~, E1+5*, E1+8!, E1+13, E1+14, E1+15
ZTSK(1 E1+6
ZTSYNC E1+4~
ZTUCI E1+4~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All