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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACDDEGP

Package: Alcohol Chemical Dependency

Routine: ACDDEGP


Information

ACDDEGP ;IHS/ADC/EDE/KML - GET PATIENT;

Source Information

Source file <ACDDEGP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Alcohol Chemical Dependency 4 (,SETRG)^ACDAGRG  (GETCDMIS,GETREG)^ACDDEGP2  PAUSE^ACDDEU  DIC^ACDFMC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Alcohol Chemical Dependency 3 ACDCSD  ACDDE  ACDRR3  

Entry Points

Name Comments DBIA/ICR reference
ART ; AGE RANGE TABLE
GETDEMO ; EP - GET CLIENT/PATIENT DEMOGRAPHIC INFO
CHG4 ; CHANGE STATE
SETDEMO ; EP - SET CLIENT/PATIENT DEMO VARIABLES
SVDEMO ; SAVE DEMOGRAPHIC INFO
GETPAT ; EP - GET CLIENT/PATIENT
CHG5 ; CHANGE TRIBE
CHG2 ; CHANGE AGE
DSPDEMO ; DISPLAY AND ALLOW CHANGE OF DEMOGRAPHIC INFO
CHG1 ; CHANGE SEX
GETCDMIS ; GET LAST CDMIS INFO FOR PATIENT
CHG3 ; CHANGE VETERAN STATUS
GETREG ; GET PATIENT REGISTRATION INFO
DSPDIFF ; DISPLAY DIFFERENCES IN DEMO DATA VALUES
DSPPAT ; DISPLAY CLIENT/PATIENT DATA

External References

Name Field # of Occurrence
^ACDAGRG SETDEMO+4
SETRG^ACDAGRG CHG2+4
GETCDMIS^ACDDEGP2 GETCDMIS+1
GETREG^ACDDEGP2 GETREG+1
PAUSE^ACDDEU GETPAT+12
DIC^ACDFMC GETPAT+3
^DIR DSPPAT+19, CHG1+1, CHG2+1, CHG3+1, CHG4+1, CHG5+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,IORVON,"No AGE and/or AGE RANGE for selected patient. Cannot continue.",IORVOFF,!!
  • Line Location: GETPAT+11
Function Call: WRITE
  • Prompt: !!,"You previously changed this patient's age so you must edit the",!,"demographic data each time this patient is selected."
  • Line Location: SETDEMO+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SETDEMO+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPDEMO+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: DSPPAT+1
Function Call: WRITE
  • Prompt: "PATIENT NAME: ",ACDDFN,!
  • Line Location: DSPPAT+2
Function Call: WRITE
  • Prompt: ACDDL,!
  • Line Location: DSPPAT+5
Function Call: WRITE
  • Prompt: "1. SEX: ",ACDSEX,!
  • Line Location: DSPPAT+6
Function Call: WRITE
  • Prompt: ?32,@ACDRVON,ACDPRD("ACDSEX"),@ACDRVOF,!
  • Line Location: DSPPAT+7
Function Call: WRITE
  • Prompt: "2. AGE: ",ACDAGE,!
  • Line Location: DSPPAT+8
Function Call: WRITE
  • Prompt: ?32,@ACDRVON,ACDPRD("ACDAGE"),@ACDRVOF,!
  • Line Location: DSPPAT+9
Function Call: WRITE
  • Prompt: " AGE RANGE: ",ACDAGER," (",$P($T(ART+ACDAGER),";;",2),")",!
  • Line Location: DSPPAT+10
Function Call: WRITE
  • Prompt: "3. IS CLIENT A VETERAN (Y/N): ",ACDVET,!
  • Line Location: DSPPAT+11
Function Call: WRITE
  • Prompt: ?32,@ACDRVON,ACDPRD("ACDVET"),@ACDRVOF,!
  • Line Location: DSPPAT+12
Function Call: WRITE
  • Prompt: "4. RESIDENT STATE: ",ACDSTANM,!
  • Line Location: DSPPAT+13
Function Call: WRITE
  • Prompt: ?32,@ACDRVON,ACDPRD("ACDSTANM"),@ACDRVOF,!
  • Line Location: DSPPAT+14
Function Call: WRITE
  • Prompt: "5. TRIBE: ",ACDTRBN,!
  • Line Location: DSPPAT+15
Function Call: WRITE
  • Prompt: ?32,@ACDRVON,ACDPRD("ACDTRBN"),@ACDRVOF,!
  • Line Location: DSPPAT+16
Function Call: WRITE
  • Prompt: ACDDL,!
  • Line Location: DSPPAT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPPAT+22
Function Call: WRITE
  • Prompt: ?8,@ACDRVON,Y,". ",$S(Y=1:"SEX",Y=2:"AGE",Y=3:"IS CLIENT A VET (Y/N)",Y=4:"RESIDENT STATE",1:"TRIBE"),": ",ACDPRD(X),@ACDRVOF,!
  • Line Location: DSPDIFF+6
Routine Call
  • DIR
  • Line Location:
    • DSPPAT+19
    • CHG1+1
    • CHG2+1
    • CHG3+1
    • CHG4+1
    • CHG5+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] GETPAT+6
^TMP("ACD" GETPAT+7, SETDEMO+1, SETDEMO+3, SETDEMO+5, CHG2+5*, SVDEMO+2*, SVDEMO+3*, SVDEMO+4*, SVDEMO+5*, SVDEMO+6*
, SVDEMO+7*, SVDEMO+8*, SVDEMO+9*, SVDEMO+10*, SVDEMO+11*, SVDEMO+12*, SVDEMO+13*, SVDEMO+14*, SVDEMO+15*, SVDEMO+16*
, SVDEMO+17*, SVDEMO+18*, SVDEMO+19*

Label References

Name Line Occurrences
@( DSPPAT+23
DSPDEMO SETDEMO+5
DSPDIFF DSPDEMO+5, DSPPAT+3
DSPPAT DSPDEMO+3
GETDEMO GETPAT+8
GETREG SETDEMO+1, GETDEMO+1
SETDEMO GETPAT+7
SVDEMO GETDEMO+5

Naked Globals

Name Field # of Occurrence
^( SETDEMO+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACDAGE GETPAT+10, SETDEMO+4, DSPPAT+8, DSPPAT+9, CHG2+3*, SVDEMO+3
>> ACDAGER GETPAT+10, DSPPAT+10, SVDEMO+2
>> ACDCOMM SVDEMO+4
>> ACDDFN GETPAT+6*, DSPPAT+2, SVDEMO+5
>> ACDDFNP GETPAT+6*, GETPAT+7, SETDEMO+1, SETDEMO+3, SETDEMO+5, CHG2+5, SVDEMO+2, SVDEMO+3, SVDEMO+4, SVDEMO+5
, SVDEMO+6, SVDEMO+7, SVDEMO+8, SVDEMO+9, SVDEMO+10, SVDEMO+11, SVDEMO+12, SVDEMO+13, SVDEMO+14, SVDEMO+15
, SVDEMO+16, SVDEMO+17, SVDEMO+18, SVDEMO+19
>> ACDDL DSPDEMO+1*, DSPPAT+5, DSPPAT+17
>> ACDLC DSPDEMO+2*, DSPPAT+3, DSPPAT+4*
>> ACDPRD( DSPDIFF+3, DSPDIFF+6
>> ACDPRD("ACDAGE" DSPPAT+9
>> ACDPRD("ACDSEX" DSPPAT+7
>> ACDPRD("ACDSTANM" DSPPAT+14
>> ACDPRD("ACDTRBN" DSPPAT+16
>> ACDPRD("ACDVET" DSPPAT+12
>> ACDQ GETPAT+1*, GETPAT+9, GETPAT+13*, SETDEMO+7*, GETDEMO+6*, DSPDEMO+3, DSPDEMO+6*, DSPPAT+18*, DSPPAT+21*
>> ACDRVOF DSPPAT+7, DSPPAT+9, DSPPAT+12, DSPPAT+14, DSPPAT+16, DSPDIFF+4, DSPDIFF+6
>> ACDRVON DSPPAT+7, DSPPAT+9, DSPPAT+12, DSPPAT+14, DSPPAT+16, DSPDIFF+4, DSPDIFF+6
>> ACDSEX DSPPAT+6, DSPPAT+7, CHG1+1, CHG1+3*, SVDEMO+7
>> ACDSTA CHG4+3*, SVDEMO+8
>> ACDSTACD CHG4+4*, SVDEMO+9
>> ACDSTANM DSPPAT+13, DSPPAT+14, CHG4+5*, SVDEMO+10
>> ACDTRB CHG5+3*, SVDEMO+11
>> ACDTRBCD CHG5+4*, SVDEMO+12
>> ACDTRBN DSPPAT+15, DSPPAT+16, CHG5+5*, SVDEMO+13
>> ACDVET DSPPAT+11, DSPPAT+12, CHG3+3*, SVDEMO+14
>> ACDY DSPDIFF+1*, DSPDIFF+4, DSPDIFF+5*
>> AUPNDAYS SVDEMO+15
>> AUPNDOB SVDEMO+16
>> AUPNDOD SVDEMO+17
>> AUPNLK("ALL" GETPAT+2*, GETPAT+4!
>> AUPNPAT SVDEMO+18
>> AUPNSEX SVDEMO+19
DA DSPPAT+19!, CHG1+1!, CHG2+1!, CHG3+1!, CHG4+1!, CHG5+1!
>> DIC GETPAT+3*
>> DIC(0 GETPAT+3*
DIR DSPPAT+19!, CHG1+1!, CHG2+1!, CHG3+1!, CHG4+1!, CHG5+1!
DIR("A" DSPPAT+19*
DIR("B" CHG1+1*
DIR(0 DSPPAT+19*, CHG1+1*, CHG2+1*, CHG3+1*, CHG4+1*, CHG5+1*
>> DIRUT DSPPAT+20, CHG1+2, CHG2+2, CHG3+2, CHG4+2, CHG5+2
>> IORVOFF GETPAT+11
>> IORVON GETPAT+11
U GETPAT+6, CHG4+4, CHG4+5, CHG5+4, CHG5+5
>> X SETDEMO+2*, SETDEMO+3*, DSPPAT+23, DSPDIFF+1*, DSPDIFF+2, DSPDIFF+3, DSPDIFF+6
>> Y GETPAT+5, GETPAT+6, DSPDIFF+2*, DSPDIFF+6, CHG2+3, CHG4+3, CHG5+3
>> Y(0 CHG1+3, CHG3+3, CHG4+4, CHG4+5, CHG5+4, CHG5+5

Marked Items

Name Field # of Occurrence
$T(ART+ACDAGER DSPPAT+10
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 |  Naked Globals |  Local Variables |  Marked Items |  All