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

RMPR9DM1.m

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