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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACDWCD4

Package: Alcohol Chemical Dependency

Routine: ACDWCD4


Information

ACDWCD4 ;IHS/ADC/EDE/KML - CLIENT DET OP FOR INTERVENTIONS 10:11;

Source Information

Source file <ACDWCD4.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Alcohol Chemical Dependency 3 ^ACDWCINV  ^ACDWK  F^ACDWUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Alcohol Chemical Dependency 1 ACDWDRV3  

Entry Points

Name Comments DBIA/ICR reference
P1 ;Output
XXX ;
F ;Form feed

External References

Name Field # of Occurrence
^ACDWCINV ACDWCD4+8
^ACDWK ACDWCD4+10
F^ACDWUTL F+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"CLIENT NAME:",?40,ACDDFN
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: !," VETERAN STATUS:",?40,ACDVET
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !!,"VISIT DATE:",?40,ACDCLIV
  • Line Location: P1+8
Function Call: WRITE
  • Prompt: !,"COMPONENT:",?40,ACDCOMCL," / ",ACDCOMTL
  • Line Location: P1+9
Function Call: WRITE
  • Prompt: !,"INTERVENTION MEMBERS:"
  • Line Location: P1+10
Function Call: WRITE
  • Prompt: ?40,ACDLP,!
  • Line Location: P1+10
Function Call: WRITE
  • Prompt: !!,"PRIMARY PROBLEM:",?40,ACDPROBP
  • Line Location: P1+11
Function Call: WRITE
  • Prompt: !,"OTHER PROBLEMS:"
  • Line Location: P1+12
Function Call: WRITE
  • Prompt: ?40,ACDLP,!
  • Line Location: P1+12
Function Call: WRITE
  • Prompt: !!,"SUICIDE HISTORY:",?40,ACDINVSH
  • Line Location: P1+13
Function Call: WRITE
  • Prompt: !!,"RECOMMENDED PLACEMENT:",?40,ACDPLAR_" / "_ACDPLAR1
  • Line Location: XXX+1
Function Call: WRITE
  • Prompt: !,"ACTUAL PLACEMENT:",?40,ACDPLAA_" / "_ACDPLAA1
  • Line Location: XXX+2
Function Call: WRITE
  • Prompt: !,"DIFFERENCE REASON:",?40,ACDDIF
  • Line Location: XXX+3
Function Call: WRITE
  • Prompt: !,"PLACEMENT PROGRAM: ",?40,ACDINVPP
  • Line Location: XXX+4
Function Call: WRITE
  • Prompt: !,"COST ($$$): ",?40,ACDINVCT
  • Line Location: XXX+5
Function Call: WRITE
  • Prompt: !,"TOTAL DAYS OF TREATMENT:",?40,ACDINVTD
  • Line Location: XXX+6
Function Call: WRITE
  • Prompt: !,"TREATMENT COMPLETE:",?40,ACDINVTC
  • Line Location: XXX+7
Function Call: WRITE
  • Prompt: !!,"..........................................",!
  • Line Location: XXX+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTTRI - [#9999999.03] P1+4
^AUTTTRI("C" P1+4
^DIC(5 - [#5] P1+5
^TMP("ACD" ACDWCD4+7, ACDWCD4+8

Label References

Name Line Occurrences
F P1+1, P1+2, P1+3, P1+6, P1+7, P1+8, P1+9, P1+10, P1+11, P1+12
, P1+13, XXX+1, XXX+2, XXX+3, XXX+4, XXX+5, XXX+6, XXX+7
P1 ACDWCD4+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACDAGE P1+3
>> ACDBT ACDWCD4+7, ACDWCD4+8
>> ACDCLIV P1+8
>> ACDCOMCL P1+9
>> ACDCOMTL P1+9
>> ACDDA ACDWCD4+8*
>> ACDDFN P1+1
>> ACDDIF XXX+3
>> ACDINVCT XXX+5
>> ACDINVPP XXX+4
>> ACDINVSH P1+13
>> ACDINVTC XXX+7
>> ACDINVTD XXX+6
>> ACDJOB ACDWCD4+7, ACDWCD4+8
>> ACDLP P1+10*, P1+12*
>> ACDP1 ACDWCD4+6*, ACDWCD4+7*, ACDWCD4+8
>> ACDP2 ACDWCD4+8*
>> ACDPLAA XXX+2
>> ACDPLAA1 XXX+2
>> ACDPLAR XXX+1
>> ACDPLAR1 XXX+1
>> ACDPROBP P1+11
>> ACDPROVA( P1+10
>> ACDPTA( P1+12
>> ACDSEX P1+3
>> ACDSTATE P1+5, P1+6
>> ACDSTATN P1+5*, P1+6
>> ACDTGSUB ACDWCD4+7, ACDWCD4+8
>> ACDTRIB P1+4, P1+7
>> ACDTRIBN P1+4*, P1+7
>> ACDVET P1+2
>> DIRUT ACDWCD4+7, ACDWCD4+8, F+1
IOSL F+2
U P1+4, P1+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All