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

Package: Social Work

Routine: SOWKCLSS


Information

SOWKCLSS ;B'HAM ISC/SAB,DLR-Routine to print clinical summary for all supervisors ; 08 Apr 93 / 3:57 PM [ 09/22/94 1:18 PM ]

Source Information

Source file <SOWKCLSS.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
Registration 2 KVA^VADPT  PID^VADPT6  
VA FileMan 2 ^%DT  YX^%DTC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Social Work 3 SOWKCLSS ALL  SOWKCLSS CLOSED  SOWKCLSS OPEN  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN
HDR
SETUP
CHK ;
PRI
BEG
DEV
EN0
EN1
EN2
SET1
CLOS

External References

Name Field # of Occurrence
^%DT BEG, BEG+1
YX^%DTC EN
^%ZIS DEV+1
^%ZISC CLOS
^%ZTLOAD DEV+3
KILL^%ZTLOAD CLOS
KVA^VADPT CLOS
PID^VADPT6 SETUP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!,"WARNING !!!",!?5,"This report is formatted for 132 columns and will be",!?5,"difficult to read if printed to the screen.",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,PAT,?32,$P(D,"^",2),?43,$P(D,"^",3),?62,$P(D,"^",4),?87,$P(D,"^",5),?107,$P(D,"^",6)
  • Line Location: PRI+1
Function Call: WRITE
  • Prompt: !,"SUPERVISORY CLINICAL SUMMARY - ALL SUPERVISORS"_$S(COM=2:" (CLOSED CASES) ",COM=3:" (OPENED CASES) ",1:" (ALL CASES) "),?89,TD,?121,"PAGE: "_PG
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$P(^DD("SITE"),"^")_" ("_$P(^DD("SITE",1),"^")_")",?45,"REPORTING PERIOD "_SOWKBG_" TO "_SOWKED
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"NAME",?32,"ID#",?43,"CDC LOCATION",?62,"PROBLEMS",?87,"OUTCOMES",?107,"DIRECT SERVICES",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?8,"SUPERVISOR: "_SUP
  • Line Location: SET1+1
Function Call: WRITE
  • Prompt: !!?11,"SOCIAL WORKER: "_WRK
  • Line Location: SET1+1
Function Call: READ
  • Prompt: "Press <RETURN> to continue: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: SWXX
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHK+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SOWKCLSS+2, HDR
^DD("SITE" HDR+2
^DPT - [#2] SETUP+3
^SOWK(650 - [#650] SOWKCLSS+2, EN0, SETUP, SETUP+1, EN1, EN2
^SOWK(651 - [#651] SETUP+3
^TMP($J BEG!, CLOS!, SETUP+3*, SET1+1, SET1+2
^VA(200 - [#200] SETUP, SETUP+3

Label References

Name Line Occurrences
@( EN+1
BEG BEG
CHK HDR
CLOS BEG, BEG+1, DEV+1, DEV+3, EN1+1, EN2+1
HDR PRI, SET1+1
PRI SET1+2
SET1 EN0+1, EN1+1, EN2+1
SETUP EN0, EN1, EN2

Naked Globals

Name Field # of Occurrence
^(0 SETUP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BEG*, CLOS!
%DT("A" BEG*, BEG+1*
%DT("B" SOWKCLSS+2*, BEG+1!
%DT(0 BEG+1*
%H EN*, CLOS!
%ZIS DEV+1!*
%ZIS("B" DEV+1*
C CLOS!, SETUP*, SETUP+1*
CN EN0*, CLOS!, SETUP, SETUP+2, SETUP+3, EN1*, EN2*
COM BEG, EN+1, CLOS!, HDR+1
D CLOS!, PRI+1, SET1+2*
>> DFN SETUP+2*
DS CLOS!, SETUP+1*, SETUP+3
DT SOWKCLSS+2
DTIME CHK+2
G DEV+2*, CLOS!, SET1+1*
H CLOS!, SET1+2*
I CLOS!, SETUP*, SETUP+1*, SET1+1*
IO PRI, HDR+1, SET1+1
IO("Q" DEV+2, DEV+3!
IOF CLOS, SET1, CHK+3
ION DEV+1
IOP DEV+1!*
IOSL PRI
IOST CLOS, CHK+2
M CLOS!, HDR+3*
OC CLOS!, SETUP*, SETUP+3
OUT CLOS!, PRI, HDR, SET1+1, SET1+2, CHK+2*
PAT CLOS!, PRI+1, SET1*, SET1+2*
PG BEG*, EN0*, CLOS!, HDR*, HDR+1, EN1*, EN2*
>> POP DEV+1
PR CLOS!, SETUP*, SETUP+3
SOWKBEG BEG*, EN0*, CLOS!, EN1*, EN2*
SOWKBG BEG*, CLOS!, HDR*, HDR+2
SOWKED BEG+1*, EN0, CLOS!, HDR*, HDR+2, EN1, EN2
SOWKI EN0*, CLOS!, EN1*, EN2*
SOWKI1 EN0*, CLOS!, SETUP, SETUP+1, EN1*, EN2*
SOWKION DEV+1*!, DEV+2!
SP CLOS!, SETUP*, SETUP+3
SUP CLOS!, SET1*, SET1+1*, SET1+2
SWXX CHK+1~, CHK+2*
T CLOS!, SET1+2*
TD EN*, CLOS!, HDR+1
U SETUP+2
>> VA("BID" SETUP+3
WRK CLOS!, SET1*, SET1+1*, SET1+2
X BEG, BEG+1, CLOS!
Y SOWKCLSS+2*, BEG, BEG+1, EN, CLOS!, HDR*
>> ZTDESC DEV+2*
>> ZTRTN DEV+2*
>> ZTSAVE( DEV+2*
ZTSK DEV+1!, DEV+3!, CLOS
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All