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 |  All
Print Page as PDF
Routine: ACDCINV2

Package: Alcohol Chemical Dependency

Routine: ACDCINV2


Information

ACDCINV2 ;IHS/ADC/EDE/KML - DATA ADD FOR INTERVENTIONS;

Source Information

Source file <ACDCINV2.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Alcohol Chemical Dependency 2 (DIE,FILE)^ACDFMC  ^ACDKILL  
VA Fileman 2 ^DIK  ^DIR  
IHS VA Utilities 1 $$VALI^XBDIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Alcohol Chemical Dependency 1 ACDCINV  

Entry Points

Name Comments DBIA/ICR reference
GETDATA ; GET INTERVENTION DATA/GENERATE RECORDS
GETSEX ; GET PATIENT SEX
GETTRIBE ; GET PATIENT TRIBE OF MEMBERSHIP
EOJ ;
GETNAME ; GET PATIENT NAME
GETPAT ; GET PATIENT DATA
GETVET ; GET PATIENT VETERAN STATUS
START ;
INIT ;
GETAGE ; GET PATIENT AGE
GETPATS ; GET PATIENTS
GETVDATE ; GET VISIT DATE
GETSTATE ; GET PATIENT STATE OF RESIDENCE
MAIN ;

External References

Name Field # of Occurrence
DIE^ACDFMC GETPATS+10
FILE^ACDFMC GETPATS+5
^ACDKILL EOJ+1
^DIK GETPATS+11
^DIR GETVDATE+2, GETNAME+2, GETSEX+2, GETAGE+2, GETSTATE+2, GETTRIBE+2, GETVET+2
$$VALI^XBDIQ1 GETSTATE+6, GETTRIBE+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATA+4
Function Call: WRITE
  • Prompt: !,"Creation of INTERVENTION entry failed. Notify programmer.",!!
  • Line Location: GETPATS+6
Function Call: WRITE
  • Prompt: !!,"---------- INTERVENTION INFO SECTION ----------"
  • Line Location: GETPATS+7
Function Call: WRITE
  • Prompt: !,"** INCOMPLETE OR INCORRECT INTERVENTION ENTRY DELETED **"
  • Line Location: GETPATS+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETPAT+1
Function Call: WRITE
  • Prompt: !!,"---------- PATIENT DEMOGRAPHIC SECTION ----------"
  • Line Location: GETPAT+4
Routine Call
  • DIR
  • Line Location:
    • GETVDATE+2
    • GETNAME+2
    • GETSEX+2
    • GETAGE+2
    • GETSTATE+2
    • GETTRIBE+2
    • GETVET+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACDINTV - [#9002173.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] INIT+7
^%ZIS(2 - [#3.2] INIT+7
^%ZOSF("$ZE" GETPATS+6
^%ZOSF("ERRTN" GETPATS+6
^ACDF5PI - [#9002173] INIT+4
^TMP("ACD" INIT+10!
^TMP($J INIT+10!

Label References

Name Line Occurrences
@( GETPATS+6
EOJ START+2
GETAGE GETPAT+7
GETDATA MAIN+3
GETNAME GETPAT+2
GETPAT GETPATS+1
GETPATS GETDATA+3
GETSEX GETPAT+5
GETSTATE GETPAT+9
GETTRIBE GETPAT+11
GETVDATE GETDATA+1
GETVET GETPAT+13
INIT MAIN+1
MAIN START+1

Naked Globals

Name Field # of Occurrence
^("$ZE" GETPATS+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACDAGE GETPATS+4, GETAGE+5*
>> ACDDFN GETPATS+4, GETNAME+5*
>> ACDDOV GETVDATE+4*
>> ACDDUZZ INIT+9*
>> ACDIVIEN GETPATS+8*, GETPATS+9, GETPATS+11
>> ACDPGM INIT+5*, GETPATS+4
>> ACDQ MAIN+2, MAIN+3, INIT+1*, INIT+11*, GETDATA+2, GETDATA+3, GETDATA+5*, GETVDATE+1*, GETVDATE+5*, GETPATS+2
, GETPATS+6*, GETPAT+3, GETPAT+6, GETPAT+8, GETPAT+10, GETPAT+12, GETPAT+14, GETNAME+1*, GETNAME+6*, GETSEX+1*
, GETSEX+6*, GETAGE+1*, GETAGE+6*, GETSTATE+1*, GETSTATE+7*, GETTRIBE+1*, GETTRIBE+7*, GETVET+1*, GETVET+6*
>> ACDRVOF INIT+7*, INIT+8*
>> ACDRVON INIT+7*, INIT+8*
>> ACDSEX GETPATS+4, GETSEX+5*
>> ACDSTA GETPATS+4, GETSTATE+5*, GETSTATE+6
>> ACDSTACD GETPATS+4, GETSTATE+6*
>> ACDTRB GETPATS+4, GETTRIBE+5*, GETTRIBE+6
>> ACDTRBCD GETPATS+4, GETTRIBE+6*
>> ACDVDTE GETVDATE+4*
>> ACDVDTI GETVDATE+4*, GETPATS+3
>> ACDVET GETPATS+4, GETVET+5*
DA GETVDATE+2!, GETPATS+9*, GETPATS+11*, GETNAME+2!, GETSEX+2!, GETAGE+2!, GETSTATE+2!, GETTRIBE+2!, GETVET+2!
>> DIC GETPATS+3*
>> DIC("DR" GETPATS+4*
>> DIC(0 GETPATS+3*
>> DIE GETPATS+9*
>> DIE("NO^" GETPATS+9*
>> DIK GETPATS+11*
DIR GETVDATE+2!, GETNAME+2!, GETSEX+2!, GETAGE+2!, GETSTATE+2!, GETTRIBE+2!, GETVET+2!
DIR("A" GETVDATE+2*, GETNAME+2*, GETSEX+2*, GETAGE+2*, GETSTATE+2*, GETTRIBE+2*, GETVET+2*
DIR("B" GETVET+2*
DIR(0 GETVDATE+2*, GETNAME+2*, GETSEX+2*, GETAGE+2*, GETSTATE+2*, GETTRIBE+2*, GETVET+2*
>> DIRUT GETVDATE+3, GETNAME+3, GETSEX+3, GETAGE+3, GETSTATE+3, GETTRIBE+3, GETVET+3
>> DLAYGO GETPATS+3*
>> DR GETPATS+9*
>> DTOUT GETPATS+11
DUZ(2 INIT+3, INIT+4, INIT+5, INIT+9
IO INIT+6, INIT+7
IOF INIT+2
U INIT+7
>> X INIT+7*, GETPATS+3*, GETPATS+6*
>> Y INIT+7*, GETVDATE+4, GETPATS+6, GETPATS+8, GETPATS+11, GETNAME+4, GETNAME+5, GETSEX+4, GETSEX+5, GETAGE+4
, GETAGE+5, GETSTATE+4, GETSTATE+5, GETTRIBE+4, GETTRIBE+5, GETVET+4, GETVET+5
>> Y(0 GETVDATE+4
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 |  All