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

Package: Case Management System

Routine: ACMADDM


Information

ACMADDM ; IHS/TUCSON/TMJ - ADD DIABETES REGISTER ; 05 Feb 2006 11:39 AM

Source Information

Source file <ACMADDM.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Case Management System 3 (CCOMP,CDIAG)^ACMADDM1  RGTPX^ACMGTP  (REG,SETC,SETD,SETE)^ACMRGA01  
VA Fileman 3 ^DIE  ^DIK  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
XDX1
END ;CLEANUP
ADDR ;ADDS IHS DIABETES REGISTER
CHGN ;RENAME REGISTER
CHGC
CHGD
CHGE
CHGR ;CHANGES EXISTING REGISTER AND ADDS ELEMENTS,DIAG,COMP
XDX ;EP;TO ELIMINATE DUPLICATE DM DIAGNOSES.

External References

Name Field # of Occurrence
CCOMP^ACMADDM1 CHGR+16
CDIAG^ACMADDM1 CHGR+15
RGTPX^ACMGTP CHGR+6
REG^ACMRGA01 ADDR+4
SETC^ACMRGA01 CHGC+1
SETD^ACMRGA01 CHGD+1
SETE^ACMRGA01 CHGE+1
^DIE CHGN+1, CHGN+2, CHGN+4, XDX1+13, XDX1+19
^DIK XDX1+23
^DIR ACMADDM+23, ADDR+3, CHGR+10, CHGE+1, CHGD+1, CHGC+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You already have a register called 'IHS DIABETES'",!,"This option cannot be run!"
  • Line Location: ACMADDM+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ACMADDM+22
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDR+2
Function Call: WRITE
  • Prompt: !!!," Converting existing register to IHS National Diabetes Register",!
  • Line Location: CHGR+2
Function Call: WRITE
  • Prompt: !,"This option will quide you through the following:"
  • Line Location: CHGR+3
Function Call: WRITE
  • Prompt: !," 1 = Renaming your local register to the IHS National Diabetes Register"
  • Line Location: CHGR+4
Function Call: WRITE
  • Prompt: !," 2 = Adding elements, diagnoses, and complications included",!," in the IHS standard to your converted register."
  • Line Location: CHGR+5
Function Call: WRITE
  • Prompt: !!,"Enter the name of your existing local register you want converted: ",!
  • Line Location: CHGR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CHGR+9
Function Call: WRITE
  • Prompt: !,"Finished.."
  • Line Location: CHGR+17
Function Call: WRITE
  • Prompt: "."
  • Line Location: CHGN+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: CHGN+4
Function Call: WRITE
  • Prompt: !,"The register has been renamed to IHS DIABETES.."
  • Line Location: CHGN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CHGE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHGD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHGC+1
Routine Call
  • DIE
  • Line Location:
    • CHGN+1
    • CHGN+2
    • CHGN+4
    • XDX1+13
    • XDX1+19
Routine Call
  • DIR
  • Line Location:
    • ACMADDM+23
    • ADDR+3
    • CHGR+10
    • CHGE+1
    • CHGD+1
    • CHGC+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACM(41 - [#9002241] Classic Fileman Calls
^ACM(41.1 - [#9002241.1] Classic Fileman Calls
^ACM(44 - [#9002244] Classic Fileman Calls
^ACM(44.1 - [#9002244.1] Classic Fileman Calls
^ACM(44.3 - [#9002244.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(41 - [#9002241] CHGN+4
^ACM(41.1 - [#9002241.1] ACMADDM+8, CHGN+1
^ACM(44 - [#9002244] XDX1+3, XDX1+16
^ACM(44.1 - [#9002244.1] XDX1+2, XDX1+6
^ACM(44.3 - [#9002244.3] XDX1+10

Label References

Name Line Occurrences
ADDR ACMADDM+24
CHGC CHGR+14
CHGD CHGR+13
CHGE CHGR+12
CHGN CHGR+11
CHGR ACMADDM+25
END ACMADDM+25, CHGR+17
XDX1 XDX+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACMGREF CHGN+2*
>> ACMI CHGN+2*
ACMPDA XDX+1~, XDX1+1*, XDX1+2*, XDX1+3, XDX1+5*, XDX1+6*, XDX1+7, XDX1+8, XDX1+10, XDX1+14
, XDX1+16, XDX1+20, XDX1+21
ACMPRIM XDX+1~, XDX1*, XDX1+3*, XDX1+4, XDX1+8, XDX1+11, XDX1+14, XDX1+17, XDX1+20
>> ACMQ ACMADDM+23*, ACMADDM+24*, ACMADDM+25, ADDR+4*, CHGR+7*, CHGR+11*, CHGR+13, CHGR+14, CHGR+15, CHGR+16
, CHGE+1*, CHGD+1*, CHGC+1*
ACMRG CHGR+7*, CHGN+1, CHGN+4, END+1!
ACMRGNA CHGR+7*, CHGR+8, CHGN+1*, CHGN+2, CHGN+3*, END+1!
>> ACMX CHGN+4*
ACMXX XDX+1~, XDX+2*, XDX1+2, XDX1+6, XDX1+7, XDX1+14, XDX1+20, XDX1+24
DA CHGN+1*!, CHGN+2*, CHGN+3!, CHGN+4*, END+1!, XDX+1~, XDX1+9*, XDX1+10*, XDX1+14, XDX1+15*
, XDX1+16*, XDX1+20, XDX1+21*, XDX1+24
DIC CHGN+3!, END+1!
DIC(0 CHGR+6*
DIE CHGN+1*, CHGN+2*, CHGN+3!, CHGN+4*, END+1!, XDX+1~, XDX1+12*, XDX1+18*
DIK XDX+1~, XDX1+22*
DIR ACMADDM+23!, ADDR+3!, CHGR+10!, CHGE+1!, CHGD+1!, CHGC+1!, END+1!
DIR("A" ACMADDM+9*, ACMADDM+10*, ACMADDM+11*, ACMADDM+12*, ACMADDM+13*, ACMADDM+14*, ACMADDM+15*, ACMADDM+16*, ACMADDM+17*, ACMADDM+18*
, ACMADDM+19*, ACMADDM+20*, ACMADDM+21*, ADDR+1*, CHGR+8*, CHGE*, CHGD*, CHGC*
DIR("B" ACMADDM+21*, ADDR+1*, CHGR+8*, CHGE*, CHGD*, CHGC*
DIR(0 ACMADDM+21*, ADDR+1*, CHGR+8*, CHGE*, CHGD*, CHGC*
DR CHGN+1*!, CHGN+2*, CHGN+4*, END+1!, XDX+1~, XDX1+11*, XDX1+17*
IOF ACMADDM+7, CHGR+1
U CHGR+7, CHGN+1
X XDX+1~
Y ACMADDM+24, ADDR+4, CHGR+7, CHGR+11, CHGE+1, CHGD+1, CHGC+1, XDX+1~
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