| 1 | GMTSRAE1 ; SLC/GSS Selected Radiology Extracts ; 01/17/2007
|
|---|
| 2 | ;;2.7;Health Summary;**84**;Oct 20, 1995;Build 6
|
|---|
| 3 | ;
|
|---|
| 4 | ; External References
|
|---|
| 5 | ; DBIA 2056 $$GET1^DIQ (file 70, subfile 70.03, file 74)
|
|---|
| 6 | ; DBIA 504 retrieve fields from file 75.1
|
|---|
| 7 | Q
|
|---|
| 8 | GETHIS ; Gets Clinical History (#70/#74)
|
|---|
| 9 | N X,GMTSLN
|
|---|
| 10 | ; GMTSRA27=$$PROK^GMTSU("RAUTL9",27) -> vesion 27 of RAUTL9 in environment
|
|---|
| 11 | I +($G(GMTSRA27))>0 S X=$$GET1^DIQ(70.03,(GMTSPN_","_GMTSIDT_","_DFN_","),400,,"GMTST")
|
|---|
| 12 | I +($G(GMTSRA27))'>0 S X=$$GET1^DIQ(74,GMTSPTR,400,,"GMTST") ;Rad/Nuc Med reports for registered exams
|
|---|
| 13 | 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
|
|---|
| 14 | 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)
|
|---|
| 15 | K ^UTILITY($J,"W"),GMTST Q
|
|---|
| 16 | Q
|
|---|
| 17 | GETR4S ; Gets Reason for Study
|
|---|
| 18 | N X
|
|---|
| 19 | S X=$$GET1^DIQ(75.1,GMTSIMGO,1.1) ;Rad/Nuc Med info pertaining to an imaging order
|
|---|
| 20 | I $D(X) S ^TMP("RAE",$J,GMTSIDT,GMTSPN,"S",1)=X ;Reason for Study (one line, max 64 char)
|
|---|
| 21 | Q
|
|---|
