source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSRAE1.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
RevLine 
[613]1GMTSRAE1 ; 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
8GETHIS ; 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
17GETR4S ; 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
Note: See TracBrowser for help on using the repository browser.