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

Package: Case Management System

Routine: ACMDELRG


Information

ACMDELRG ; IHS/TUCSON/TMJ - DELETE AN ENTIRE REGISTER ; [ 12/19/05 11:36 AM ]

Source Information

Source file <ACMDELRG.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 ^DIK  ^DIR  
Case Management System 1 ^ACMGTP  

Entry Points

Name Comments DBIA/ICR reference
DELREG2 ;SECOND SECURITY LEVEL FOR REGISTER DELETION
DELREG
EN
EXIT

External References

Name Field # of Occurrence
^ACMGTP DELREG+8
^DIK DELREG2+11, DELREG2+16, DELREG2+20, DELREG2+23
^DIR DELREG+6, DELREG2+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING",*7,*7,*7,!!,"The next procedure will allow you to COMPLETELY delete an entire register from"
  • Line Location: DELREG+1
Function Call: WRITE
  • Prompt: !,"the Case Management System. The register, including all patients and all",!,"information on all patients will be deleted WITH NO POSSIBILITY of recovering"
  • Line Location: DELREG+2
Function Call: WRITE
  • Prompt: !,"any of the data. Be absolutely certain this is what you want before proceding."
  • Line Location: DELREG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DELREG+5
Function Call: WRITE
  • Prompt: !!,"NO ACTION TAKEN",*7,*7
  • Line Location: DELREG2+1
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),?20,"You are NOT the Creator of this Register",!,?19,"Therefore, you cannot Delete this Register!",!!
  • Line Location: DELREG2+4
Function Call: WRITE
  • Prompt: !,"Contact the Register Developer- "_ACMRDEV_" -for more information.",!!
  • Line Location: DELREG2+5
Function Call: WRITE
  • Prompt: !!,"Are you certain you want to delete"
  • Line Location: DELREG2+6
Function Call: WRITE
  • Prompt: !!,"...DELETING ALL PATIENT RELATED DATA..."
  • Line Location: DELREG2+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELREG2+11
Function Call: WRITE
  • Prompt: !!,"...DELETING ALL REGISTER RELATED LIST ENTRIES..."
  • Line Location: DELREG2+13
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELREG2+16
Function Call: WRITE
  • Prompt: !!,"...DELETING ALL PATIENTS FROM THE REGISTER..."
  • Line Location: DELREG2+18
Function Call: WRITE
  • Prompt: "."
  • Line Location: DELREG2+20
Function Call: WRITE
  • Prompt: !!,"...DELETING THE REGISTER..."
  • Line Location: DELREG2+22
Function Call: WRITE
  • Prompt: !!,"The ",ACMRGNA," and all related data have been deleted."
  • Line Location: DELREG2+25
Routine Call
  • DIR
  • Line Location:
    • DELREG+6
    • DELREG2+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACM(41 - [#9002241] Classic Fileman Calls
^ACM(41.1 - [#9002241.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(41 - [#9002241] DELREG2+20
^ACM(41.1 - [#9002241.1] DELREG2+2, DELREG2+4, DELREG2+5
^VA(200 - [#200] DELREG2+3

Label References

Name Line Occurrences
DELREG EN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACMCTRL EXIT!
ACMCTRLE EXIT!
ACMCTRLP EXIT!
ACMCTRLS EXIT!
ACMCTRLX EXIT!
ACMDELRG EXIT!, DELREG+8*
ACMGREF EXIT!, DELREG2+11*, DELREG2+14*, DELREG2+16
ACMI EXIT!, DELREG2+11*, DELREG2+14*, DELREG2+16
>> ACMRDEV DELREG2+2*, DELREG2+3*, DELREG2+5
ACMRG EXIT!, DELREG2+1, DELREG2+2, DELREG2+4, DELREG2+5, DELREG2+14, DELREG2+16, DELREG2+20, DELREG2+23
ACMRGNA EXIT!, DELREG2+7, DELREG2+11, DELREG2+25
ACMRGTP EXIT!, DELREG+8*
DA DELREG2+11*, DELREG2+12!, DELREG2+15*, DELREG2+16*, DELREG2+17!, DELREG2+19*, DELREG2+20*, DELREG2+21!, DELREG2+23*, DELREG2+24!
DA(1 DELREG2+14*, DELREG2+16
DIC DELREG2+12!, DELREG2+17!, DELREG2+21!, DELREG2+24!
DIK DELREG2+11*, DELREG2+12!, DELREG2+16*, DELREG2+17!, DELREG2+19*, DELREG2+21!, DELREG2+23*, DELREG2+24!
DIR DELREG+6!, DELREG2+8!
DIR("A" DELREG+4*, DELREG2+7*
DIR("B" DELREG+4*, DELREG2+7*
DIR(0 DELREG+4*, DELREG2+7*
DUZ DELREG2+4, DELREG2+5
IOF DELREG
U DELREG2+2, DELREG2+3, DELREG2+4, DELREG2+5
>> Y DELREG+7, DELREG2+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All