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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SOWKPTC

Package: Social Work

Routine: SOWKPTC


Information

SOWKPTC ;B'HAM ISC/SAB,DLR-Routine to print RCH Patient Registry for all open cases ; 08 Apr 93 / 8:59 AM

Source Information

Source file <SOWKPTC.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
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: 3

Package Total Caller Graph
Social Work 2 SOWKPTC  SOWKPTU  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
OUT1
CLO
SUM
PRI
ENQ
PR1
SEA
OUT

External References

Name Field # of Occurrence
^%ZIS SOWKPTC+3
^%ZISC CLO
^%ZTLOAD SOWKPTC+5
KILL^%ZTLOAD CLO
KVA^VADPT CLO
PID^VADPT6 PR1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: ENQ+0
Function Call: WRITE
  • Prompt: "RCH PATIENT REGISTRY",!,"COMPLETE: OPEN CASES",!
  • Line Location: ENQ+0
Function Call: READ
  • Prompt: "PRESS RETURN TO CONTINUE or '^' TO EXIT: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: SWX
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y+10>IOSL
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: !!,"NAME: ",$E($P(^DPT(P,0),"^"),1,20),?$X+5,"HOME: "_$E($P(^SOWK(652,HM,0),"^"),1,20)
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: " PLACED: "_Y,!,"ID#: ",VA("PID"),!,"DOB: "
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: " PLACED: "_Y,!,"ID#: ",VA("PID"),!,"DOB: "
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: "WORKER: "_$P(^VA(200,$P(A,"^",3),0),"^")
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !,"MS: ",MS,?$X+5,"PRIOR LIVING: "
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: $P(LP,":",2)
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: !,"LEVEL OF CARE: "_$S($P(A,"^",23)=1:"LIGHT",$P(A,"^",23)=2:"MODERATE",1:"HEAVY")
  • Line Location: OUT+5
Function Call: WRITE
  • Prompt: $P(^SOWK(655,P,4,R,1,Q,0),"^"),?$X+5,"DATE: "_Y,!,?$X+6
  • Line Location: OUT+6
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: SUM+0
Function Call: WRITE
  • Prompt: "RCH PATIENT REGISTRY",!,"SUMMARY: OPEN CASES",!!!!!
  • Line Location: SUM+0
Function Call: WRITE
  • Prompt: "PATIENT NAME",?20,"ID#",?37,"HOME NAME",?59,"SOCIAL WORKER",!
  • Line Location: SUM+1
Function Call: READ
  • Prompt: "PRESS RETURN TO CONTINUE or '^' TO EXIT: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: SWX
  • Line Location: OUT1+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y+5>IOSL
  • Line Location: OUT1+2
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(P,0),"^"),1,15),?20,VA("PID"),?37,$E($P(^SOWK(652,HM,0),"^"),1,20),?59,$P(^VA(200,$P(A,"^",3),0),"^")
  • Line Location: OUT1+2
Routine Call
  • %ZIS
  • Line Location:
    • SOWKPTC+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" OUT+2, OUT+6
^DD(650 OUT+4
^DPT - [#2] SEA, OUT+2, OUT1+2
^SOWK(650 - [#650] SEA, PR1
^SOWK(651 - [#651] SEA
^SOWK(652 - [#652] OUT+2, OUT1+2
^SOWK(655 - [#655] OUT, OUT+6, OUT1
^TMP($J SOWKPTC+2!, SEA*, CLO!, PRI, PR1
^VA(200 - [#200] OUT+3, OUT1+2

Label References

Name Line Occurrences
@( PR1
CLO SOWKPTC+3, SOWKPTC+5
PR1 PRI
PRI SEA+1
SEA SUM+2
SUM SOWKPTC+6

Naked Globals

Name Field # of Occurrence
^(0 OUT, OUT1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SOWKPTC+3!*
A SEA*, CLO!, PR1*, OUT+3, OUT+4, OUT+5, OUT1+2
COM SOWKPTC+4, SOWKPTC+6, CLO!, PR1
>> DFN PR1*
DTIME OUT+1, OUT1+1
E CLO!, PR1*, OUT, OUT1
G SOWKPTC+4*, SOWKPTC+5!
HM CLO!, OUT*, OUT+2, OUT1*, OUT1+2
I CLO!, PRI*, PR1
IO ENQ, OUT, SUM, OUT1
IO("Q" SOWKPTC+4, SOWKPTC+5!
IOF ENQ, CLO, OUT+2, SUM, OUT1+2
ION SOWKPTC+3
IOP SOWKPTC+3!*, CLO!
IOSL OUT+1, OUT+2, OUT1+1, OUT1+2
IOST CLO, OUT+1, OUT1+1
J CLO!, PRI*
LP CLO!, OUT+4*
LP1 CLO!, OUT+4*
MS CLO!, OUT+3*, OUT+4
P CLO!, PR1*, OUT, OUT+2, OUT+6, OUT1, OUT1+2
PL CLO!, OUT*, OUT+2
POP SOWKPTC+3, CLO!
Q CLO!, OUT+6*
R CLO!, OUT*, OUT+6
S SEA*, CLO!
SOWKION SOWKPTC+3*!, SOWKPTC+4!
SWX CLO!, OUT+1*, OUT1+1*
SWXX CLO!, PRI, PR1, OUT+1*, OUT1+1*
>> VA("PID" OUT+2, OUT1+2
X CLO!, OUT+3*
Y CLO!, OUT+2*, OUT+6*
Z CLO!, OUT*, OUT1*
>> ZTDESC SOWKPTC+4*
>> ZTRTN SOWKPTC+4*
>> ZTSAVE( SOWKPTC+4*
ZTSK SOWKPTC+3!, SOWKPTC+5!, CLO
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All