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

Package: Alcohol Chemical Dependency

Routine: ACDWCD1


Information

ACDWCD1 ;IHS/ADC/EDE/KML - CLIENT DET OP FOR IN/RE/IR/FU/OT;

Source Information

Source file <ACDWCD1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Alcohol Chemical Dependency 5 PAUSE^ACDDEU  ^ACDWIIF  ^ACDWK  F^ACDWUTL  ^ACDWVIS  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Alcohol Chemical Dependency 2 ACDPFACE  ACDPSOT  

Entry Points

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

External References

Name Field # of Occurrence
PAUSE^ACDDEU F+3
^ACDWIIF ACDWCD1+7
^ACDWK ACDWCD1+9
F^ACDWUTL F+2
^ACDWVIS ACDWCD1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !,"CLIENT NAME:",?40,ACDDFN
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: !," VETERAN STATUS:",?40,ACDVET
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: !!,"VISIT DATE:",?40,ACDCLIV
  • Line Location: P1+10
Function Call: WRITE
  • Prompt: !,"COMPONENT:",?40,ACDCOMCL," / ",ACDCOMTL
  • Line Location: P1+11
Function Call: WRITE
  • Prompt: !,"TYPE CONTACT:",?40,ACDCONTL
  • Line Location: P1+12
Function Call: WRITE
  • Prompt: !!,"PROVIDER:",?40,ACDPROV
  • Line Location: P1+13
Function Call: WRITE
  • Prompt: !,"PRIMARY PROBLEM:",?40,ACDPROBP
  • Line Location: P1+14
Function Call: WRITE
  • Prompt: !,"OTHER PROBLEMS:"
  • Line Location: P1+15
Function Call: WRITE
  • Prompt: ?40,ACDLP,!
  • Line Location: P1+15
Function Call: WRITE
  • Prompt: !,"TOBACCO USE:",?40,ACDTOB
  • Line Location: P1+16
Function Call: WRITE
  • Prompt: !,"DAYS USED ALCOHOL:",?40,ACDDUA,$S(ACDDUA=999:"=UNKNOWN",1:"")
  • Line Location: P1+17
Function Call: WRITE
  • Prompt: !,"DAYS USED DRUGS:",?40,ACDDUD,$S(ACDDUD=999:"=UNKNOWN",1:"")
  • Line Location: P1+18
Function Call: WRITE
  • Prompt: !,"DRUG TYPE:"
  • Line Location: P1+19
Function Call: WRITE
  • Prompt: ?40,ACDLP,!
  • Line Location: P1+19
Function Call: WRITE
  • Prompt: !,"DAYS HOSPITALIZED:",?40,ACDDH,$S(ACDDH=999:"=UNKNOWN",1:"")
  • Line Location: P1+20
Function Call: WRITE
  • Prompt: !,"DRUG/ALCOHOL RELATED ARREST:",?40,ACDAAR
  • Line Location: P1+21
Function Call: WRITE
  • Prompt: !!,"CLIENT STAGE ALC/SUB:",?40,ACDSUS
  • Line Location: P1+22
Function Call: WRITE
  • Prompt: !,"CLIENT STAGE PHYSICAL:",?40,ACDPS
  • Line Location: P1+23
Function Call: WRITE
  • Prompt: !,"CLIENT STAGE EMOTIONAL:",?40,ACDES
  • Line Location: P1+24
Function Call: WRITE
  • Prompt: !,"CLIENT STAGE SOCIAL:",?40,ACDSS
  • Line Location: P1+25
Function Call: WRITE
  • Prompt: !,"CLIENT STAGE CULTURAL:",?40,ACDCS
  • Line Location: P1+26
Function Call: WRITE
  • Prompt: !,"CLIENT STAGE BEHAVIORAL:",?40,ACDBS
  • Line Location: P1+27
Function Call: WRITE
  • Prompt: !,"CLIENT STAGE VOC/ED:",?40,ACDBV
  • Line Location: P1+28
Function Call: WRITE
  • Prompt: !,"STAGING AVERAGE:",?40,ACDSAVG
  • Line Location: P1+29
Function Call: WRITE
  • Prompt: !,"CLIENT STATUS:",?40,$S(ACDSTAT="UNKNOWN":"",1:ACDSTAT)
  • Line Location: P1+30
Function Call: WRITE
  • Prompt: !!,"RECOMMENDED PLACEMENT:",?40,ACDPLAR_" / "_ACDPLARL
  • Line Location: P1+31
Function Call: WRITE
  • Prompt: !,"ACTUAL PLACEMENT:",?40,ACDPLAA_" / "_ACDPLAAL
  • Line Location: P1+32
Function Call: WRITE
  • Prompt: !,"DIFFERENCE REASON:",?40,ACDDIF
  • Line Location: P1+33
Function Call: WRITE
  • Prompt: !!,"HOURS:",?40,ACDHRS
  • Line Location: P1+34
Function Call: WRITE
  • Prompt: !!,"..........................................",!
  • Line Location: P1+35
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: F+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDIIF - [#9002170] ACDWCD1+7
^AUTTTRI - [#9999999.03] P1+6
^AUTTTRI("C" P1+6
^DIC(5 - [#5] P1+7
^TMP("ACD" ACDWCD1+6, ACDWCD1+7

Label References

Name Line Occurrences
F P1+3, P1+4, P1+5, P1+8, P1+9, P1+10, P1+11, P1+12, P1+13, P1+14
, P1+15, P1+16, P1+17, P1+18, P1+19, P1+20, P1+21, P1+22, P1+23, P1+24
, P1+25, P1+26, P1+27, P1+28, P1+29, P1+30, P1+31, P1+32, P1+33, P1+34
P1 ACDWCD1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACDAAR P1+21
>> ACDAGE P1+5
>> ACDBS P1+27
>> ACDBT ACDWCD1+6, ACDWCD1+7
>> ACDBV P1+28
>> ACDCLIV P1+10
>> ACDCOMCL P1+11
>> ACDCOMTL P1+11
>> ACDCONTL P1+12
>> ACDCS P1+26
>> ACDDA ACDWCD1+7*
>> ACDDFN P1+3
>> ACDDH P1+20
>> ACDDIF P1+33
>> ACDDTA( P1+19
>> ACDDUA P1+17
>> ACDDUD P1+18
>> ACDES P1+24
>> ACDHRS P1+34
>> ACDJOB ACDWCD1+6, ACDWCD1+7
>> ACDLP P1+15*, P1+19*
>> ACDP1 ACDWCD1+6*, ACDWCD1+7
>> ACDP2 ACDWCD1+7*
>> ACDPFACE P1+2, F+2
>> ACDPLAA P1+32
>> ACDPLAAL P1+32
>> ACDPLAR P1+31
>> ACDPLARL P1+31
>> ACDPROBP P1+14
>> ACDPROV P1+13
>> ACDPS P1+23
>> ACDPTA( P1+15
>> ACDQ F+3*
ACDQUIT ACDWCD1+5!, ACDWCD1+6, ACDWCD1+7, F+3*
>> ACDSAVG P1+29
>> ACDSEX P1+5
>> ACDSLAVE F+3
>> ACDSS P1+25
>> ACDSTAT P1+30
>> ACDSTATE P1+7, P1+8
>> ACDSTATN P1+7*, P1+8
>> ACDSUS P1+22
>> ACDTGSUB ACDWCD1+6, ACDWCD1+7
>> ACDTOB P1+16
>> ACDTRIB P1+6, P1+9
>> ACDTRIBN P1+6*, P1+9
>> ACDVET P1+4
>> DIRUT F+3
IOF P1+2, F+4
IOSL F+1
IOST P1+2, F+3
U P1+6, P1+7
>> ZTQUEUED F+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All