Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls