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

Package: Social Work

Routine: SOWKDBPN


Information

SOWKDBPN ;B'HAM ISC/SAB-Print notes routine i.e., Discharge, Closing ; 04 Apr 94 / 7:46 AM [ 09/22/94 7:45 AM ]

Source Information

Source file <SOWKDBPN.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
Registration 2 (INP,KVAR)^VADPT  PID^VADPT6  
Social Work 1 HDR^SOWKDB1  
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: 1

Package Total Caller Graph
Social Work 1 SOWKDBPN  

Entry Points

Name Comments DBIA/ICR reference
ASK
NT
DEV ;
EN
CLO
CLN
DPN
ALL ;
HDR
TR
PAO
CHK ;

External References

Name Field # of Occurrence
^%ZIS DEV+1
^%ZISC CLO+1
^%ZTLOAD DEV+3
KILL^%ZTLOAD CLO+1
^DIC ASK
HDR^SOWKDB1 HDR+1
INP^VADPT EN
KVAR^VADPT CLO+1
PID^VADPT6 EN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: NT+0
Function Call: READ
  • Formatting: !
  • Prompt: "Press <RETURN> to continue: "
  • Variable: SWXX
  • Timeout: DTIME
  • Line Location: CLO+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLO+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CLO+1
Function Call: WRITE
  • Prompt: !,$P(^SOWK(655.2,DA(1),23,SX,2,DS,0),"^")
  • Line Location: CLN+1
Function Call: WRITE
  • Prompt: !!,"AFTER CARE PLAN: "_$S(XX:$P(^SOWK(655.2,DA(1),23,XX,0),"^",5),1:"")
  • Line Location: CLN+2
Function Call: WRITE
  • Prompt: !,"OPEN DATE: "_$E($P(^SOWK(650,CN,0),"^",2),4,5)_"/"_$E($P(^(0),"^",2),6,7)_"/"_$E($P(^(0),"^",2),2,3),?30,"CLOSED DATE: "_$E($P(^SOWK(650,CN,0),"^",18),4,5)_"/"_$E($P(^(0),"^",18),6,7)_"/"_$E($P(^(0),"^",18),2,3)
  • Line Location: CLN+3
Function Call: WRITE
  • Prompt: !,"NOTE ENTERED: "_$S(XX:$E($P(^SOWK(655.2,DA(1),23,XX,0),"^",6),4,5)_"/"_$E($P(^(0),"^",6),6,7)_"/"_$E($P(^(0),"^",6),2,3),1:"")
  • Line Location: CLN+4
Function Call: WRITE
  • Prompt: !?5,$P(^SOWK(655.202,$P(^SOWK(655.2,DA(1),23,SX,1,DS,0),"^"),0),"^")
  • Line Location: DPN+1
Function Call: WRITE
  • Prompt: !!,"DISCHARGE PLAN: "_$S(SX:$P(^SOWK(655.2,DA(1),23,SX,0),"^",3),1:""),!,"DISCHARGE PLAN ENTERED: "_$S(SX:$E($P(^SOWK(655.2,DA(1),23,SX,0),"^",4),4,5)_"/"_$E($P(^(0),"^",4),6,7)_"/"_$E($P(^(0),"^",4),2,3),1:"")
  • Line Location: DPN+3
Function Call: READ
  • Variable: SWXX
  • Timeout: DTIME
  • Line Location: ALL+3
Function Call: WRITE
  • Prompt: !,"Press <RETURN> to continue: "
  • Line Location: ALL+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ALL+4
Function Call: WRITE
  • Prompt: "MEDICAL RECORD",?40,$S("C"[$E(TY):"CLOSING ","D"[$E(TY):"DISCHARGE PLANNING ",1:" ")_"NOTE",!,"DIAGNOSIS: "_$P(VAIN(9),"^"),?40,"PRINTED: "_$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_$E(DT,2,3),!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"PATIENT: "_$P(^DPT(DFN,0),"^"),!,"ID#: "_VA("PID"),!,"WARD/BED: "_$P(VAIN(4),"^",2)_"/"_$P(VAIN(5),"^")
  • Line Location: TR+0
Function Call: WRITE
  • Prompt: !!?35,$P(^VA(200,$P(^SOWK(650,CN,0),"^",3),20),"^",2)_", Social Worker",!!?20,"Social Work Service Reports and Summaries",!?20,"10-9034 VAF VICE 10-1349"
  • Line Location: TR+1
Function Call: WRITE
  • Prompt: !,$S($P(^SOWK(655.2,DA(1),17,XX,0),"^"):$P(^SOWK(655.201,$P(^SOWK(655.2,DA(1),17,XX,0),"^"),0),"^"),1:"")
  • Line Location: PAO+0
Function Call: WRITE
  • Prompt: !,^SOWK(655.2,DA(1),10,XX,0)
  • Line Location: PAO+1
Function Call: READ
  • Formatting: !
  • Prompt: "Press <RETURN> to continue: "
  • Variable: SWXX
  • Timeout: DTIME
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHK+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
Routine Call
  • DIC
  • Line Location:
    • ASK

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] TR
^SOWK(650 - [#650] CLN+3, TR+1
^SOWK(655.2 - [#655.2] CLN+1, CLN+2, CLN+4, DPN+1, DPN+3, PAO, PAO+1
^SOWK(655.201 - [#655.201] PAO
^SOWK(655.202 - [#655.202] DPN+1
^TMP($J CLO+1!
^VA(200 - [#200] TR+1

Label References

Name Line Occurrences
@( EN
ASK ASK
CHK CLN+1, CLN+2, CLN+3, CLN+4, DPN+1, DPN+3, TR, TR+1, PAO, PAO+1
CLN ALL+2
CLO ASK, NT, DEV+1, DEV+3
DPN ALL+4
HDR CLN, DPN, CHK+4
NT NT+1
PAO CLN, DPN+2
TR CLN+5, DPN+4

Naked Globals

Name Field # of Occurrence
^(0 CLN+3, CLN+4, DPN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1!*
%ZIS("B" DEV+1*
CN ASK*, CLO+1!, CLN+1, CLN+2, CLN+3, DPN+1, TR+1
DA CLO+1!
DA(1 ASK*, CLN+1, CLN+2, CLN+4, DPN+1, DPN+3, PAO, PAO+1
DFN ASK*, CLO+1!, TR
DIC ASK!*, CLO+1!
DIC("A" ASK*
DIC("S" ASK*
DIC(0 ASK*
DS CLO+1!, CLN+1*, DPN+1*
DT HDR+1
DTIME NT, CLO, ALL+3, CHK+3
G DEV+2*, CLO+1!
I CLO+1!
IO CLN, DPN
IO("Q" DEV+2, DEV+3!
IOF CLO, ALL+4, CHK+3
ION DEV+1
IOP DEV+1!*, CLO+1!
IOSL CHK+1
IOST CLO, ALL+3, CHK+3
OUT EN*, CLO, CLO+1!, CLN+1, CLN+2, CLN+3, CLN+4, DPN+1, DPN+3, ALL+2
, ALL+3*, HDR, TR, TR+1, PAO, PAO+1, CHK+3*
PG CLO+1!, CLN*, DPN*
POP DEV+1, CLO+1!
SOWKION DEV+1*!, DEV+2!
SWXX CLO*!, ALL+1~, ALL+3*, CHK+2~, CHK+3*
SX CLO+1!, CLN+1*, DPN+1*, DPN+3
TY NT*, NT+1*, EN, CLO+1!, ALL+2*, ALL+4*, HDR+1
>> VA("PID" TR
>> VAIN(4 TR
>> VAIN(5 TR
>> VAIN(9 HDR+1
X ASK, CLO+1!
XX CLO+1!, CLN+2*, CLN+4, PAO*, PAO+1*
Y ASK, CLO+1!
Y(0 ASK
>> ZTRTN DEV+2*
>> ZTSAVE( DEV+2*
ZTSK DEV+1!, DEV+3!, CLO+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