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

Package: Social Work

Routine: SOWKAI


Information

SOWKAI ;B'HAM ISC/SAB,DLR-Routine to print RCH Patient Registry for all cases for a supervisor ; 08 Apr 93 / 9:05 AM [ 07/22/94 2:24 PM ]

Source Information

Source file <SOWKAI.m>

Call Graph

Call Graph

Call Graph Total: 7

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

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

Package Total Caller Graph
Social Work 2 SOWKAI  SOWKAT  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
BEG
EN
LK
ENQ ;COMPLETE REPORT
SEA
CLOS
SETUP
PRI
PR1
OUT
SUM
OUT1

External References

Name Field # of Occurrence
^%DT BEG, EN
^%ZIS LK+1
^%ZISC CLOS
^%ZTLOAD LK+3
KILL^%ZTLOAD CLOS
IX^DIC LK
KVA^VADPT CLOS
KVAR^VADPT CLOS
PID^VADPT6 PR1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: ENQ+1
Function Call: WRITE
  • Prompt: "RCH PATIENT REGISTRY",!,"SUPERVISOR: "_$P(^VA(200,DA,0),"^"),!,"COMPLETE: ALL CASES",!
  • Line Location: ENQ+1
Function Call: WRITE
  • Prompt: !,$E(SOWKFB,4,5)_"/"_$E(SOWKFB,6,7)_"/"_$E(SOWKFB,2,3)_" TO "_$E(SOWKFE,4,5)_"/"_$E(SOWKFE,6,7)_"/"_$E(SOWKFE,2,3),!
  • Line Location: ENQ+2
Function Call: READ
  • Formatting: !!
  • Prompt: "PRESS RETURN TO CONTINUE or '^' TO EXIT: "
  • Variable: SWX
  • Timeout: DTIME
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y+6>IOSL
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !,$P(^DPT(P,0),"^"),?$X+5,VA("BID"),?$X+5,"HOME: "_$E($P(^SOWK(652,HM,0),"^"),1,18)
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: " PLACED: "_Y,!,"DOB: "
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: " PLACED: "_Y,!,"DOB: "
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: "SOCIAL WORKER: "_$P(^VA(200,W,0),"^")
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: !,MS,?$X+5,"PRIOR LIVING: "
  • Line Location: OUT+5
Function Call: WRITE
  • Prompt: $P(LP,":",2)
  • Line Location: OUT+5
Function Call: WRITE
  • Prompt: !,"CLOSED: "_Y
  • Line Location: OUT+6
Function Call: WRITE
  • Prompt: ?$X+5,"DISP: "_DP
  • Line Location: OUT+6
Function Call: WRITE
  • Prompt: !,"LEVEL OF CARE: "_$S($P(A,"^",23)=1:"LIGHT",$P(A,"^",23)=2:"MODERATE",1:"HEAVY")
  • Line Location: OUT+7
Function Call: WRITE
  • Prompt: $P(^SOWK(655,P,4,R,1,Q,0),"^"),?$X+5,"DATE: "_Y,!,?$X+6
  • Line Location: OUT+8
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: SUM+0
Function Call: WRITE
  • Prompt: "RCH PATIENT REGISTRY",!,"SUPERVISOR: "_$P(^VA(200,DA,0),"^"),!,"SUMMARY: ALL CASES",!
  • Line Location: SUM+0
Function Call: WRITE
  • Prompt: !,$E(SOWKFB,4,5)_"/"_$E(SOWKFB,6,7)_"/"_$E(SOWKFB,2,3)_" TO "_$E(SOWKFE,4,5)_"/"_$E(SOWKFE,6,7)_"/"_$E(SOWKFE,2,3),!!!,"PATIENT NAME",?17,"ID#",?34,"HOME NAME",?55,"SOCIAL WORKER",?75,"OPEN",!
  • Line Location: SUM+1
Function Call: READ
  • Formatting: !!
  • Prompt: "PRESS RETURN TO CONTINUE or '^' TO EXIT: "
  • Variable: SWX
  • Timeout: DTIME
  • Line Location: OUT1+2
Function Call: WRITE
  • Prompt: ?76,"Y"
  • Line Location: OUT1+3
Routine Call
  • DIC
  • Line Location:
    • LK
Routine Call
  • %ZIS
  • Line Location:
    • LK+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" OUT+3, OUT+6, OUT+8
^DD(650 OUT+5
^DPT - [#2] SETUP, OUT+3, OUT1+3
^SOWK(650 - [#650] SEA, PR1
^SOWK(651 - [#651] SEA
^SOWK(652 - [#652] OUT+3, OUT1+3
^SOWK(655 - [#655] OUT, OUT+8, OUT1
^TMP($J SOWKAI+2!, CLOS!, SETUP*, PRI, PR1
^VA(200 - [#200] ENQ+1, SEA, OUT+4, SUM, OUT1+3

Label References

Name Line Occurrences
@( PR1
BEG BEG
CLOS BEG, EN, LK, LK+1, LK+3
EN EN
LK LK
PR1 PRI
PRI SEA+1
SEA SUM+2
SETUP SEA
SUM LK+4

Naked Globals

Name Field # of Occurrence
^(0 OUT, OUT1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BEG*, LK+3!, CLOS!
%DT("A" BEG*, EN*
%ZIS LK+1!*, LK+3!, CLOS!
A SEA*, CLOS!, SETUP, PR1*, OUT+4, OUT+5, OUT+6, OUT+7, OUT1+3
B SEA*, CLOS!
COM LK+2, LK+4, CLOS!, PR1
CS LK+3!, CLOS!
D LK*, LK+3!, CLOS!
DA LK*, LK+3!, ENQ+1, SEA, CLOS!, SUM
>> DFN PR1*
DIC LK*!, LK+3!, CLOS!
DIC("A" LK*
DIC("S" LK*
DIC(0 LK*
DP LK+3!, CLOS!, OUT+6*
DTIME OUT+2, OUT1+2
E CLOS!, PR1*, OUT, OUT1
G LK+2*, LK+3!
HM CLOS!, OUT*, OUT+3, OUT1*, OUT1+3
I LK+3!, CLOS!, PRI*, PR1
IO ENQ+1, OUT, SUM, OUT1
IO("Q" LK+2, LK+3!
IOF ENQ+1, CLOS, OUT+3, SUM, OUT1+3
ION LK+1
IOP LK+1!*, LK+3!, CLOS!
IOSL OUT+2, OUT+3, OUT1+2, OUT1+3
IOST CLOS, OUT+2, OUT1+2
J LK+3!, CLOS!, PRI*
LP LK+3!, CLOS!, OUT+5*
LP1 CLOS!, OUT+5*
MS LK+3!, CLOS!, OUT+4*, OUT+5
P LK+3!, CLOS!, PR1*, OUT, OUT+3, OUT+8, OUT1, OUT1+3
PL CLOS!, OUT*, OUT+3
POP LK+1, LK+3!, CLOS!
Q LK+3!, CLOS!, OUT+8*
R CLOS!, OUT*, OUT+8
S LK+3!, SEA*, CLOS!
SC LK+3!, CLOS!
SOWKFB BEG*, LK+3!, ENQ+2, SEA, CLOS!, SUM+1
SOWKFE EN*, LK+3!, ENQ+2, SEA, CLOS!, SUM+1
SOWKION LK+1*!, LK+2!
SWD SEA*, CLOS!
SWX CLOS!, OUT+2*, OUT1+2*
SWXX CLOS!, PRI, PR1, OUT+2*, OUT1+2*
T LK+3!, CLOS!
>> VA("BID" OUT+3
>> VA("PID" OUT1+3
W LK+3!, SEA*, CLOS!, PR1*, OUT+4, OUT1+3
X BEG, EN, LK, LK+3!, CLOS!, OUT+4*, OUT+6*
Y BEG, EN, LK, LK+3!, CLOS!, OUT+3*, OUT+6*, OUT+8*
Z CLOS!, OUT*, OUT1*
>> ZTDESC LK+2*
>> ZTRTN LK+2*
>> ZTSAVE( LK+2*
ZTSK LK+1!, LK+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