source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR9EPD.m@ 1432

Last change on this file since 1432 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
RevLine 
[613]1RMPR9EPD ;Hines IOFO/HNC - CPRS SUSPENSE DETAIL DISPLAY ;9/12/02 13:16
2 ;;3.0;PROSTHETICS;**63,59**;Feb 09, 1996
3EN(RESULTS,DA) ; -- main entry point for RMPR DETAILED DISPLAY
4 K ^TMP("GMRCR",$J)
5 S GMRCOER=2
6 S RMPROER=$P(^RMPR(668,DA,0),U,15)
7 I RMPROER="" G EXIT
8 ;field 20 ien to file 123
9 ;create tmp array TMP(GMRCR,$J,DT)
10 K DA
11 D DT^GMRCSLM2(RMPROER)
12 S VALMCNT=$O(^TMP("GMRCR",$J,"DT",""),-1)
13 S BA=0
14 F S BA=$O(^TMP("GMRCR",$J,"DT",BA)) Q:BA="" D
15 .S RESULTS(BA)=^TMP("GMRCR",$J,"DT",BA,0)
16 G EXIT
17 Q
18 ;
19ENP ;
20 D EN^GMRCP5(RMPROER)
21 K RMPROER
22 Q
23HDR ; -- header code
24 ;N VA,VADM
25 ;S DFN=RMPRDFN
26 ;D DEM^VADPT
27 S VALMHDR(1)="Detailed Display"
28 ;S VALMHDR(2)="Open/Pending/Closed Suspense for "_$$LOWER^VALM1(VADM(1))_" ("_$P(VADM(2),U,2)_")"
29 ;D KVAR^VADPT
30 Q
31 ;
32INIT ; -- init variables and list array
33 ;
34 Q
35 ;
36 ;
37 ;
38HELP ; -- help code
39 S X="?" D DISP^XQORM1 W !!
40 Q
41 ;
42EXIT ; -- exit code
43 ;NOT XUSCLEAN
44 I '$D(RESULTS) S RESULTS(0)="Nothing to Display, Manual Suspense"
45 K ^TMP("GMRCR",$J)
46 Q
47 ;
48EXPND ; -- expand code
49 Q
50 ;
Note: See TracBrowser for help on using the repository browser.