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

GMTSRAE1.m

Go to the documentation of this file.
GMTSRAE1 ; SLC/GSS Selected Radiology Extracts ; 01/17/2007
 ;;2.7;Health Summary;**84**;Oct 20, 1995;Build 6
 ;
 ; External References
 ;   DBIA  2056  $$GET1^DIQ (file 70, subfile 70.03, file 74)
 ;   DBIA   504  retrieve fields from file 75.1
 Q
GETHIS ; Gets Clinical History (#70/#74)
 N X,GMTSLN
 ; GMTSRA27=$$PROK^GMTSU("RAUTL9",27) -> vesion 27 of RAUTL9 in environment
 I +($G(GMTSRA27))>0 S X=$$GET1^DIQ(70.03,(GMTSPN_","_GMTSIDT_","_DFN_","),400,,"GMTST")
 I +($G(GMTSRA27))'>0 S X=$$GET1^DIQ(74,GMTSPTR,400,,"GMTST") ;Rad/Nuc Med reports for registered exams
 K ^UTILITY($J,"W") N X,GMTSI S GMTSI=0 F  S GMTSI=$O(GMTST(GMTSI)) Q:+GMTSI=0  S X=$G(GMTST(GMTSI)) D FORMAT^GMTSRAE
 I $D(^UTILITY($J,"W")) F GMTSLN=1:1:^UTILITY($J,"W",3) S ^TMP("RAE",$J,GMTSIDT,GMTSPN,"H",GMTSLN)=^UTILITY($J,"W",3,GMTSLN,0)
 K ^UTILITY($J,"W"),GMTST Q
 Q
GETR4S ; Gets Reason for Study
 N X
 S X=$$GET1^DIQ(75.1,GMTSIMGO,1.1) ;Rad/Nuc Med info pertaining to an imaging order
 I $D(X) S ^TMP("RAE",$J,GMTSIDT,GMTSPN,"S",1)=X ;Reason for Study (one line, max 64 char)
 Q