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

Package: Case Management System

Routine: ACMADDP


Information

ACMADDP ; IHS/TUCSON/TMJ - ADD PRE-DIABETES REGISTER ; [ 11/01/05 3:21 PM ]

Source Information

Source file <ACMADDP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Case Management System 3 (CCOMP,CDIAG,CDXCR,CRISK)^ACMADDM2  RGTPX^ACMGTP  (REG,SETC,SETD,SETDC,SETE,SETR)^ACMRGA02  
VA Fileman 2 ^DIE  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
END ;CLEANUP
ADDR ;ADDS IHS PRE-DIABETES REGISTER
CHGN ;RENAME REGISTER
CHGC
CHGD
CHGE
INFORM ;Install Information Text
CHGRF
CHGR ;CHANGES EXISTING REGISTER AND ADDS ELEMENTS,DIAG,COMP,RISK,DXCRIT
CHGDC

External References

Name Field # of Occurrence
CCOMP^ACMADDM2 CHGR+23
CDIAG^ACMADDM2 CHGR+22
CDXCR^ACMADDM2 CHGR+25
CRISK^ACMADDM2 CHGR+24
RGTPX^ACMGTP CHGR+6
REG^ACMRGA02 ADDR+4
SETC^ACMRGA02 CHGC+1
SETD^ACMRGA02 CHGD+1
SETDC^ACMRGA02 CHGDC+1
SETE^ACMRGA02 CHGE+1
SETR^ACMRGA02 CHGRF+1
^DIE CHGN+1, CHGN+2, CHGN+4
^DIR ACMADDP+27, ADDR+3, CHGR+15, CHGE+1, CHGD+1, CHGC+1, CHGRF+1, CHGDC+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You already have a register called 'IHS PRE-DIABETES'",!,"This option cannot be run!"
  • Line Location: ACMADDP+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ACMADDP+26
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDR+2
Function Call: WRITE
  • Prompt: !!!," Converting existing register to IHS National Pre-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 Pre-Diabetes Register"
  • Line Location: CHGR+4
Function Call: WRITE
  • Prompt: !," 2 = Adding elements, diagnoses, complications, Diagnostic Criteria, and Risk Factors 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: !,"No Register Selected"
  • Line Location: CHGR+8
Function Call: WRITE
  • Prompt: ACMRGNA
  • Line Location: CHGR+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CHGR+14
Function Call: WRITE
  • Prompt: !,"Finished.."
  • Line Location: CHGR+26
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 PRE-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
Function Call: WRITE
  • Prompt: !
  • Line Location: CHGRF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHGDC+1
Function Call: WRITE
  • Prompt: !!,"You must first re-name your existing Register called IHS PRE-DIABETES to",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: "OLD IHS PRE-DIABETES and then run the Install and convert the OLD Register",!
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: "to the new Register. Be sure to add any new Users to the new Register.",!
  • Line Location: INFORM+4
Routine Call
  • DIE
  • Line Location:
    • CHGN+1
    • CHGN+2
    • CHGN+4
Routine Call
  • DIR
  • Line Location:
    • ACMADDP+27
    • ADDR+3
    • CHGR+15
    • CHGE+1
    • CHGD+1
    • CHGC+1
    • CHGRF+1
    • CHGDC+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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(41 - [#9002241] CHGN+4
^ACM(41.1 - [#9002241.1] ACMADDP+12, CHGR+11, CHGN+1

Label References

Name Line Occurrences
ADDR ACMADDP+28
CHGC CHGR+19
CHGD CHGR+18
CHGDC CHGR+21
CHGE CHGR+17
CHGN CHGR+16
CHGR ACMADDP+29
CHGRF CHGR+20
END ACMADDP+29, CHGR+26
INFORM ACMADDP+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACMGREF CHGN+2*
>> ACMI CHGN+2*
>> ACMQ ACMADDP+27*, ACMADDP+28*, ACMADDP+29, ADDR+4*, CHGR+16*, CHGR+18, CHGR+19, CHGR+20, CHGR+21, CHGR+22
, CHGR+23, CHGR+24, CHGR+25, CHGE+1*, CHGD+1*, CHGC+1*, CHGRF+1*, CHGDC+1*
ACMRG CHGR+7*, CHGR+8, CHGR+11, CHGN+1, CHGN+4, END+1!
ACMRGNA CHGR+11*, CHGR+12, CHGR+13, CHGN+1*, CHGN+2, CHGN+3*, END+1!
>> ACMX CHGN+4*
DA CHGR+7, CHGN+1*!, CHGN+2*, CHGN+3!, CHGN+4*, END+1!
DIC CHGN+3!, END+1!
DIC(0 CHGR+6*
DIE CHGN+1*, CHGN+2*, CHGN+3!, CHGN+4*, END+1!
DIR ACMADDP+27!, ADDR+3!, CHGR+15!, CHGE+1!, CHGD+1!, CHGC+1!, CHGRF+1!, CHGDC+1!, END+1!
DIR("A" ACMADDP+13*, ACMADDP+14*, ACMADDP+15*, ACMADDP+16*, ACMADDP+17*, ACMADDP+18*, ACMADDP+19*, ACMADDP+20*, ACMADDP+21*, ACMADDP+22*
, ACMADDP+23*, ACMADDP+24*, ACMADDP+25*, ADDR+1*, CHGR+13*, CHGE*, CHGD*, CHGC*, CHGRF*, CHGDC*
DIR("B" ACMADDP+25*, ADDR+1*, CHGR+13*, CHGE*, CHGD*, CHGC*, CHGRF*, CHGDC*
DIR(0 ACMADDP+25*, ADDR+1*, CHGR+13*, CHGE*, CHGD*, CHGC*, CHGRF*, CHGDC*
DR CHGN+1*!, CHGN+2*, CHGN+4*, END+1!
IOF ACMADDP+11, CHGR+1
U CHGR+11, CHGN+1
>> Y ACMADDP+28, ADDR+4, CHGR+16, CHGE+1, CHGD+1, CHGC+1, CHGRF+1, CHGDC+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