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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMDIFF,$$FMTE)^XLFDT  
VA FileMan 2 ^DIC  ^DIR  
Mental Health 1 ^YSMTI0  
Registration 1 (DEM,PID)^VADPT  

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

Package Total Caller Graph
Mental Health 2 YSMTI0  YT MTI  

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

External References

Name Field # of Occurrence
^%ZIS SELSCAL+4
HOME^%ZIS SELSCAL+6
^%ZISC SELSCAL+6
^%ZTLOAD SELSCAL+5
^DIC PTALL+1, SELTST+1, SELSCAL+3
^DIR SELSCAL+1
DEM^VADPT ENFRNT+1
PID^VADPT ENFRNT+1
$$FMDIFF^XLFDT CR1+1
$$FMTE^XLFDT CR1+3, FRONT1+2
^YSMTI0 SELSCAL+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?10,"Psychological Testing Mutliple Administraion Reporting",!
  • Line Location: YSMTI+2
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: ",$P(VADM(2),U,2)," ",$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
Routine Call
  • %ZIS
  • Line Location:
    • SELSCAL+4
Routine Call
  • %ZIS
  • Line Location:
    • SELSCAL+6
Routine Call
  • DIC
  • Line Location:
    • PTALL+1
    • SELTST+1
    • SELSCAL+3
Routine Call
  • DIR
  • Line Location:
    • SELSCAL+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YTD(601.2 - [#601.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("YSMTI" PTALL+2!, CR+1, CR1FSD+1*, FSD+2*, FSD1+1*, FRONT+1!, FOUT2FRONT1
^YTD(601.2 - [#601.2] PTALL+3, LK2+1, TLIST+2
^YTT(601 - [#601] SELTST+1, SELTST+2, HDR+4, EXEC+1, FRONT1+2, TLIST+2
^YTT(601.6 - [#601.6] EXEC+2, EXEC+3

Label References

Name Line Occurrences
CR SELSCAL+6, ENTASK+2
CR1 CR+1
ENFRNT SELTST+3, ENTASK+2, FRONT+2
EXEC LK2+1
FRONT1 FOUT2
FSD LK2+1
FSD1 FSD+3
HDR SELSCAL+6, ENTASK+2
SELSCAL SELSCAL+2, SELSCAL+5, SELSCAL+7
SELTST SELTST+2, SELSCAL+3

Naked Globals

Name Field # of Occurrence
^( FSD+2*, FSD1+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS SELSCAL+4*
>> DFN ENFRNT+1*
DIC PTALL+1!*, SELTST+1!*, SELSCAL+3!*
DIC("A" PTALL+1*, SELSCAL+3*
DIC("W" SELSCAL+3*
DIC(0 PTALL+1*, SELTST+1*, SELSCAL+3*
DIK PTALL+1!
DIR SELSCAL+1!
DIR("A" SELSCAL+1*
DIR("B" SELSCAL+1*
DIR(0 SELSCAL+1*
>> DIROUT SELSCAL+1
>> I FSD+2*, FSD1+1*
>> I1 FSD+3*, FSD1+1
IO SELSCAL+6
IO("Q" SELSCAL+5!
IOF YSMTI+2, HDR+2
IOP SELSCAL+4!
>> P3 FRONT+1, TLIST+1
>> P4 FRONT+1
>> P5 FRONT+1
>> POP SELSCAL+4
R CR1+1*, CR1+3, EXEC+1!, FSD+1, FSD+2
R( FSD+3, FSD1+1
S CR1+1*, CR1+3, EXEC+1!, FSD+2
S( FSD1+1
U SELTST+1, SELTST+2, SELSCAL+3, HDR+3, HDR+4, CR1+1, ENFRNT+2, EXEC+1, EXEC+3, FSD+2
FSD1+1, FRONT1+2, TLIST+2
>> VA("PID" ENFRNT+2
>> VADM(1 HDR+3, ENFRNT+2
>> VADM(2 HDR+3
>> VADM(3 HDR+3, ENFRNT+2
>> VADM(4 ENFRNT+2
>> VADM(5 HDR+3, ENFRNT+2
>> X HDR+4*, HDR+5*, EXEC+1*, EXEC+3*
>> Y PTALL+1, SELTST+1, SELSCAL+1*, SELSCAL+2, SELSCAL+3, CR1*, CR1+1, FRONT1*, FRONT1+2
>> Y(0 SELSCAL+3
>> Y1 FRONT1+2*, FRONT1+3
>> YSAGE ENFRNT+2*
>> YSCALEN SELSCAL+3*, CR+1, CR1FSD+3*, FSD1+1*
>> YSCALET SELSCAL+3*, HDR+5
>> YSDAT LK2+1*
>> YSDFN PTALL+1*, PTALL+2, PTALL+3, CR+1, CR1ENFRNT+1, LK2+1, FSD+1, FSD+2, FSD1+1
FRONT+1*, FOUT2FRONT1TLIST+1*, TLIST+2
>> YSDOB ENFRNT+2*
>> YSED CR+1*, CR1CR1+1, CR1+3, LK2+1*, FSD+1, FSD+2, FSD1+1, FOUT2*, FRONT1
FRONT1+2
>> YSED1 CR+1*, CR1+1*, CR1+3
>> YSET SELTST+1*, ENFRNT+1*, EXEC+2, EXEC+3, FSD+1, FSD+2, FSD1+1, FRONT+1*, FOUT2FRONT1
FRONT1+2
>> YSLN HDR+1*, HDR+5
>> YSNM ENFRNT+2*
>> YSNSCALE FRONT+1*, FOUT2FRONT1FRONT1+2
>> YSR(0 EXEC+2*, EXEC+3
>> YSSEX ENFRNT+2*
>> YSSSN ENFRNT+2*
>> YSSX ENFRNT+2*
>> YSTEST SELTST+1*, SELTST+2, HDR+4, CR+1, CR1ENFRNT+1, LK2+1, EXEC+1, FRONT+1*, TLIST+2*
>> YSTESTA SELTST+1*, SELSCAL+1
>> YSTN EXEC+1*
>> ZTDESC SELSCAL+5*
>> ZTQUEUED ENTASK+1
>> ZTREQ ENTASK+1*
>> ZTRTN SELSCAL+5*
>> ZTSAVE("YS*" SELSCAL+5*
>> ZTSK SELSCAL+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All