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

Package: Social Work

Routine: SOWKDBE


Information

SOWKDBE ;B'HAM ISC/SAB-Routine to enter/edit data profile ; 08 Dec 93 / 9:25 AM [ 09/22/94 7:45 AM ]

Source Information

Source file <SOWKDBE.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIC  WAIT^DICD  (FILE,YN)^DICN  ^DIE  
Registration 2 (DEM,KVA)^VADPT  PID^VADPT6  
Social Work 2 EN^SOWKDB  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 SOWKDBE  

Entry Points

Name Comments DBIA/ICR reference
PR
HP
TI
TR
BEG
TRY
ENT
CLOS
SE

External References

Name Field # of Occurrence
^DIC SE
WAIT^DICD SE+3
FILE^DICN SE+3
YN^DICN TR, TI, TRY
^DIE BEG, BEG+9, BEG+10, ENT, ENT+1
EN^SOWKDB TR+2
YN^SOWKHELP TR, TI
DEM^VADPT BEG
KVA^VADPT BEG
PID^VADPT6 BEG+1, PR, SE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SOWKDBE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: @IOF,!,$P(^DPT(DFN,0),"^"),?36
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: "DOB: "_Y,?57,"ID#: "_VA("PID")
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!,"1. EMPLOYMENT/FINANCIAL",?39,"2. EDUCATION",!!,"3. MILITARY HISTORY",?39,"4. SOCIAL/FAMILY RELATIONSHIPS",!!,"5. LEGAL SITUATION",?39,"6. CURRENT SUBSTANCE ABUSE"
  • Line Location: BEG+2
Function Call: WRITE
  • Prompt: !!,"7. PRELIMINARY PROBLEMS",?39,"8. PSYCHO-SOCIAL ASSESSMENT"
  • Line Location: BEG+3
Function Call: READ
  • Timeout: DTIME
  • Line Location: BEG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+4
Function Call: WRITE
  • Prompt: !,*7
  • Line Location: BEG+5
Function Call: WRITE
  • Prompt: !,*7
  • Line Location: BEG+6
Function Call: WRITE
  • Prompt: !,*7
  • Line Location: BEG+7
Function Call: WRITE
  • Prompt: !,*7
  • Line Location: BEG+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEG+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENT+0
Function Call: WRITE
  • Prompt: @IOF,!!!,$P(^DPT(DFN,0),"^"),?36
  • Line Location: PR+0
Function Call: WRITE
  • Prompt: "DOB: "_Y,?57,"ID#: "_VA("PID")
  • Line Location: PR+0
Function Call: READ
  • Timeout: %
  • Variable: "Do you want to print Assessment data" S %=2 D YN^DICN Q
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: !!?10
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: @IOF,!!!,"Enter the number of the category for this patient you want to enter/edit.",!,"For example if you want to enter/edit the categories ""EDUCATION"" and ""MILITARY""."
  • Line Location: HP+0
Function Call: WRITE
  • Prompt: !,"Enter the number ""2"" and ""3"" i.e. 2,3 separated by comma or enter any"
  • Line Location: HP+1
Function Call: WRITE
  • Prompt: !,"combination of numbers separated by commas or if all categories are to be",!,"edited, press carriage return for default of ""ALL"". VALID NUMBERS ARE 1-8."
  • Line Location: HP+2
Function Call: WRITE
  • Prompt: !!,"Do you want to try again"
  • Line Location: TI+0
Function Call: WRITE
  • Prompt: !!,"INVALID CATEGORY NUMBER(s) ! Do you want to try again"
  • Line Location: TRY+0
Routine Call
  • DIE
  • Line Location:
    • BEG
    • BEG+9
    • BEG+10
    • ENT
    • ENT+1
Routine Call
  • DIC
  • Line Location:
    • SE

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SOWK(650 - [#650] Classic Fileman Calls
^SOWK(655.2 - [#655.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BEG+1, PR
^DPT - [#2] BEG+1, PR
^SOWK(650 - [#650] SE
^SOWK(655.2 - [#655.2] ENT+1, SE+2
^VA(200 - [#200] SE+1

Label References

Name Line Occurrences
BEG TI+2, TRY+2
CLOS SOWKDBE+3, TR+1, TI+1, TRY+1
ENT BEG+4
HP BEG+4, TRY
PR BEG+4, BEG+11, TI+1, TRY+1
SE SOWKDBE+3, SE
TRY BEG+5, BEG+6, BEG+7, BEG+8

Naked Globals

Name Field # of Occurrence
^(0 PR

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% TR*, TR+1, TR+2!, CLOS!, TI*, TI+1, TRY*, TRY+1
%Y TR, TR+2!, CLOS!, TI, TRY
BF TR+2!, CLOS!
BO TR+2!, CLOS!
C BEG+10, ENT+1, CLOS!, SE*, SE+1, SE+3
DA CLOS!, SE*
DD SE+3!
DFN BEG+1, ENT+1, PR, CLOS!, SE*, SE+2, SE+3
DIC BEG*, TR+2!, CLOS!, SE!*, SE+3!*
DIC("A" SE*
DIC("DR" SE+3*
DIC("S" SE*
DIC(0 SE*, SE+3*
DIE BEG*, TR+2!, CLOS!, SE+2*
DINUM CLOS!, SE+3*
DO SE+3!
DR BEG*!, BEG+9*, BEG+10*, ENT*, ENT+1*, TR+2!, CLOS!
DT BEG+10, ENT+1, SE+3
DTIME BEG+4
FF TR+2!, CLOS!
I BEG+4!, BEG+7*, BEG+8*, TR+2!, CLOS!
IN CLOS!
INP BEG+4*, BEG+5, BEG+6, BEG+7, BEG+8, BEG+9, CLOS!
IOF BEG+1, BEG+9, ENT, PR, HP
ND TR+2!, CLOS!
Q TR*, CLOS!, TI*, TRY*
S TR+2!, CLOS!
ST BEG*, TR+2!, CLOS!
SUP BEG+10, ENT+1, CLOS!, SE+1*, SE+3
SW BEG+9*, ENT*, CLOS!
SWWRK BEG+10, ENT+1, CLOS!, SE+1*, SE+3
TEM SOWKDBE+2*, BEG+9, ENT, CLOS!
>> VA("PID" BEG+1, PR
>> VADM(10 BEG
X SOWKDBE+3, TR+2!, CLOS!, SE, SE+3*
Y BEG+1*, PR*, TR+2!, CLOS!, SE
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