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
|
---|