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

RMPR9CL.m

Go to the documentation of this file.
  1. RMPR9CL ;HOIFO/SPS - GUI 2319 TAB 2 LETTER LIST & DISPLAY ;9/26/02 10:09
  1. ;;3.0;PROSTHETICS;**59**;Feb 09, 1996
  1. A1(IEN) G A2
  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 TO REPORT" G EXIT
  1. ;List of Letters on File
  1. S RMPRDFN=DFN
  1. I '$D(^RMPR(665.4,"AH",RMPRDFN)) S RESULTS(0)="NOTHING TO REPORT" G EXIT
  1. N RMPRBDT,DIC,RB,RI,DR,DA,RMPLET,DIQ,Y,RO
  1. S (CNT,RMPRBDT,RI,RB,RO)=0,RMPRIN=-1,DIC=665.4,DR=".01;1;2;4;11",DIQ="RMPRLET"
  1. F S RMPRBDT=$O(^RMPR(665.4,"AH",RMPRDFN,RMPRBDT)) Q:RMPRBDT="" D Q:RO=1
  1. .S DA=0
  1. .F S DA=$O(^RMPR(665.4,"AH",RMPRDFN,RMPRBDT,DA)) Q:'DA D Q:RO=1
  1. ..S RI=RI+1,RI(RI)=DA D EN^DIQ1 Q:'$D(RMPRLET)
  1. ..S RESULTS(CNT)=DA_"^"_RMPRLET(665.4,DA,.01)_"^"_$G(RMPRLET(665.4,DA,1))_"^"_$E($G(RMPRLET(665.4,DA,4)),1,15)_"^"_$G(RMPRLET(665.4,DA,2))_$G(RMPRLET(665.4,DA,11))
  1. ..S CNT=CNT+1
  1. ..K RMPRLET
  1. Q
  1. A3(IEN) G A4
  1. EN1(RESULTS,IEN) ;
  1. A4 ;Print letter, IEN=internal entrie number of file 665.4
  1. I '$D(^RMPR(665.4,IEN)) S RESULTS(0)="NOTHING TO REPORT" G EXIT
  1. M RMPRTMP=^RMPR(665.4,IEN,1)
  1. K RMPRTMP(0)
  1. S RTST=0
  1. F S RTST=$O(RMPRTMP(RTST)) Q:RTST="" D
  1. . I '$D(RMPRTMP(RTST,0)) Q
  1. . S RF=$L(RMPRTMP(RTST,0),"|")
  1. . F RP=0:1:RF I $P(RMPRTMP(RTST,0),"|",RP)["TAB" D
  1. .. S $P(RMPRTMP(RTST,0),"|",RP)=" "
  1. . S RMPRTMP(RTST,0)=$TR(RMPRTMP(RTST,0),"|","")
  1. . S RMPRTMP(RTST)=RMPRTMP(RTST,0)
  1. . K RMPRTMP(RTST,0)
  1. M RESULTS=RMPRTMP
  1. EXIT ;common exit point
  1. I '$D(RESULTS) S RESULTS(0)="NOTHING TO REPORT"
  1. K CNT,DFN,RMPRTMP,RF,RO,RP
  1. ;END