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

Package: Mental Health

Routine: YSASU


Information

YSASU ;ASF/ALB,HIOFO/FT - ASI MANAGEMENT REPORTS ;2/7/13 9:50am

Source Information

Source file <YSASU.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^%DT  $$GET1^DIQ  
Mental Health 1 (MAIL2,PTLST)^YSASU1  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Mental Health 2 YSAS MANAGEMENT REPORT  YSASRU  

Entry Points

Name Comments DBIA/ICR reference
MAIN ;entry point for YSAS MANAGEMENT REPORT option
QUEUE ;
ENQ ;queue entry
ZZ
DTRANGE ;date range
FINDIT ; loop thru 604 by date
BUILDIT ;build output tmp
SITE() ;get site name

External References

Name Field # of Occurrence
^%DT DTRANGE+2, DTRANGE+5
^%ZISC QUEUE+6
^%ZTLOAD QUEUE+4
$$GET1^DIQ SITE+3
$$SITE^VASITE SITE+2
MAIL2^YSASU1 ENQ+5
PTLST^YSASU1 ENQ+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?10,"Addiction Severity Index",!?15,"Site Report by Date"
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !!,"Results returned via Mailman. Please queue this report for after hours."
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !!,"Your Task Number is "_ZTSK
  • Line Location: QUEUE+6
Function Call: WRITE
  • Prompt: !,^(N)
  • Line Location: ZZ+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DTRANGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DTRANGE+5
Function Call: WRITE
  • Prompt: !,?7,"Ending Date must be closer to today than Beginning Date",!
  • Line Location: DTRANGE+8
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: DTRANGE+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BUILDIT+4, BUILDIT+5
^DPT - [#2] FINDIT+5
^TMP("YSASU" MAIN+1!, ZZ, FINDIT+7*, FINDIT+8*, BUILDIT+1!, BUILDIT+2*, BUILDIT+3*, BUILDIT+4*, BUILDIT+5*, BUILDIT+6*
, BUILDIT+7*, BUILDIT+8*, BUILDIT+9*, BUILDIT+10*, BUILDIT+11*, BUILDIT+12*, BUILDIT+13*, BUILDIT+14*
^YSTX(604 - [#604] FINDIT+2, FINDIT+3

Label References

Name Line Occurrences
$$SITE QUEUE+2
BUILDIT ENQ+3
DTRANGE MAIN+3, DTRANGE+8
FINDIT ENQ+2

Naked Globals

Name Field # of Occurrence
^( ZZ

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DTRANGE+1~, DTRANGE+2*
%DT("A" DTRANGE+2*, DTRANGE+5*
G MAIN+1~, FINDIT+10*, FINDIT+11*, FINDIT+12*, FINDIT+13*, FINDIT+14*
G0 MAIN+1~, FINDIT+3*, FINDIT+5, FINDIT+6, FINDIT+8, FINDIT+10, FINDIT+11
G5 MAIN+1~, FINDIT+3*, FINDIT+8, FINDIT+13, FINDIT+14
GP5 MAIN+1~, FINDIT+3*, FINDIT+8, FINDIT+12
IOF MAIN+2
IOP QUEUE+3~
J MAIN+1~
N MAIN+1~, ZZ*
U FINDIT+5, FINDIT+6, FINDIT+8, FINDIT+10, FINDIT+11, FINDIT+12, FINDIT+13, FINDIT+14, SITE+2
Y MAIN+1~, DTRANGE+3, DTRANGE+4, DTRANGE+6, DTRANGE+7, BUILDIT+4*, BUILDIT+5*
YSASBDT MAIN+1~, MAIN+3, DTRANGE+2*, DTRANGE+4*, DTRANGE+8, FINDIT+2, BUILDIT+4
YSASCNT MAIN+1~
YSASCNT2 MAIN+1~
YSASDT MAIN+1~, FINDIT+2*, FINDIT+8
YSASEDT MAIN+1~, MAIN+3, DTRANGE+2*, DTRANGE+7*, DTRANGE+8, FINDIT+2, BUILDIT+5
YSASITE MAIN+1~, QUEUE+2*, BUILDIT+3
YSASMCNT MAIN+1~
YSASMTC MAIN+1~
YSASN MAIN+1~, BUILDIT+1*, BUILDIT+2*, BUILDIT+3*, BUILDIT+4*, BUILDIT+5*, BUILDIT+6*, BUILDIT+7*, BUILDIT+8*, BUILDIT+9*
, BUILDIT+10*, BUILDIT+11*, BUILDIT+12*, BUILDIT+13*, BUILDIT+14*
YSASS MAIN+1~, BUILDIT+1*, BUILDIT+2
YSAWAIT MAIN+1~
YSAWAIT( FINDIT+13*
YSAWAIT(0 FINDIT+1*
YSAWAIT(1 FINDIT+1*, BUILDIT+13
YSCLASS MAIN+1~
YSCLASS( FINDIT+1*, FINDIT+10*, BUILDIT+9
YSCLASS(1 FINDIT+1*, BUILDIT+9
YSCLASS(2 FINDIT+1*, BUILDIT+9
YSCLASS(3 FINDIT+1*, BUILDIT+9
YSDA SITE+1~, SITE+2*, SITE+3
YSFL MAIN+1~
YSIFN MAIN+1~, FINDIT+2*, FINDIT+3, FINDIT+6, FINDIT+7, FINDIT+8
YSLOC MAIN+1~
YSNAME MAIN+1~, FINDIT+5*, FINDIT+6*, FINDIT+7
YSSIGND MAIN+1~
YSSIGND( FINDIT+12*
YSSIGND(0 FINDIT+1*, BUILDIT+11
YSSIGND(1 FINDIT+1*, BUILDIT+11
YSSPEC MAIN+1~
YSSPEC( FINDIT+1*, FINDIT+11*, BUILDIT+10
YSSPEC("N" FINDIT+1*, BUILDIT+10
YSSPEC(1 FINDIT+1*, BUILDIT+10
YSSPEC(2 FINDIT+1*, BUILDIT+10
YSSPEC(3 FINDIT+1*, BUILDIT+10
YSTOT MAIN+1~, FINDIT+1*, FINDIT+9*, BUILDIT+8
YSTRANS MAIN+1~
YSTRANS( FINDIT+14*
YSTRANS(0 FINDIT+1*, BUILDIT+12
YSTRANS(1 FINDIT+1*, BUILDIT+12
ZTDESC QUEUE+3~, QUEUE+4*
ZTIO QUEUE+3~, QUEUE+4*
>> ZTQUEUED ENQ+1
>> ZTREQ ENQ+1*
ZTRTN QUEUE+3~, QUEUE+4*
ZTSAVE QUEUE+3~
ZTSAVE("YSAS*" QUEUE+4*
>> ZTSK QUEUE+5, QUEUE+6
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