Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMTSP105

GMTSP105.m

Go to the documentation of this file.
  1. GMTSP105 ; MWA/VMP - Pre install GMTS*2.7*105 ; 6/26/12 10:09am
  1. ;;2.7;Health Summary;**105**;;Build 5
  1. ;
  1. ;
  1. Q
  1. EN ; main entry point
  1. D BMES^XPDUTL("Starting Pre-install Routine...")
  1. D CHANGE
  1. D BMES^XPDUTL("Pre-install Routine Finished")
  1. Q
  1. CHANGE ; changes descriptions
  1. N CPNM,CPIEN
  1. K ^TMP("GMTSP105",$J)
  1. F CPNM="MHA Administration List","MHA Score" I $D(^GMT(142.1,"B",CPNM)) S CPIEN=$O(^GMT(142.1,"B",CPNM,0)) D
  1. .I CPNM="MHA Administration List" D Q
  1. ..I $G(^GMT(142.1,CPIEN,3.5,1,0))="This component displays all administrations of intruments in"!($G(^GMT(142.1,CPIEN,3.5,5,0))="Date ranges and maximum occurances apply. ") D
  1. ...M ^TMP("GMTSP105",$J,"WP")=^GMT(142.1,CPIEN,3.5)
  1. ...S:$G(^TMP("GMTSP105",$J,"WP",1,0))="This component displays all administrations of intruments in" ^TMP("GMTSP105",$J,"WP",1,0)="This component displays all administrations of instruments in"
  1. ...S:$G(^TMP("GMTSP105",$J,"WP",5,0))="Date ranges and maximum occurances apply. " ^TMP("GMTSP105",$J,"WP",5,0)="Date ranges and maximum occurrences apply."
  1. ...D DIECALL(142.1,CPIEN_",",3.5,"","^TMP(""GMTSP105"",$J,""WP"")")
  1. .I CPNM="MHA Score" D
  1. ..I $G(^GMT(142.1,CPIEN,3.5,2,0))="intruments in the mental health package. Tests, interviews and surveys from MH"!($G(^GMT(142.1,CPIEN,3.5,5,0))="Date ranges and maximum occurances apply.") D
  1. ...M ^TMP("GMTSP105",$J,"WP")=^GMT(142.1,CPIEN,3.5)
  1. ...S:$G(^TMP("GMTSP105",$J,"WP",2,0))="intruments in the mental health package. Tests, interviews and surveys from MH" ^TMP("GMTSP105",$J,"WP",2,0)="instruments in the mental health package. Tests, interviews and surveys from MH"
  1. ...S:$G(^TMP("GMTSP105",$J,"WP",5,0))="Date ranges and maximum occurances apply." ^TMP("GMTSP105",$J,"WP",5,0)="Date ranges and maximum occurrences apply."
  1. ...D DIECALL(142.1,CPIEN_",",3.5,"","^TMP(""GMTSP105"",$J,""WP"")")
  1. Q
  1. DIECALL(FILE,IENS,FIELD,FLAGS,ROOT) ; FILEMAN CALL
  1. D WP^DIE(FILE,IENS,FIELD,FLAGS,ROOT)
  1. K ^TMP("GMTSP105",$J)
  1. Q