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

Package: Social Work

Routine: SOWKCLSW


Information

SOWKCLSW ;B'HAM ISC/SAB-Routine to print caseload summary for all workers ; 08 Apr 93 / 4:01 PM [ 09/26/94 1:00 PM ]

Source Information

Source file <SOWKCLSW.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

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

Caller Graph

Caller Graph Total: 4

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

Entry Points

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

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+3

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),?89,$P(D,"^",5),?107,$P(D,"^",6)
  • Line Location: PRI+1
Function Call: WRITE
  • Prompt: !,"SOCIAL WORKER CLINICAL SUMMARY - ALL WORKERS"_$S(COM=2:" (CLOSED CASES)",COM=3:" (OPENED CASES)",1:" (ALL CASES)"),?89,TD,?121,"PAGE: "_PG,!,STA_" ("_STN_")",?45,"REPORTING PERIOD "_SOWKBG_" TO "_SOWKED
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"NAME",?32,"ID#",?43,"CDC LOCATION",?62,"PROBLEMS",?87,"OUTCOMES",?107,"DIRECT SERVICES",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?8,"SOCIAL WORKER: "_WRK,!?11,"SUPERVISOR: "_^(WRK)
  • Line Location: SET1+1
Function Call: READ
  • Formatting: !
  • Prompt: "Press <RETURN> to continue: "
  • Variable: SWXX
  • Timeout: DTIME
  • 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" SOWKCLSW+2, EN0+1, EN1+1, EN2+1
^DD("SITE" EN0+1, EN1+1, EN2+1
^DPT - [#2] SETUP+4
^SOWK(650 - [#650] SOWKCLSW+2, EN0, SETUP, SETUP+1, EN1, EN2
^SOWK(651 - [#651] SETUP+4
^TMP($J BEG!, CLOS!, SETUP+2*, SETUP+4*, SET1+1, SET1+2
^VA(200 - [#200] SETUP+2, SETUP+4

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
^( SET1+1
^(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" SOWKCLSW+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+2, SETUP+3, SETUP+4, EN1*, EN2*
COM BEG, EN+1, CLOS!, HDR+1
D CLOS!, PRI+1, SET1+2*
>> DFN SETUP+3*
DS CLOS!, SETUP+1*, SETUP+4
DT SOWKCLSW+2
DTIME CHK+2
G DEV+2*, CLOS!, SET1+1*
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+2*
OC CLOS!, SETUP*, SETUP+4
OUT CLOS!, PRI, HDR, SET1+1, SET1+2, CHK+2*
PAT CLOS!, PRI+1, SET1*, SET1+1*, SET1+2
PG BEG*, EN0*, CLOS!, HDR, HDR+1*, EN1*, EN2*
>> POP DEV+1
PR CLOS!, SETUP*, SETUP+4
SOWKBEG BEG*, EN0*, CLOS!, EN1*, EN2*
SOWKBG BEG*, EN0+1*, CLOS!, HDR+1, EN1+1*, EN2+1*
SOWKED BEG+1*, EN0, EN0+1*, CLOS!, HDR+1, EN1, EN1+1*, EN2, EN2+1*
SOWKI EN0*, CLOS!, EN1*, EN2*
SOWKI1 EN0*, CLOS!, SETUP, SETUP+1, EN1*, EN2*
SOWKION DEV+1*!, DEV+2!
STA EN0+1*, CLOS!, HDR+1, EN1+1*, EN2+1*
STN EN0+1*, CLOS!, HDR+1, EN1+1*, EN2+1*
SWXX CHK+1~, CHK+2*
T CLOS!, SET1+2*
TD EN*, CLOS!, HDR+1
U SETUP+3
>> VA("BID" SETUP+4
WRK CLOS!, SET1*, SET1+1*, SET1+2
X BEG, BEG+1, CLOS!
Y SOWKCLSW+2*, BEG, BEG+1, EN, EN0+1*, CLOS!, EN1+1*, EN2+1*
>> 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