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

Package: Mental Health

Routine: YSMTI


Information

YSMTI ;ALB/ASF - MUTLIPLE PSYCH TESTS AND INTERVIEWS ;7/23/99 09:50

Source Information

Source file <YSMTI.m>

Entry Points

Name Comments DBIA/ICR reference
PTALL ; SELECT PT
SELTST ;select test
SELSCAL ;
ENTASK ;taskman entry
HDR ;
CR ;loop thru TMP
CR1
ENFRNT ;
LK2 ;LOOP THRU DATES
EXEC ;SELECT TYPE OF TEST AND EXECUTE PROPER RTN
FSD ;file scale data
FSD1 ;
FRONT ; front end output
FOUT2
FRONT1
TLIST ;list of tests for a pt

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?10,"Psychological Testing Mutliple Administraion Reporting",!
  • Line Location: YSMTI+3
Function Call: WRITE
  • Prompt: !,"No Tests found"
  • Line Location: PTALL+3
Function Call: WRITE
  • Prompt: !,"Only Tests can be graphed"
  • Line Location: SELTST+2
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"QUEUED",1:"Not queued"),$C(7)
  • Line Location: SELSCAL+5
Function Call: WRITE
  • Prompt: @IOF,!?7,"**** M U L T I P L E T E S T A D M I N I S T R A T I O N S ****"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,VADM(1),?40,"SSN: xxx-xx-"_$E($P(VADM(2),U,2),8,11)," ",$P(VADM(5),U,2),?60," DOB: ",$P(VADM(3),U,2)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?(72-$L(X)/2),X
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,YSLN,!?(72-$L(X)/2),X,!,YSLN
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Entered: Days between Raw Scaled"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: CR+2
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT(YSED,"5ZD"),?14,$S(YSED1:$J(YSED1,5),1:" "),?24,$J(R,6)," ",$J(S,6)
  • Line Location: CR1+3
Function Call: WRITE
  • Prompt: "11111<BOT>",$C(13)
  • Line Location: FRONT+3
Function Call: WRITE
  • Prompt: "<EOT>",$C(13)
  • Line Location: FOUT2+1
Function Call: WRITE
  • Prompt: Y1,$C(13)
  • Line Location: FRONT1+3
Function Call: WRITE
  • Prompt: "11111<BOT>",$C(13)
  • Line Location: TLIST+1
Function Call: WRITE
  • Prompt: YSTEST_U_$P(^YTT(601,YSTEST,0),U)_U_$P(^YTT(601,YSTEST,"P"),"---",2)_$C(13)
  • Line Location: TLIST+2
Function Call: WRITE
  • Prompt: "<EOT>",$C(13)
  • Line Location: TLIST+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YTD(601.2 - [#601.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call