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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIK  
Event Capture 2 ^ECDEAL1  ^ECKILL  
Kernel 2 HOME^%ZIS  ^%ZTLOAD  

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
Event Capture 1 ECDEAL  

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

External References

Name Field # of Occurrence
HOME^%ZIS ALL+11
^%ZTLOAD ALL+11
^DIC UNIT, U+4
^DIE ALL+10, INSCRN+6
^DIK U+5, DIK+1
^ECDEAL1 USER+3
^ECKILL END+1

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
Routine Call
  • %ZIS
  • Line Location:
    • ALL+11
Routine Call
  • DIC
  • Line Location:
    • UNIT
    • U+4
Routine Call
  • DIE
  • Line Location:
    • ALL+10
    • INSCRN+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECJ - [#720.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECD - [#724] INSCRN+5
^ECJ - [#720.3] INSCRN+4
^ECJ("AP" INSCRN+2, INSCRN+3
^VA(200 - [#200] DIK+1

Label References

Name Line Occurrences
ALL U+2, U+6, ALL+2
END USER, USER+3, UNIT, U, U+2, U+4, U+5
INSCRN DIK+3
SCN ALL+8, SCN+4
U U+1
UNIT U+6
USER USER+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA UNIT!, U+5!*, ALL+10*, DIK+1!*, DIK+2!, INSCRN+3!*, INSCRN+4, INSCRN+7!
DA(1 U+5*, DIK+1*
DIC UNIT!*, U+4!*, U+5!
DIC("A" UNIT*, U+4*
DIC("S" U+4*
DIC(0 UNIT*, U+4*
DIE ALL+10!*, INSCRN+3!*, INSCRN+7!
DIK U+5!*, DIK+1!*, DIK+2!
DR ALL+10!*, INSCRN+3!, INSCRN+6*, INSCRN+7!
DT ALL+8
DTIME USER, USER+2, U, ALL+1, SCN+2, END
EC INSCRN+1*, INSCRN+2*, INSCRN+3, INSCRN+7!
ECA INSCRN+2*, INSCRN+3, INSCRN+7!
ECC INSCRN+2*, INSCRN+3, INSCRN+5, INSCRN+7!
>> ECD UNIT*, U+5, ALL+10, DIK+1, INSCRN+2, INSCRN+3, INSCRN+5
>> ECDN UNIT*, U+1, U+3, U+4, U+5, U+6, ALL+1, ALL+9, SCN+9
ECINC ALL+8*, INSCRN+4, INSCRN+5, INSCRN+6, END+1!
>> ECOUT ECDEAL+2*, UNIT, U+2, ALL+1*, ALL+8, SCN+2*, END
ECSCN ALL+8*, ALL+9, SCN+7*, SCN+8, DIK+3, END+1!
>> ECU U+4*, U+5, U+6, DIK+1*
>> ECUN U+4*, U+5
>> ECYN USER*, USER+1*, USER+2, USER+3, U*, U+1*, U+2, ALL+1*, ALL+2*, ALL+8
, SCN+2*, SCN+3*, SCN+4, SCN+7
>> I DIK+1*
INACT ALL+8*, ALL+10, SCN+8, END+1!
IOF USER, UNIT, END+1
U INSCRN+4, INSCRN+5
>> X USER+2*, END*
>> Y UNIT, U+4
>> ZTDESC ALL+11*
>> ZTDTH ALL+11*
>> ZTIO ALL+11*
>> ZTQUEUED DIK+4, END+1
>> ZTREQ DIK+4*, END+1*
>> ZTRTN ALL+11*
>> ZTSAVE("ECD" ALL+11*
>> ZTSAVE("ECDN" ALL+11*
>> ZTSAVE("ECINC" ALL+11*
>> ZTSAVE("ECOUT" ALL+11*
>> ZTSAVE("ECSCN" ALL+11*
ZTSK ALL+11!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All