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

Package: Mental Health

Routine: YTAUDIT


Information

YTAUDIT ;SLC/TGA-AUDIT PSYCH TESTS ; 7/10/89 11:20 ;

Source Information

Source file <YTAUDIT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  $$FMTE^XLFDT  
Mental Health 1 WAIT^YSUTL  
VA FileMan 1 ^%DT  

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

Package Total Caller Graph
Mental Health 2 YSTSTAUD  YTCHECK  

Entry Points

Name Comments DBIA/ICR reference
CK ;
ENP ;
END ;
H ;
1 ;
P ;
DT ;

External References

Name Field # of Occurrence
^%DT 1+1, 1+2
^%ZIS 1+3
^%ZISC ENP+2
^%ZTLOAD 1+3
KILL^%ZTLOAD ENP+2
$$FMTE^XLFDT P+3
WAIT^YSUTL CK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?30,"Test/Interview Audit"
  • Line Location: YTAUDIT+5
Function Call: WRITE
  • Prompt: !!!
  • Line Location: YTAUDIT+5
Function Call: WRITE
  • Prompt: " ?",$C(7),!,"Ending date may not be after begining date!"
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ENP+2
Function Call: WRITE
  • Prompt: P(1),?35,T(1),?47,$$FMTE^XLFDT(D,"5ZD"),!?10,D(4),?49,D(3),!!
  • Line Location: P+3
Function Call: WRITE
  • Prompt: @IOF,"Test Audit for Period ",?22
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?34," through ",?42
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?34," through ",?42
  • Line Location: H+1
Function Call: WRITE
  • Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" "
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: $J(Y#100\1,2)_","
  • Condition for execution: Y#100
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: Y\10000+1700
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
  • Condition for execution: Y#1
  • Line Location: DT+1
Routine Call
  • %ZIS
  • Line Location:
    • 1+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] P+1
^VA(200 - [#200] P+2
^YTD(601.2 - [#601.2] ENP+1, P+1
^YTT(601 - [#601] ENP+1, P+1

Label References

Name Line Occurrences
1 1+2
CK P+3
DT H+1
END 1+1, 1+2, 1+3, ENP+2
H ENP+1, CK+1
P ENP+1

Naked Globals

Name Field # of Occurrence
^(0 P+1, P+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT 1+1*, END+1!
%DT("A" 1+1*, 1+2*
%ZIS 1+3*, END+1!
D ENP+1*, P+1, P+3, END+1!
D(1 P+1*
D(3 P+1*, P+2*, P+3
D(4 P+1*, P+2*, P+3
I0 END+1!
IO ENP+1
IO("Q" 1+3, END+1!
IOF YTAUDIT+5, H+1
IOSL P+3
IOST ENP+1
P ENP+1*, P+1, END+1!
P(1 P+1*, P+3
P0 ENP+1*, END+1!, CK+1
P1 ENP+1*, P+3, END+1!
>> POP 1+3
T ENP+1*, P+1, END+1!
T(1 P+1*, P+3
U P+1, P+2, DT+1
X END+1!
Y 1+1, 1+2, 1+3, END+1!, H+1*, DT+1
YSB 1+1*, 1+2, 1+3, END+1!, H+1
YSE 1+3*, ENP+1, END+1!, H+1
YSFLB 1+3*, ENP+1, END+1!
YSLFT ENP+1*, P+3, END+1!, CK+1
>> ZTDESC 1+3*
>> ZTRTN 1+3*
>> ZTSAVE("YSB" 1+3*
>> ZTSAVE("YSE" 1+3*
>> ZTSAVE("YSFLB" 1+3*
ZTSK END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All