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

Package: Social Work

Routine: SOWKCS


Information

SOWKCS ;B'HAM ISC/SAB-Routine to inquire into RCH file by worker ; 04 Feb 93 / 2:36 PM

Source Information

Source file <SOWKCS.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
VA FileMan 1 ^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 SOWKCS  SOWKSC  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
SEA
ENQ
CLO
PRI
LOK

External References

Name Field # of Occurrence
^%ZIS SEA+1
^%ZISC CLO
^%ZTLOAD SEA+3
KILL^%ZTLOAD CLO
^DIC SEA

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SEA+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: ENQ+0
Function Call: WRITE
  • Prompt: "HOME REGISTRY FOR A SINGLE WORKER: ",$S($G(COM):"COMPLETE",1:"SUMMARY"),!,"SOCIAL WORKER: "_$P(^VA(200,DA,0),"^"),!!
  • Line Location: ENQ+0
Function Call: WRITE
  • Prompt: !,"HOME: ",?25,SWN,!,"LAST ASSESSMENT DATE: ",?25,SWD,!,"NUMBER OF BEDS: ",?25,SWNB,!,"ADDRESS 1: ",?25,$P(A,"^",5)
  • Line Location: PRI+0
Function Call: WRITE
  • Prompt: !,"LICENSED BY STATE ?: ",?25,$P(A,"^",10),!,"VETS ONLY ?: ",?25,$P(A,"^",12),!
  • Line Location: PRI+2
Routine Call
  • %ZIS
  • Line Location:
    • SEA+1
Routine Call
  • DIC
  • Line Location:
    • SEA

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" LOK
^DIC(5 - [#5] LOK
^SOWK(652 - [#652] LOK
^VA(200 - [#200] ENQ

Label References

Name Line Occurrences
CLO SEASEA+1, SEA+3, LOK+1
LOK ENQ
PRI LOK
SEA SEA

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SEA+1!*, CLO!
A CLO!, PRIPRI+1, PRI+2, LOK*
COM ENQ, CLO!, PRI+1
DA SEA*, SEA+3!, ENQ, CLO!, LOK
DIC SEA*!, CLO!
DIC("A" SEA*
DIC("S" SEA*
DIC(0 SEA*
G SEA+2*, SEA+3!
I CLO!, LOK*
IO ENQPRI
IO("Q" SEA+2, SEA+3!
IOF ENQCLO
ION SEA+1
IOP SEA+1!*, CLO!
IOST CLO
POP SEA+1, CLO!
SOWKION SEA+1*!, SEA+2!
STA CLO!, PRI+1, LOK*
SWD CLO!, PRI, LOK*
SWN CLO!, PRI, LOK*
SWNB CLO!, PRI, LOK*
SWSN CLO!, LOK*
X SEA, CLO!
Y SEA, CLO!, LOK*
>> ZTDESC SEA+2*
>> ZTRTN SEA+2*
>> ZTSAVE( SEA+2*
ZTSK SEA+1!, SEA+3!, CLO
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 |  Local Variables  | All