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

Package: Health Summary

Routine: GMTSYTQS


Information

GMTSYTQS ;SLC/JMH & ALB/ASF - MHA SCORE ; 10/3/07 12:05pm

Source Information

Source file <GMTSYTQS.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; MHA SCOREIT
OUT ; Output
SCORE ;
GAFSCORE ;
ASISCORE ;
LINE ; Output One Line
HDR ; Header
GET ; Get and Format Data
ASIGET ;
GAFGET ;get axis5
ITM(X) ; Inverse date to Mental Health formats
DTM(X) ; Current Date and Time (External)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?42,$J(GMTSRAW,5)," ",$J(GMTSTRA,8)," ",GMTSSCL,!
  • Line Location: SCORE+12
Function Call: WRITE
  • Prompt: $J($P(GMTSJ,U,2),5),!
  • Line Location: GAFSCORE+1
Function Call: WRITE
  • Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",8.12),5),$J($$GET1^DIQ(604,IFN_",",.61),8)," Medical",!
  • Line Location: ASISCORE+3
Function Call: WRITE
  • Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",9.34),5),$J($$GET1^DIQ(604,IFN_",",.62),5)," Employment",!
  • Line Location: ASISCORE+4
Function Call: WRITE
  • Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",11.18),5),$J($$GET1^DIQ(604,IFN_",",.63),5)," Alcohol",!
  • Line Location: ASISCORE+5
Function Call: WRITE
  • Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",11.185),5),$J($$GET1^DIQ(604,IFN_",",.635),5)," Drug",!
  • Line Location: ASISCORE+6
Function Call: WRITE
  • Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",14.34),5),$J($$GET1^DIQ(604,IFN_",",.64),5)," Legal",!
  • Line Location: ASISCORE+7
Function Call: WRITE
  • Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",18.29),5),$J($$GET1^DIQ(604,IFN_",",.65),5)," Family",!
  • Line Location: ASISCORE+8
Function Call: WRITE
  • Prompt: ?42,$J($$GET1^DIQ(604,IFN_",",19.33),5),$J($$GET1^DIQ(604,IFN_",",.66),5)," Psychiatric",!
  • Line Location: ASISCORE+9
Function Call: WRITE
  • Prompt: GMTSDAY,?20,$J($E(GMTSTN,1,20)_$S($L(GMTSTN)>20:"* ",1:" "),22)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: "Date",?31,"Instrument Raw Trans Scale",!
  • Line Location: HDR+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YTT(601.84 - [#601.84] EXTERNAL^DILFD
^YSTX(604 - [#604] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call