source: FOIAVistA/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR9DM1.m@ 1765

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

initial load of FOIAVistA 6/30/08 version

File size: 807 bytes
Line 
1RMPR9DM1 ;HOIFO/HNC - GUI 2319 MAS DISABILITY AND PERCENT ;9/18/02 17:01
2 ;;3.0;PROSTHETICS;**59**;Feb 09, 1996
3A1(IEN) G A2
4ENR(DFN) ;entry point for roll and scroll
5 G ENC
6EN(RESULTS,IEN) ;broker entry point
7A2 ;
8 S DFN=$P($G(^RMPR(668,IEN,0)),U,2)
9 I DFN="" S RESULTS(0)="NOTHING FOUND" G EXIT
10 ;new code
11ENC ;roll and scroll starts here
12 K RA
13 D GETS^DIQ(2,DFN,".3721*","E","RA")
14 I '$D(RA) G EXIT
15 ;RA(2.04,"1,110,",.01,"E")=GOUT
16 ;RA(2.04,"1,110,",2,"E")=10
17 ;RA(2.04,"1,110,",3,"E")=YES
18 S CNT=1,REC=0
19 F S REC=$O(RA(2.04,REC)) Q:REC="" D
20 .S RESULTS(CNT)=RA(2.04,REC,.01,"E")_U
21 .S RESULTS(CNT)=RESULTS(CNT)_$G(RA(2.04,REC,2,"E"))_U
22 .S RESULTS(CNT)=RESULTS(CNT)_$G(RA(2.04,REC,3,"E"))
23 .S CNT=CNT+1
24 ;
25EXIT ;common exit point
26 I '$D(RESULTS) S RESULTS(0)="NOTHING FOUND"
27 K RA,IEN,REC,DFN
28 ;END
Note: See TracBrowser for help on using the repository browser.