source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPREPDT.m@ 789

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1RMPREPDT ;HINES/HNC SUSPENSE PROCESSING DETAIL DISPLAY ; 25-JAN-2000
2 ;;3.0;PROSTHETICS;**45**;Feb 09, 1996
3EN ; -- 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 ;
18ENP ;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
24HDR ; -- 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 ;
33INIT ; -- init variables and list array
34 ;
35 Q
36 ;
37 ;
38 ;
39HELP ; -- help code
40 S X="?" D DISP^XQORM1 W !!
41 Q
42 ;
43EXIT ; -- exit code
44 ;NOT XUSCLEAN
45 K ^TMP("GMRCR",$J)
46 D FULL^VALM1
47 S VALMBCK="R"
48 Q
49 ;
50EXPND ; -- expand code
51 Q
52 ;
Note: See TracBrowser for help on using the repository browser.