RMPR9EPD.m

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 ---RMPR9EPD   1092     printed  Apr 09, 2024@21:37:11                                                                                                                                                                                                    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       ;