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

Package: Social Work

Routine: SOWKCLIW


Information

SOWKCLIW ;B'HAM ISC/SAB-Routine to print clinical report for a single worker ; 25 Feb 93 / 9:16 AM [ 09/22/94 1:39 PM ]

Source Information

Source file <SOWKCLIW.m>

Call Graph

Call Graph

Call Graph Total: 8

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

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 SOWKCLIW ALL  SOWKCLIW CLOSED  SOWKCLIW OPEN  
Kernel 1 ^DIC(19  

Entry Points

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

External References

Name Field # of Occurrence
^%DT BEG, BEG+1
YX^%DTC EN
^%ZIS DEV+1
^%ZISC CLOS
^%ZTLOAD DEV+3
KILL^%ZTLOAD CLOS
^DIC ASK
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),?89,$P(D,"^",5),?107,$P(D,"^",6)
  • Line Location: PRI+1
Function Call: WRITE
  • Prompt: !,"CLINICAL REPORT - INDIVIDUAL WORKER"_$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+0
Function Call: WRITE
  • Prompt: !,"NAME",?32,"ID#",?43,"CDC LOCATION",?62,"PROBLEMS",?87,"OUTCOMES",?107,"DIRECT SERVICES",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?8,"SOCIAL WORKER: "_WRK,!?11,"SUPERVISOR: "_^(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
  • DIC
  • Line Location:
    • ASK
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

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)
^DD("DD" SOWKCLIW+2, EN0+1, EN1+1, EN2+1
^DD("SITE" EN0+1, EN1+1, EN2+1
^DPT - [#2] SETUP+4
^SOWK(650 - [#650] SOWKCLIW+2, EN0, SETUP, SETUP+1, EN1, EN2
^SOWK(651 - [#651] SETUP+4
^TMP($J BEG!, CLOS!, SETUP+3*, SETUP+4*, SET1+1, SET1+2
^VA(200 - [#200] SETUP+3, SETUP+4

Label References

Name Line Occurrences
@( EN+1
ASK ASK
BEG BEG
CHK HDR
CLOS BEG, BEG+1, ASK, 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, EN2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BEG*, CLOS!
%DT("A" BEG*, BEG+1*
%DT("B" SOWKCLIW+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
D CLOS!, PRI+1, SET1+2*
>> DFN SETUP+2*
DIC ASK*, CLOS!
DIC("A" ASK*
DIC("S" ASK*
DIC(0 ASK*
DS CLOS!, SETUP+1*, SETUP+4
DT SOWKCLIW+2
DTIME CHK+2
G DEV+2*, CLOS!, SET1+1*
I CLOS!, SETUP*, SETUP+1*, SET1+1*
IO PRI, HDR, 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+1*
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*, EN1*, EN2*
>> POP DEV+1
PR CLOS!, SETUP*, SETUP+4
SOWKBEG BEG*, EN0, CLOS!, EN1, EN2
SOWKBG BEG*, EN0+1*, CLOS!, HDR, EN1+1*, EN2+1*
SOWKED BEG+1*, EN0, EN0+1*, CLOS!, HDR, EN1, EN1+1*, EN2, EN2+1*
SOWKI1 EN0*, CLOS!, SETUP, SETUP+1, EN1*, EN2*
SOWKION DEV+1*!, DEV+2!
SOWKWRK ASK*, EN0, CLOS!, EN1, EN2
STA EN0+1*, CLOS!, HDR, EN1+1*, EN2+1*
STN EN0+1*, CLOS!, HDR, EN1+1*, EN2+1*
SWXX CHK+1~, CHK+2*
T CLOS!, SET1+2*
TD EN*, CLOS!, HDR
U SETUP+2
>> VA("BID" SETUP+4
WRK CLOS!, SET1*, SET1+1*, SET1+2
X BEG, BEG+1, ASK, CLOS!
Y SOWKCLIW+2*, BEG, BEG+1, ASK, 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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All