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

Package: Mental Health

Routine: YTDP


Information

YTDP ;SLC/TGA-PRINT & DUPLICATE REPORTS ;11/27/91 15:02

Source Information

Source file <YTDP.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  (,KILL)^%ZTLOAD  $$FMTE^XLFDT  
Mental Health 3 ^YTDP1  (DTA,IR)^YTREPT  KAR^YTS  
VA FileMan 2 DD^%DT  ^DIR  

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

Package Total Caller Graph
Mental Health 3 YTEXT  YTONLY  YTS  

Entry Points

Name Comments DBIA/ICR reference
DU ;
D1 ;
RP ;
RP1 ;
RP10 ;
CONB
RP11 ;
RP21 ;
DAT ;
DIS ;
CR ;
NL ;
IP ;
PS ;
SCR1 ;
; Added 5/6/94 LJA
CK ;

External References

Name Field # of Occurrence
DD^%DT CONB+3
^%ZIS RP+1
^%ZTLOAD RP+3
KILL^%ZTLOAD RP10+1
^DIR SCR1+8
$$FMTE^XLFDT DAT+1
^YTDP1 RP11+1
DTA^YTREPT CONB+4, CK+1
IR^YTREPT RP11+2
KAR^YTS YTDP+3, DU+1, D1+1, RP+1, RP+3, RP10+1, RP10+3, CONB+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?50,$J(B+K,3,0)," ",$P(A1(B+K),U)
  • Line Location: YTDP+5
Function Call: WRITE
  • Prompt: ?62,YSDT
  • Line Location: YTDP+5
Function Call: READ
  • Variable: M
  • Timeout: DTIME
  • Line Location: DU+1
Function Call: WRITE
  • Prompt: !?10,"Select ",$S('T1:"Instrument",1:T1(0))," # : " R M:DTIME S YSTOUT='$T,YSUOUT=M["^"
  • Line Location: DU+1
Function Call: WRITE
  • Prompt: !!?10,"Type ONLY the NUMBER of the instrument you wish to print",!
  • Line Location: DU+2
Function Call: WRITE
  • Prompt: !!,"Type 'Q' to queue to a printer.",!
  • Line Location: RP+1
Function Call: WRITE
  • Prompt: !,$C(7),"You must QUEUE to a PRINTER!"
  • Line Location: RP+2
Function Call: WRITE
  • Prompt: !!!
  • Line Location: CONB+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CONB+5
Function Call: WRITE
  • Prompt: "Not valid unless signed: Reviewed by ................................",!,"Printed by: ",$P(^VA(200,DUZ,0),U)," "
  • Line Location: CONB+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CONB+8
Function Call: WRITE
  • Prompt: "Ordered by: ",$P(^(0),U)
  • Line Location: CONB+8
Function Call: WRITE
  • Prompt: !!?10,"Discontinued Instruments Exist",!
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !!!?3,^YTT(601.3,YSCHN,1,1,0)," ",YSCD," ",^YTT(601.3,YSCHN,1,2,0)
  • Line Location: CR+3
Function Call: WRITE
  • Prompt: !?3,^(YSTX,0)
  • Line Location: NL+1
Function Call: WRITE
  • Prompt: !!!?3,^YTT(601.3,YSCHN,1,1,0)
  • Line Location: IP+1
Function Call: WRITE
  • Prompt: !?3,^YTT(601.3,YSCHN,1,2,0),YSTNM,",",!?3,^YTT(601.3,YSCHN,1,3,0)," ",YSCD," ",^YTT(601.3,YSCHN,1,4,0),!?3,^YTT(601.3,YSCHN,1,5,0)
  • Line Location: IP+1
Function Call: WRITE
  • Prompt: !!!?3,^YTT(601.3,YSCHN,1,1,0),YSTNM
  • Line Location: PS+1
Function Call: WRITE
  • Prompt: !?3,^YTT(601.3,YSCHN,1,2,0)," ",YSCD,!?3,^YTT(601.3,YSCHN,1,3,0)," ",^YTT(601.3,YSCHN,1,4,0)
  • Line Location: PS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SCR1+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCR1+9
Routine Call
  • DIR
  • Line Location:
    • SCR1+8
Routine Call
  • %ZIS
  • Line Location:
    • RP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] CONB+6, CONB+8
^YTD(601.2 - [#601.2] CONB+7, RP11+1
^YTD(601.4 - [#601.4] DIS+1
^YTT(601 - [#601] RP10+2, RP10+3, CONB+1, CONB+2, CONB+3, RP11+2, CR+2
^YTT(601.3 - [#601.3] CONB+3, CR+3, NL+1, IP+1, PS+1

Label References

Name Line Occurrences
@( RP11+2
CK CR+2
CONB RP10+2
CR CONB+3
D1 DU+1
DAT YTDP+5, CONB
DIS YTDP+3, YTDP+6
DU DU+2, DU+3
IP CR+2
NL NL+1
PS CR+2
RP RP+2
RP10 RP21+2
RP11 CONB+4
RP21 CONB+3, RP11+1, RP11+2
SCR1 RP11+1, RP11+2, CK+1

Naked Globals

Name Field # of Occurrence
^( NL+1
^("R" CONB+2
^(0 CONB+3, CONB+8, RP11+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS RP+1*
A SCR1+2~
>> A1( YTDP+5, DU+3
B YTDP+4*, YTDP+5, SCR1+2~
B1 SCR1+2~
C SCR1+2~
D SCR1+2~
DIR SCR1+8!
DIR(0 SCR1+8*
DIRUT SCR1+7~
DTIME DU+1
DTOUT SCR1+7~, SCR1+8
DUOUT SCR1+7~, SCR1+8
DUZ CONB+6
E SCR1+2~
E1 SCR1+2~
F SCR1+2~
F1 SCR1+2~
G SCR1+2~
G1 SCR1+2~
H SCR1+2~
I CONB+5*, SCR1+2~
>> I0 SCR1+6*
IO RP+2, RP1+2
IO("Q" RP+2, RP+3!
IO(0 RP+2
IOF SCR1+9
IOSL CONB+4, CONB+5, SCR1+6
IOST RP+2, RP1+2
J RP21+1!, SCR1+2~
J1 SCR1+2~
J2 SCR1+2~
J3 SCR1+2~
J4 SCR1+2~
K YTDP+5*, SCR1+2~
L SCR1+2~
L1 SCR1+2~
L2 SCR1+2~
M DU+1*, DU+2, DU+3, SCR1+2~
N SCR1+2~
N1 SCR1+3~
N2 SCR1+3~
N3 SCR1+3~
N4 SCR1+3~
P SCR1+3~
P0 RP1+2*, CONB+4, RP11+1, RP11+2, CR+1, SCR1+3~, CK+1
P1 CR+1*, CR+2, SCR1+3~
P3 SCR1+3~
>> POP RP+1
R RP21+1!, SCR1+3~
R1 SCR1+3~
S RP21+1!, SCR1+3~
S1 SCR1+3~
T SCR1+3~
T1 YTDP+3*, YTDP+6, DU+1, SCR1+3~
T1(0 YTDP+3, YTDP+6, DU+1
T2 SCR1+3~
TT SCR1+3~
U YTDP+5, DU+3, RP10+1, RP10+2, CONB+3, CONB+6, CONB+7, CONB+8, RP11+1, RP11+2
, CR+2
V SCR1+3~
V1 SCR1+3~
V2 SCR1+3~
V3 SCR1+3~
V4 SCR1+4~
V5 SCR1+4~
V6 SCR1+4~
W SCR1+4~
X RP21+1!, SCR1+4~
X0 SCR1+4~
X1 SCR1+4~
X2 SCR1+4~
X3 SCR1+4~
X4 SCR1+4~
X7 SCR1+4~
X8 SCR1+4~
X9 SCR1+4~
Y CONB+3*, SCR1+4~
Y1 SCR1+4~
Y2 SCR1+4~
YSCD CONB+3*, CR+3, IP+1!, PS+1!
YSCH CONB+3*, CR+2, IP+1!, PS+1!
YSCHN CONB+3*, CR+3, NL+1, IP+1!, PS+1!
>> YSDFN CONB+7, RP11+1, DIS+1
>> YSDT YTDP+5*, CONB*, DAT+1*
>> YSED CONB*, CONB+7, RP11+1
>> YSET CONB*, CONB+7, RP11+1
YSFORM CONB+3, RP21+1!
>> YSHD CONB*
>> YSHDR CONB*
>> YSLFT RP1+2*, CONB+3, RP11+1, RP11+2, CR+2, SCR1+6, SCR1+8*
YSMX RP21+1!
YSNOITEM RP11+2, RP21+1!
>> YSNT YTDP+3, YTDP+4, YTDP+5, DU+2
>> YSORD CONB+7*, CONB+8
>> YSTEST RP10+1*, RP10+2*, RP10+3*, CONB*, CONB+1, CONB+2, CONB+3, RP11+2, CR+2
YSTESTS RP10+2*, RP10+3!, CONB+1
YSTNM CR+2*, IP+1!, PS+1!
>> YSTOUT DU+1*, RP21+2, SCR1+8*, CK+1
YSTX CR+3*, NL+1*, IP+1!, PS+1!
>> YSUOUT DU+1*, RP11+1, RP21+2, SCR1+8*, CK+1
>> YSXT YTDP+3*, DU+3*, D1+1, RP10+1, RP10+2, RP21+2*
>> YSXTP RP1+2*, RP10+1, RP10+2*, RP21+2*
Z SCR1+4~
Z1 SCR1+4~
Z3 SCR1+4~
>> ZTDESC RP+3*
>> ZTQUEUED RP1+1
>> ZTREQ RP1+1*
>> ZTRTN RP+3*
>> ZTSAVE("YS*" RP+3*
>> ZTSK RP+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All