RMPR9EPD ;Hines IOFO/HNC - CPRS SUSPENSE DETAIL DISPLAY ;9/12/02 13:16
;;3.0;PROSTHETICS;**63,59**;Feb 09, 1996
EN(RESULTS,DA) ; -- main entry point for RMPR DETAILED DISPLAY
K ^TMP("GMRCR",$J)
S GMRCOER=2
S RMPROER=$P(^RMPR(668,DA,0),U,15)
I RMPROER="" G EXIT
;field 20 ien to file 123
;create tmp array TMP(GMRCR,$J,DT)
K DA
D DT^GMRCSLM2(RMPROER)
S VALMCNT=$O(^TMP("GMRCR",$J,"DT",""),-1)
S BA=0
F S BA=$O(^TMP("GMRCR",$J,"DT",BA)) Q:BA="" D
.S RESULTS(BA)=^TMP("GMRCR",$J,"DT",BA,0)
G EXIT
Q
;
ENP ;
D EN^GMRCP5(RMPROER)
K RMPROER
Q
HDR ; -- header code
;N VA,VADM
;S DFN=RMPRDFN
;D DEM^VADPT
S VALMHDR(1)="Detailed Display"
;S VALMHDR(2)="Open/Pending/Closed Suspense for "_$$LOWER^VALM1(VADM(1))_" ("_$P(VADM(2),U,2)_")"
;D KVAR^VADPT
Q
;
INIT ; -- init variables and list array
;
Q
;
;
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
;NOT XUSCLEAN
I '$D(RESULTS) S RESULTS(0)="Nothing to Display, Manual Suspense"
K ^TMP("GMRCR",$J)
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPR9EPD 1092 printed Oct 16, 2024@18:34:16 Page 2
RMPR9EPD ;Hines IOFO/HNC - CPRS SUSPENSE DETAIL DISPLAY ;9/12/02 13:16
+1 ;;3.0;PROSTHETICS;**63,59**;Feb 09, 1996
EN(RESULTS,DA) ; -- main entry point for RMPR DETAILED DISPLAY
+1 KILL ^TMP("GMRCR",$JOB)
+2 SET GMRCOER=2
+3 SET RMPROER=$PIECE(^RMPR(668,DA,0),U,15)
+4 IF RMPROER=""
GOTO EXIT
+5 ;field 20 ien to file 123
+6 ;create tmp array TMP(GMRCR,$J,DT)
+7 KILL DA
+8 DO DT^GMRCSLM2(RMPROER)
+9 SET VALMCNT=$ORDER(^TMP("GMRCR",$JOB,"DT",""),-1)
+10 SET BA=0
+11 FOR
SET BA=$ORDER(^TMP("GMRCR",$JOB,"DT",BA))
if BA=""
QUIT
Begin DoDot:1
+12 SET RESULTS(BA)=^TMP("GMRCR",$JOB,"DT",BA,0)
End DoDot:1
+13 GOTO EXIT
+14 QUIT
+15 ;
ENP ;
+1 DO EN^GMRCP5(RMPROER)
+2 KILL RMPROER
+3 QUIT
HDR ; -- header code
+1 ;N VA,VADM
+2 ;S DFN=RMPRDFN
+3 ;D DEM^VADPT
+4 SET VALMHDR(1)="Detailed Display"
+5 ;S VALMHDR(2)="Open/Pending/Closed Suspense for "_$$LOWER^VALM1(VADM(1))_" ("_$P(VADM(2),U,2)_")"
+6 ;D KVAR^VADPT
+7 QUIT
+8 ;
INIT ; -- init variables and list array
+1 ;
+2 QUIT
+3 ;
+4 ;
+5 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 ;NOT XUSCLEAN
+2 IF '$DATA(RESULTS)
SET RESULTS(0)="Nothing to Display, Manual Suspense"
+3 KILL ^TMP("GMRCR",$JOB)
+4 QUIT
+5 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
