GMTSRAE1.m

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 ---GMTSRAE1   1082     printed  Apr 23, 2025@18:14:26                                                                                                                                                                                                    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