| [613] | 1 | RMPREPDT ;HINES/HNC SUSPENSE PROCESSING DETAIL DISPLAY ; 25-JAN-2000
|
|---|
| 2 | ;;3.0;PROSTHETICS;**45**;Feb 09, 1996
|
|---|
| 3 | EN ; -- main entry point for RMPR DETAILED DISPLAY
|
|---|
| 4 | D ^%ZISC
|
|---|
| 5 | K ^TMP("GMRCR",$J)
|
|---|
| 6 | S GMRCOER=2
|
|---|
| 7 | S RMPROER=$P(^RMPR(668,DA,0),U,15)
|
|---|
| 8 | I RMPROER="" W !!!,"Nothing to Display, Manual Suspense." H 3 Q
|
|---|
| 9 | ;field 20 ien to file 123
|
|---|
| 10 | ;create tmp array TMP(GMRCR,$J,DT)
|
|---|
| 11 | K DA
|
|---|
| 12 | D DT^GMRCSLM2(RMPROER)
|
|---|
| 13 | S VALMCNT=$O(^TMP("GMRCR",$J,"DT",""),-1)
|
|---|
| 14 | ;
|
|---|
| 15 | D EN^VALM("RMPR DETAILED DISPLAY")
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | ENP ;main entry point for Print Consultation Sheet
|
|---|
| 19 | S RMPROER=$P(^RMPR(668,DA,0),U,15)
|
|---|
| 20 | I RMPROER="" W !!!,"Nothing to Display, Manual Suspense." H 3 Q
|
|---|
| 21 | D EN^GMRCP5(RMPROER)
|
|---|
| 22 | K RMPROER
|
|---|
| 23 | Q
|
|---|
| 24 | HDR ; -- header code
|
|---|
| 25 | ;N VA,VADM
|
|---|
| 26 | ;S DFN=RMPRDFN
|
|---|
| 27 | ;D DEM^VADPT
|
|---|
| 28 | S VALMHDR(1)="Detailed Display"
|
|---|
| 29 | ;S VALMHDR(2)="Open/Pending/Closed Suspense for "_$$LOWER^VALM1(VADM(1))_" ("_$P(VADM(2),U,2)_")"
|
|---|
| 30 | ;D KVAR^VADPT
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | INIT ; -- init variables and list array
|
|---|
| 34 | ;
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | ;
|
|---|
| 38 | ;
|
|---|
| 39 | HELP ; -- help code
|
|---|
| 40 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 41 | Q
|
|---|
| 42 | ;
|
|---|
| 43 | EXIT ; -- exit code
|
|---|
| 44 | ;NOT XUSCLEAN
|
|---|
| 45 | K ^TMP("GMRCR",$J)
|
|---|
| 46 | D FULL^VALM1
|
|---|
| 47 | S VALMBCK="R"
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
| 50 | EXPND ; -- expand code
|
|---|
| 51 | Q
|
|---|
| 52 | ;
|
|---|
