RMPREPDT ;HINES/HNC SUSPENSE PROCESSING DETAIL DISPLAY ; 25-JAN-2000
;;3.0;PROSTHETICS;**45**;Feb 09, 1996
EN ; -- main entry point for RMPR DETAILED DISPLAY
D ^%ZISC
K ^TMP("GMRCR",$J)
S GMRCOER=2
S RMPROER=$P(^RMPR(668,DA,0),U,15)
I RMPROER="" W !!!,"Nothing to Display, Manual Suspense." H 3 Q
;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)
;
D EN^VALM("RMPR DETAILED DISPLAY")
Q
;
ENP ;main entry point for Print Consultation Sheet
S RMPROER=$P(^RMPR(668,DA,0),U,15)
I RMPROER="" W !!!,"Nothing to Display, Manual Suspense." H 3 Q
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
K ^TMP("GMRCR",$J)
D FULL^VALM1
S VALMBCK="R"
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPREPDT 1170 printed Oct 16, 2024@18:35:10 Page 2
RMPREPDT ;HINES/HNC SUSPENSE PROCESSING DETAIL DISPLAY ; 25-JAN-2000
+1 ;;3.0;PROSTHETICS;**45**;Feb 09, 1996
EN ; -- main entry point for RMPR DETAILED DISPLAY
+1 DO ^%ZISC
+2 KILL ^TMP("GMRCR",$JOB)
+3 SET GMRCOER=2
+4 SET RMPROER=$PIECE(^RMPR(668,DA,0),U,15)
+5 IF RMPROER=""
WRITE !!!,"Nothing to Display, Manual Suspense."
HANG 3
QUIT
+6 ;field 20 ien to file 123
+7 ;create tmp array TMP(GMRCR,$J,DT)
+8 KILL DA
+9 DO DT^GMRCSLM2(RMPROER)
+10 SET VALMCNT=$ORDER(^TMP("GMRCR",$JOB,"DT",""),-1)
+11 ;
+12 DO EN^VALM("RMPR DETAILED DISPLAY")
+13 QUIT
+14 ;
ENP ;main entry point for Print Consultation Sheet
+1 SET RMPROER=$PIECE(^RMPR(668,DA,0),U,15)
+2 IF RMPROER=""
WRITE !!!,"Nothing to Display, Manual Suspense."
HANG 3
QUIT
+3 DO EN^GMRCP5(RMPROER)
+4 KILL RMPROER
+5 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 KILL ^TMP("GMRCR",$JOB)
+3 DO FULL^VALM1
+4 SET VALMBCK="R"
+5 QUIT
+6 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
