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

Package: Social Work

Routine: SOWKOPEN


Information

SOWKOPEN ;B'HAM ISC/SAB ROUTINE TO OPEN CASES & ENTER PATIENTS INTO THE SW PATIENT ; 10 Mar 94 / 8:28 AM [ 08/07/96 2:14 PM ]

Source Information

Source file <SOWKOPEN.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 6 ^DIC  WAIT^DICD  (FILE,YN)^DICN  ^DIE  ^DIK  ^DIR  
Social Work 1 YN^SOWKHELP  

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

Package Total Caller Graph
Social Work 1 SOWKOPEN  

Entry Points

Name Comments DBIA/ICR reference
DISP ;disposition from RCH
EDT
ADP
CDC ;set Cost Distribution Account for case
HR
K
CL
OC
WRK
Q
FA
RCH
SEA
SC
REC
DIV
CHECK ;cleanup 'AC' xref
OP

External References

Name Field # of Occurrence
^DIC OP, WRK, DIV, RCH+2
WAIT^DICD ADP
FILE^DICN SEA+1, RCH, RCH+3
YN^DICN CL, OC, FA
^DIE SC, CL+2, RCH+1, EDT, EDT+1, DISP+1
^DIK SC, REC, REC+1, EDT
^DIR CDC+1
YN^SOWKHELP CL, OC, FA

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"PLEASE ENTER SOCIAL WORK SITE PARAMETERS !!!"
  • Line Location: SOWKOPEN+2
Function Call: WRITE
  • Prompt: !!,"Case #",?15,"Open date",?25,"Social Worker",?55,"Division",!
  • Line Location: ADP+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: ADP+2
Function Call: WRITE
  • Prompt: !!,*7,"CASE FOR ",$P(^DPT(SWPT,0),"^")," IS ALREADY OPENED BY ",$P(^VA(200,SWSW,0),"^")," ON ",$S($P(^SOWK(650,SOWKCN,0),U,2):$E($P(^(0),U,2),4,5)_"/"_$E($P(^(0),U,2),6,7)_"/"_$E($P(^(0),U,2),2,3),1:"UNKNOWN"),!
  • Line Location: ADP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SC+0
Function Call: WRITE
  • Prompt: !!,"DO YOU WANT TO CLOSE CASE"
  • Line Location: CL+0
Function Call: WRITE
  • Prompt: !!!,"DO YOU WANT TO OPEN ANOTHER NEW CASE"
  • Line Location: OC+0
Function Call: WRITE
  • Prompt: !,"Was this a High Risk Patient"
  • Line Location: FA+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RCH+1
Function Call: WRITE
  • Prompt: !!,*7,"INCOMPLETE DATA!! RECORD DELETED."
  • Line Location: REC+0
Routine Call
  • DIE
  • Line Location:
    • SC
    • CL+2
    • RCH+1
    • EDT
    • EDT+1
    • DISP+1
Routine Call
  • DIC
  • Line Location:
    • OP
    • WRK
    • DIV
    • RCH+2
Routine Call
  • DIR
  • Line Location:
    • CDC+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls
^SOWK(650 - [#650] Classic Fileman Calls
^SOWK(650.1 - [#650.1] Classic Fileman Calls
^SOWK(652 - [#652] Classic Fileman Calls
^SOWK(655 - [#655] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ADP+5
^SOWK(650 - [#650] ADP, ADP+2, ADP+3, ADP+4, ADP+5, SEA+1, SEA+2*, SC, SC+2, CL+3!
, CHECK+1!
^SOWK(650.1 - [#650.1] SOWKOPEN+2, OP+1, DIV, ADP+4
^SOWK(651 - [#651] SC+2, CL+4, REC+1
^SOWK(655 - [#655] HR, CL+4, FA+2, FA+3*, RCH, RCH+2, REC+1, REC+2*
^VA(200 - [#200] OP+1, ADP+4, ADP+5

Label References

Name Line Occurrences
CDC CDC+1
CHECK ADP
DISP EDT
DIV OP+1, DIV
EDT CL+4
FA HR
K SC, SC+1, SC+2
OC CL+1, K
OP OP, ADP+5, OC+1
Q SOWKOPEN+2, OP, WRK, DIV, CDC+1, CL+1, OC+1, REC
RCH SC+2
REC SC+1, CL+2, RCH+1, RCH+2, RCH+3, EDT, EDT+1, DISP+1
WRK WRK

Naked Globals

Name Field # of Occurrence
^( ADP+3
^(0 OP+1, ADP+4, ADP+5, HR, SC, SC+2, CL+4, FA+3*, RCH+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CL*, CL+1, Q!, OC*, OC+1, FA*, FA+1, FA+3
%Y CL, Q!, OC, FA
A CL+4*, K!, Q!, REC+1*, EDT
AL SC*, CL+4, K!, Q!, REC+1
DA CDC+1!, SEA+1*, SEA+2, SC, SC+2, CL+2*, CL+3, K!, Q!, RCH+1*
, RCH+3*, REC*, REC+1*, EDT*, EDT+1*, DISP+1*
DA(1 RCH+3*, REC+1*, EDT*
DD SEA+1!, RCH!, RCH+3!
DIC OP*!, WRK*!, DIV*!, SEA*, SEA+1!, K!, Q!, RCH*, RCH+2*, RCH+3*
DIC("A" OP*, WRK*, DIV*, RCH+2*
DIC("DR" SEA*, RCH+3*!
DIC("S" WRK*
DIC(0 OP*, WRK*, DIV*, SEA*, RCH*, RCH+2*, RCH+3*
DIE SEA*, CL+2*, K!, Q!, RCH+1*, EDT*, EDT+1*, DISP+1*!
DIE("NO^" SOWKOPEN+2*, K*
DIK SC*!, REC*!, REC+1*, EDT*
DINUM SEA+1*, K!, Q!, RCH*
DIR CDC+1!
DIR(0 CDC+1*
>> DIROUT CDC+1
>> DIRUT CDC+1
DLAYGO SEA*, SEA+1!, RCH*!
DO SEA+1!, RCH!, RCH+3!
DR SC*, CL+2*, K!, Q!, RCH+1*, EDT*, EDT+1*, DISP+1*
DT OP+1
DTOUT K!, Q!, RCH+3
DUOUT K!, Q!, RCH+3
DUP K!
DUZ OP+1
HR OP!, K!, Q!, FA+2*, REC+2!
I Q!
ND SEA+1*, K!, Q!
>> OUT SOWKOPEN+2*, CL+4, EDT, DISP+1*
PN SC*, CL+2, CL+4, K!, Q!, RCH+3, REC, REC+1, EDT, DISP+1
Q CL*, Q!, OC*, FA*
SHEMP CHECK+1*, CHECK+2!
SOWKCN ADP*, ADP+5!, HR!
SOWKCOR SOWKOPEN+2*, Q!
SOWKFLAG SC*, SC+2, K!, Q!, RCH+1*, RCH+2*, RCH+3*
>> SOWKIEN ADP+3*, ADP+4
>> SRX ADP+2*
SUP Q!
SWA CL+3!, K!, Q!
SWBDT Q!
SWCDC CDC+1*, SEA, Q!
SWPT OP*, ADP, ADP+2, ADP+3, ADP+5, HR, SEA, SEA+2, CL+3, CL+4
, K!, Q!, FA+2, FA+3, RCH, RCH+1, RCH+2, RCH+3, REC+1, REC+2
, EDT, EDT+1, CHECK+1
SWSITE DIV*, DIV+1*, ADP, SEA, SEA+2, CL+3, Q!, CHECK+1
SWSW OP+1*, WRK*, ADP, ADP+5, SEA, SEA+2, SC*, CL+3, K!, Q!
, CHECK+1
>> SWX ADP+3*, ADP+4
>> SWX2 ADP+3*, ADP+4
U ADP+4, ADP+5
X OP, WRK, DIV, CDC+1!, SEA+1*, K!, Q!, RCH*, RCH+3*
Y OP!, WRK, DIV, CDC+1!, SEA+1, SC+1, CL+2, K!, Q!, RCH+1
, RCH+2, RCH+3, EDT, EDT+1, DISP+1
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