Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls