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 |  Local Variables |  All
Print Page as PDF
Routine: ACDWSTAF

Package: Alcohol Chemical Dependency

Routine: ACDWSTAF


Information

ACDWSTAF ;IHS/ADC/EDE/KML - STAFF REPORTS 10:19;

Source Information

Source file <ACDWSTAF.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Alcohol Chemical Dependency 9 EN^ACDV4MES  ^ACDWCS  ^ACDWK  ^ACDWQ  D^ACDWRQ  ^ACDWSTA1  H^ACDWSTA2  (F,HV)^ACDWUTL  
^ACDWVIS  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Alcohol Chemical Dependency 1 ACDWSTA1  

Entry Points

Name Comments DBIA/ICR reference
CK ;
EN ;
V1 ;
H ;EP Header
K ; for gotos in this routine
F ;Form Feed
L ;EP - FOR TASKMAN (XBDBQUE)
P ;EP - PRINT REPORT
; Order on visit i.e. ^ACDVIS
V2 ;
EOJ ;EP - EOJ FOR XBDBQUE

External References

Name Field # of Occurrence
EN^ACDV4MES P+13
^ACDWCS V1+39, CK+11
^ACDWK K+1
^ACDWQ EN+31
D^ACDWRQ EN+27
^ACDWSTA1 P+8
H^ACDWSTA2 H+1
F^ACDWUTL P+28, F+2
HV^ACDWUTL EN+28
^ACDWVIS P+5
^DIC EN+19
^DIR EN+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"S U M M A R Y O N L Y",!!
  • Line Location: P+11
Function Call: WRITE
  • Prompt: !,"NOTE: THIS REPORT DOES 'NOT INCLUDE' ANY INTERVENTION DATA.",!!
  • Line Location: P+12
Function Call: WRITE
  • Prompt: !!,"SEARCH CRITERIA IS THAT: THE PROVIDER NAME WAS ENTERED",!,"DURING DATA ENTRY INTO THE FIELD TITLED 'PROVIDER TO CREDIT WORKLOAD' FOR "
  • Line Location: P+14
Function Call: WRITE
  • Prompt: !,"CONTACT TYPES OF CLIENT SERVICE AND PREVENTIONS."
  • Line Location: P+15
Function Call: WRITE
  • Prompt: !!,"SEARCH CRITERIA IS THAT: FOR ALL OTHER CONTACT TYPES",!,"WHERE THERE IS NO FIELD CALLED 'PROVIDER TO CREDIT WORKLOAD', THE 'PROVIDER'",!,"FIELD IS USED TO FIND A MATCH.",!!
  • Line Location: P+16
Function Call: WRITE
  • Prompt: !,"H O U R S W O R K - L O A D D A T A"
  • Line Location: P+17
Function Call: WRITE
  • Prompt: !,"TOT HOURS FOR CLIENT SERVICE CONTACTS: ",?70,ACDTH
  • Line Location: P+18
Function Call: WRITE
  • Prompt: !,"TOT HOURS FOR PREVENTION CONTACTS: ",?70,ACDTHP
  • Line Location: P+19
Function Call: WRITE
  • Prompt: !,"TOT HOURS FOR CRISIS/BRIEF CONTACTS: ",?70,ACDTHOT
  • Line Location: P+20
Function Call: WRITE
  • Prompt: !!,"V I S I T W O R K - L O A D D A T A"
  • Line Location: P+21
Function Call: WRITE
  • Prompt: !,"TOT CLIENT VISITS: ",?70,ACDVNUM
  • Line Location: P+22
Function Call: WRITE
  • Prompt: !,"(INCLUDES PREVENTION VISITS)",!
  • Line Location: P+23
Function Call: WRITE
  • Prompt: !,"TOT CLIENT SERVICES:",?70,ACDCNUMT
  • Line Location: P+24
Function Call: WRITE
  • Prompt: !,"(REMEMBER: MANY CLIENTS SERVICES MAY BELONG TO THE SAME VISIT)",!!
  • Line Location: P+25
Function Call: WRITE
  • Prompt: ACDCLIU
  • Line Location: P+27
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: P+29
Function Call: WRITE
  • Prompt: !,ACDVNUM,")",?5,ACDCLIV,?18,$E(ACDPG,1,12),?31,ACDCONTL
  • Line Location: V1+18
Function Call: WRITE
  • Prompt: "/",ACDOTHRS
  • Condition for execution: ACDCONTL="CRISIS/BRIEF INT"
  • Line Location: V1+18
Function Call: WRITE
  • Prompt: ?60,$E(ACDDFN,1,19)
  • Line Location: V1+18
Function Call: WRITE
  • Prompt: !!,ACDVNUM,")",?5,ACDCLIV,?18,$E(ACDPG,1,12),?31,ACDCONTL,?60,$E(ACDDFN,1,19),!!?14,"Primary Provider: ",?40,$S($D(^VA(200,ACDPROVP,0)):$P(^VA(200,ACDPROVP,0),U),1:"UNKNOWN")
  • Line Location: V1+30
Function Call: WRITE
  • Prompt: !?14,"TOT HOURS FOR VISIT: ",?40,ACDVH,!
  • Line Location: V1+42
Function Call: WRITE
  • Prompt: !?8,ACDCNUM,")",?14,"Provider(s) credited: ",?40,$S($D(^VA(200,ACDGVER,0)):$P(^VA(200,ACDGVER,0),U),1:"UNKNOWN")
  • Line Location: V2+2
Function Call: WRITE
  • Prompt: !?14,"DAY",?40,ACDDAY
  • Line Location: V2+3
Function Call: WRITE
  • Prompt: !?14,"SERVICE",?40,ACDSVAC
  • Line Location: V2+4
Function Call: WRITE
  • Prompt: !?14,"LOCATION",?40,ACDLOTY
  • Line Location: V2+5
Function Call: WRITE
  • Prompt: !?14,"HOUR",?40,ACDHOUR
  • Line Location: V2+6
Routine Call
  • DIC
  • Line Location:
    • EN+19
Routine Call
  • DIR
  • Line Location:
    • EN+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACDCS - [#9002172] V1+37, V1+38, V1+39, CK+11, CK+12, CK+13
^ACDCS("C" V1+37, CK+11
^ACDIIF - [#9002170] V1+4
^ACDIIF("C" V1+3
^ACDVIS("B" P+5
^VA(200 - [#200] V1+30, V2+2

Label References

Name Line Occurrences
CK V1+28
F P+18, P+19, P+20, P+22, P+24, P+26, V1+18, V1+30, V1+42, V2+2
, V2+3, V2+4, V2+5, V2+6
H P+3, F+2
K EN+23, EN+27
V1 P+5
V2 V1+39

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACD P+5*, P+26*
>> ACD1 V1+37*, V1+38, V1+39, CK+11*, CK+12, CK+13
>> ACD6DIG P+5
>> ACDAUF P+5
ACDCLIU EN+8!, P+26*, P+27
ACDCLIU( P+26, V1+14*
>> ACDCLIV V1+18, V1+30
>> ACDCNUM V1+26*, V2+1*, V2+2
>> ACDCNUMT EN+8*, P+24, V2+1*
>> ACDCONTL V1+3, V1+10, V1+18, V1+30
>> ACDDA P+5*, V1+39*, CK+11*
>> ACDDAY V2+3
>> ACDDFN V1+18, V1+30
>> ACDDFNP V1+14
>> ACDFR P+4*, P+5
ACDGVER EN+17!, EN+19*, EN+20, V1+3, V1+10, V1+18, V1+39, V2+2, CK+6, CK+13
>> ACDHOUR V2+6, V2+7
>> ACDLOTY V2+5
>> ACDOK V1+26*, V1+29, CK+5*, CK+6*, CK+13*
>> ACDOTHRS V1+3*, V1+4*, V1+18
>> ACDPG V1+18, V1+30
>> ACDPROVP V1+3, V1+10, V1+18, V1+30, CK+6
>> ACDQUIT EN+20*, EN+27
ACDSUMRP EN+24!*, P+11, V1+18, V1+30, V1+42, V2+2, V2+3, V2+4, V2+5, V2+6
>> ACDSVAC V2+4
>> ACDTH EN+8*, P+18, V2+7*
>> ACDTHOT EN+8*, P+20, V1+4*
>> ACDTHP EN+8*, P+19
>> ACDTO P+5
>> ACDV P+5*, V1+3, V1+37, CK+11
>> ACDVH V1+26*, V1+42, V2+7*
>> ACDVNUM EN+11*, P+22, V1+14*, V1+18, V1+30
>> ACDWSTAF(1 EN+14*
DIC EN+19!*
DIC("S" EN+19*
DIC(0 EN+19*
>> DIR(0 EN+23*
DIRUT EN+1!, P+2!, P+5, P+9, V1+18, V1+19, V1+30, V1+31, V1+39, V1+41
, V1+42, F+1, F+2
>> DTOUT EN+23
IO P+3
IOF P+29
IOSL F+2
PRVCR V1+38*, V1+39, V1+40!, CK+12*, CK+13, CK+14!
U V1+4, V1+30, V1+38, V2+2, CK+12
>> X EN+23
>> Y EN+19, EN+24
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 |  Local Variables |  All