Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RMPR9DM2

RMPR9DM2.m

Go to the documentation of this file.
RMPR9DM2 ;HOIFO/HNC - GUI PFFS DISABILITY AND PERCENT ;9/18/02  17:01
 ;;3.0;PROSTHETICS;**96**;Feb 09, 1996
A1(IEN) G A2
ENR(DFN) ;entry point for roll and scroll
 G ENC
EN(RESULTS,IEN) ;broker entry point
A2 ;
 S DFN=$P($G(^RMPR(660,IEN,0)),U,2)
 I DFN="" S RESULTS(0)="NOTHING FOUND" G EXIT
 ;new code
ENC ;roll and scroll starts here
 K RA
 D GETS^DIQ(2,DFN,".3721*","E","RA")
 I '$D(RA) G EXIT
 ;RA(2.04,"1,110,",.01,"E")=GOUT
 ;RA(2.04,"1,110,",2,"E")=10
 ;RA(2.04,"1,110,",3,"E")=YES
 S CNT=1,REC=0
 F  S REC=$O(RA(2.04,REC)) Q:REC=""  D
 .S RESULTS(CNT)=RA(2.04,REC,.01,"E")_U
 .S RESULTS(CNT)=RESULTS(CNT)_$G(RA(2.04,REC,2,"E"))_U
 .S RESULTS(CNT)=RESULTS(CNT)_$G(RA(2.04,REC,3,"E"))
 .S CNT=CNT+1
 ;
EXIT ;common exit point
 I '$D(RESULTS) S RESULTS(0)="NOTHING FOUND"
 K RA,IEN,REC,DFN,CNT
 ;END