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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSRAE1 1082 printed Dec 13, 2024@01:59:59 Page 2
GMTSRAE1 ; SLC/GSS Selected Radiology Extracts ; 01/17/2007
+1 ;;2.7;Health Summary;**84**;Oct 20, 1995;Build 6
+2 ;
+3 ; External References
+4 ; DBIA 2056 $$GET1^DIQ (file 70, subfile 70.03, file 74)
+5 ; DBIA 504 retrieve fields from file 75.1
+6 QUIT
GETHIS ; Gets Clinical History (#70/#74)
+1 NEW X,GMTSLN
+2 ; GMTSRA27=$$PROK^GMTSU("RAUTL9",27) -> vesion 27 of RAUTL9 in environment
+3 IF +($GET(GMTSRA27))>0
SET X=$$GET1^DIQ(70.03,(GMTSPN_","_GMTSIDT_","_DFN_","),400,,"GMTST")
+4 ;Rad/Nuc Med reports for registered exams
IF +($GET(GMTSRA27))'>0
SET X=$$GET1^DIQ(74,GMTSPTR,400,,"GMTST")
+5 KILL ^UTILITY($JOB,"W")
NEW X,GMTSI
SET GMTSI=0
FOR
SET GMTSI=$ORDER(GMTST(GMTSI))
if +GMTSI=0
QUIT
SET X=$GET(GMTST(GMTSI))
DO FORMAT^GMTSRAE
+6 IF $DATA(^UTILITY($JOB,"W"))
FOR GMTSLN=1:1:^UTILITY($JOB,"W",3)
SET ^TMP("RAE",$JOB,GMTSIDT,GMTSPN,"H",GMTSLN)=^UTILITY($JOB,"W",3,GMTSLN,0)
+7 KILL ^UTILITY($JOB,"W"),GMTST
QUIT
+8 QUIT
GETR4S ; Gets Reason for Study
+1 NEW X
+2 ;Rad/Nuc Med info pertaining to an imaging order
SET X=$$GET1^DIQ(75.1,GMTSIMGO,1.1)
+3 ;Reason for Study (one line, max 64 char)
IF $DATA(X)
SET ^TMP("RAE",$JOB,GMTSIDT,GMTSPN,"S",1)=X
+4 QUIT
