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

Package: Social Work

Routine: SOWKCLIS


Information

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

Source Information

Source file <SOWKCLIS.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  IX^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 SOWKCLIS ALL  SOWKCLIS CLOSED  SOWKCLIS 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
IX^DIC ASK
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: !!?11,"SOCIAL WORKER: "_WRK
  • Line Location: PRI+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: !,"CLINICAL REPORT - INDIVIDUAL SUPERVISOR"_$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: "_$P(^VA(200,SOWKSUP,0),"^")
  • Line Location: HDR+4
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
Routine Call
  • DIC
  • Line Location:
    • ASK

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

Label References

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

Naked Globals

Name Field # of Occurrence
^(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" SOWKCLIS+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 ASK*, CLOS!, PRI+1, SET1+1*
DFN CLOS!, SETUP+3*
DIC ASK*, CLOS!
DIC("A" ASK*
DIC("S" ASK*
DIC(0 ASK*
DS CLOS!, SETUP+1*, SETUP+4
DT SOWKCLIS+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+3*
OC CLOS!, SETUP*, SETUP+4
OUT CLOS!, PRI, HDR, SET1+1, CHK+2*
PAT CLOS!, PRI+1, SET1*, SET1+1*
PG BEG*, EN+1*, CLOS!, HDR, HDR+1*
>> POP DEV+1
PR CLOS!, SETUP*, SETUP+4
SOWKBEG BEG*, EN0, CLOS!, EN1, EN2
SOWKBG BEG*, CLOS!, HDR*, HDR+2
SOWKED BEG+1*, EN0, CLOS!, HDR*, HDR+2, EN1, EN2
SOWKI1 EN0*, CLOS!, SETUP, SETUP+1, EN1*, EN2*
SOWKION DEV+1*!, DEV+2!
SOWKSUP ASK*, EN+1, CLOS!, SETUP+2, HDR+4
SOWKWRK EN+1*, EN0, CLOS!, EN1, EN2
SWXX CHK+1~, CHK+2*
T CLOS!, SET1+1*
TD EN*, CLOS!, HDR+1
>> VA("BID" SETUP+4
WRK CLOS!, PRI, SET1*, SET1+1*
X BEG, BEG+1, ASK, CLOS!
Y SOWKCLIS+2*, BEG, BEG+1, ASK, 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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All