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

Package: Social Work

Routine: SOWKPNTF


Information

SOWKPNTF ;B'HAM ISC/SAB-PATIENT STATUS REPORT ; 25 Feb 93 / 9:20 AM [ 09/22/94 1:46 PM ]

Source Information

Source file <SOWKPNTF.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: 1

Package Total Caller Graph
Social Work 1 SOWKPNTF  

Entry Points

Name Comments DBIA/ICR reference
HDR
GET
CHK ;
ENQ
BUILD
CLOSE
OUT

External References

Name Field # of Occurrence
^%ZIS SOWKPNTF+3
^%ZISC CLOSE
^%ZTLOAD SOWKPNTF+5
KILL^%ZTLOAD CLOSE+1
KVA^VADPT CLOSE+1
PID^VADPT6 GET

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"WARNING !!!",!?5,"This report is formatted for 132 columns and will be",!?5,"difficult to read if printed to the screen.",!
  • Line Location: SOWKPNTF+2
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(N,0),"^"),1,$F($P(^DPT(N,0),"^"),",")),?21,VA("BID"),?27,$S($P(SWREC,"^",13):$P(^SOWK(651,$P(SWREC,"^",13),0),"^",4),1:"N/A")
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: ?38,$E($P(SWREC,"^",2),4,5)_"/"_$E($P(SWREC,"^",2),6,7)_"/"_$E($P(SWREC,"^",2),2,3)
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: ?50,$E($P(SWREC,"^",18),4,5)_"/"_$E($P(SWREC,"^",18),6,7)_"/"_$E($P(SWREC,"^",18),2,3)
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: ?62,$P(^SOWK(650,M,2,I,0),"^")_","
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: ?85,$P(^SOWK(650,M,2,I,0),"^",2)
  • Line Location: OUT+4
Function Call: WRITE
  • Prompt: ?95,$G(SWU),?110,$G(SWN)
  • Line Location: OUT+7
Function Call: WRITE
  • Prompt: ?126,$J($P(^VA(200,$P(SWREC,"^",3),654),"^",3),3,0)
  • Line Location: OUT+8
Function Call: WRITE
  • Prompt: !,"PATIENT STATUS REPORT",?80,SWDATE,?123,"PAGE",?128,SWPG,!?38,"OPEN",?50,"CLOSE",?97,"RESOURCES/REFERRALS",!?1,"PATIENT",?21,"ID#",?29,"CDC",?38,"DATE",?50,"DATE",?62,"PROBLEMS",?85,"OUTCOME"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: ?95,"USED",?110,"NEEDED",?124,"WORKER"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: READ
  • Prompt: "Press <RETURN> to continue: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: SWXX
  • Line Location: CHK+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHK+3
Routine Call
  • %ZIS
  • Line Location:
    • SOWKPNTF+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ENQ
^DPT - [#2] BUILD, OUT
^SOWK(650 - [#650] BUILD, GET, OUT+3, OUT+4, OUT+5, OUT+6
^SOWK(651 - [#651] OUT
^TMP($J SOWKPNTF+3!, BUILD*, GET, CLOSE+1!
^VA(200 - [#200] OUT+8

Label References

Name Line Occurrences
CHK GET
CLOSE SOWKPNTF+3, SOWKPNTF+5, GET
HDR GET, CHK+4
OUT GET

Naked Globals

Name Field # of Occurrence
^(0 OUT+5, OUT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SOWKPNTF+3!*
%ZIS("B" SOWKPNTF+3*
C OUT+3*, OUT+4*, OUT+5*, OUT+6*, CLOSE+1!
DFN BUILD*, GET*, CLOSE+1!
DT ENQ
DTIME CHK+2
I OUT+3*, OUT+4*, OUT+5*, OUT+6*, HDR+2*, CLOSE+1!
IO HDR+1
IO("Q" SOWKPNTF+3!, SOWKPNTF+4, SOWKPNTF+5!
IOF HDR, CLOSE, CHK+3
ION SOWKPNTF+3
IOP SOWKPNTF+3!*
IOSL GET
IOST CLOSE, CHK+2
M BUILD*, GET*, OUT+3, OUT+4, OUT+5, OUT+6, CLOSE+1!
N GET*, OUT, CLOSE+1!
NAM GET*, CLOSE+1!
>> OUT GET, CHK+2*, CHK+4
>> POP SOWKPNTF+3
SOWKION SOWKPNTF+3!*, SOWKPNTF+4!
SWDATE ENQ*, HDR+1, CLOSE+1!
SWN GET!, OUT+6*, OUT+7
SWPG ENQ*, GET, HDR*, HDR+1, CLOSE+1!
SWREC GET*, OUT, OUT+1, OUT+2, OUT+8, CLOSE+1!
SWU GET!, OUT+5*, OUT+7
SWXX CHK+1~, CHK+2*
>> VA("BID" OUT
X CLOSE+1!
Y ENQ*, CLOSE+1!
>> ZTDESC SOWKPNTF+4*
>> ZTRTN SOWKPNTF+4*
ZTSK SOWKPNTF+3!, SOWKPNTF+5!, CLOSE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All