source: WorldVistAEHR/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPPRT29.m@ 1147

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

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1PPPPRT29 ;ALB/JFP - PPP,FFX DISPLAY DATA (GENERIC);01MAR93
2 ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4EP ; -- Main entry point for the list processor
5 ; (only kill on the first screen in)
6 K XQORS,VALMEVL
7 ;
8 N X,HDRLN
9 ;
10 D EN^VALM("PPP FFX REPORTS")
11 QUIT
12 ;
13INIT ; -- Initializes variables and defines screen
14 I '$D(^TMP("PPPL6",$J)) D QUIT
15 .S VALMCNT=0
16 .S X=$$SETSTR^VALM1(" ","",1,79) D TMP
17 .S X=$$SETSTR^VALM1(" ** No Data to Display ... <Return> to exit ","",1,79)
18 .D TMP
19 QUIT
20 ;
21TMP ; -- Set the array used by list processor
22 S VALMCNT=VALMCNT+1
23 S ^TMP("PPPL6",$J,VALMCNT,0)=$E(X,1,79)
24 QUIT
25 ;
26HDR ; -- Make header line for list processor
27 ;
28 I '$D(^TMP("PPPL6",$J,"HDR")) QUIT
29 S HDRLN=""
30 F HDRLN=0:0 S HDRLN=$O(^TMP("PPPL6",$J,"HDR",HDRLN)) Q:HDRLN="" D
31 .S VALMHDR(HDRLN)=^TMP("PPPL6",$J,"HDR",HDRLN)
32 QUIT
33 ;
34FNL ; -- Note: The list processor cleans up its own variables.
35 ; All other variables cleaned up here.
36 ;
37 K ^TMP("PPPL6",$J)
38 K VALMCNT
39 QUIT
40 ;
41END ; -- End of code
42 QUIT
Note: See TracBrowser for help on using the repository browser.