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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ECDEAL

Package: Event Capture

Routine: ECDEAL


Information

ECDEAL ;BIR/MAM,JPW-Deallocate DSS Units ;1/22/16 14:33

Source Information

Source file <ECDEAL.m>

Entry Points

Name Comments DBIA/ICR reference
USER
UNIT
U
ALL ; remove all units from all users
SCN ;prompt to inactive event code screens associated with unit
DIK ; entry when queued
INSCRN ; inactivate screen codes
END

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: USER+0
Function Call: WRITE
  • Prompt: !!,"If you are removing access to a DSS Unit for one or more users, enter",!,"<RET>. If you want to remove access to all units for an individual user,"
  • Line Location: USER+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: USER+2
Function Call: WRITE
  • Prompt: !,"enter YES.",!!,"Press <RET> to continue "
  • Line Location: USER+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: UNIT+0
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: U+0
Function Call: WRITE
  • Prompt: !!,"Enter <RET> if you are removing access to "_ECDN_" for an individual",!,"user or Y to remove access for ALL users."
  • Line Location: U+1
Function Call: WRITE
  • Prompt: !!,"Access to "_ECDN_" will be removed from all users."
  • Line Location: U+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: U+4
Function Call: WRITE
  • Prompt: !!,"Access to "_ECDN_" has been removed from "_ECUN_"."
  • Line Location: U+5
Function Call: WRITE
  • Prompt: !!,"Access for "_ECDN_" will be removed from all users.",!!,"All Event Code Screens will be inactivated for "_ECDN
  • Line Location: U+6
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: !!,"Enter <RET> if you want to inactivate this DSS Unit, or "
  • Line Location: ALL+3
Function Call: WRITE
  • Prompt: "NO to leave it active.",!!
  • Line Location: ALL+4
Function Call: WRITE
  • Prompt: "NOTE: If unit is inactivated it will be inaccessible during "
  • Line Location: ALL+5
Function Call: WRITE
  • Prompt: "patient data",!,?6,"entry; i.e none of its associated EC screens "
  • Line Location: ALL+6
Function Call: WRITE
  • Prompt: "(procedures) will be",!,?6,"available for patient data entry."
  • Line Location: ALL+7
Function Call: WRITE
  • Prompt: !!,"All Event Code Screens will be inactivated for "_ECDN
  • Line Location: ALL+9
Function Call: WRITE
  • Prompt: !!,"Do you want to inactivate all Event Code Screens associated with"
  • Line Location: SCN+1
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: SCN+2
Function Call: WRITE
  • Prompt: !!,"Enter <RET> if you want to inactivate ALL Event Code Screens "
  • Line Location: SCN+5
Function Call: WRITE
  • Prompt: "for this DSS",!,"Unit, or NO to leave them active."
  • Line Location: SCN+6
Function Call: WRITE
  • Prompt: !!,"The "_ECDN_" DSS Unit has been inactivated. Event Code Screens"
  • Line Location: SCN+9
Function Call: WRITE
  • Prompt: !,"associated with that unit are no longer accessible to users."
  • Line Location: SCN+10
Function Call: WRITE
  • Prompt: !,"If you wish to inactivate individual Event Code Screens, use the"
  • Line Location: SCN+11
Function Call: WRITE
  • Prompt: !,"Inactivate Event Code Screens menu option."
  • Line Location: SCN+12
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECJ - [#720.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call