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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: YTQPRT

Package: Mental Health

Routine: YTQPRT


Information

YTQPRT ;ASF/ALB MHA3 PRINT TEST; 2/24/10 1:27pm

Source Information

Source file <YTQPRT.m>

Entry Points

Name Comments DBIA/ICR reference
FORM ;print for clinicians
FA
QOUT ;pull text and intros
PRTTEST ;print for developers
EN1 ;
GETTEXT ;pull text and intros
SCALES ;scales
SKIP ;skip questions
RULESKIP ;rules that skip questions
REPORT ;display report setup
IENCK(NN) ;check ien< 100,000
WAIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?7,YSCODE
  • Line Location: FA+0
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(601.71,YSCODEN_",","PRINT TITLE")
  • Line Location: FA+1
Function Call: WRITE
  • Prompt: !,"_____ ",$S(YSIDENT=0:YSI-1_".",YSIDENT="N":"",1:YSI_".")," ",YSCTEXT
  • Line Location: FA+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: QOUT+1
Function Call: WRITE
  • Prompt: !,^YTT(601.73,YSINTRO,1,N1,0)
  • Line Location: QOUT+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: N1>1
  • Line Location: QOUT+4
Function Call: WRITE
  • Prompt: ^YTT(601.72,YSQN,1,N1,0)
  • Line Location: QOUT+4
Function Call: WRITE
  • Prompt: @IOF,!?10,"*** ",YSCODE," ***",!
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,"Choicetype: ",YSCTYPE
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: " identifier: "
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: $P($G(^YTT(601.89,YSIDENT,0)),U,2)
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: !,"# "_YSCHOICE_" Leg: "_YSLEG_" "_YSCTEXT
  • Line Location: EN1+23
Function Call: WRITE
  • Prompt: !!,"<<",YSEQ,">> Question#"_YSQN," Display Q: ",YSQDISP," I: ",YSIDISP," C: ",YSCDISP
  • Line Location: GETTEXT+1
Function Call: WRITE
  • Prompt: !,^YTT(601.73,YSINTRO,1,N1,0)
  • Line Location: GETTEXT+3
Function Call: WRITE
  • Prompt: !,^YTT(601.72,YSQN,1,N1,0)
  • Line Location: GETTEXT+4
Function Call: WRITE
  • Prompt: !!!?5,"*** Scales ***",!
  • Line Location: SCALES+1
Function Call: WRITE
  • Prompt: !,"scale group: ",+$P(G,"=",2)," ",$P(G,U,3)
  • Line Location: SCALES+6
Function Call: WRITE
  • Prompt: !,YSSCIEN,?10,YSSCALE
  • Line Location: SCALES+8
Function Call: WRITE
  • Prompt: !?5,"# Question target ADD"
  • Line Location: SCALES+10
Function Call: WRITE
  • Prompt: !?5,+G,?12,$P(G,U,3)," ",$P(G,U,4)," ",$P(G,U,5)
  • Line Location: SCALES+11
Function Call: WRITE
  • Prompt: !!!?5,"*** Skips ***",!
  • Line Location: SKIP+1
Function Call: WRITE
  • Prompt: !,"SkipID: "+$P(G,U)_" RuleId: "_$P(G,U,3)_" QuestionID: "_$P(G,U,4)
  • Line Location: SKIP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RULESKIP+3
Function Call: WRITE
  • Prompt: !!,"REPORT: not defined",!!
  • Line Location: REPORT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: REPORT+3
Function Call: WRITE
  • Prompt: !,"###### not national ######## ",^YTT(601.751,J,0)
  • Line Location: IENCK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YTT(601.71 - [#601.71] Classic Fileman Calls,  GET1^DIQ
^YTT(601.74 - [#601.74] GET1^DIQ
^YTT(601.82 - [#601.82] Classic Fileman Calls
^YTT(601.93 - [#601.93] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call