source: FOIAVistA/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQDIS16.m@ 1535

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

initial load of FOIAVistA 6/30/08 version

File size: 958 bytes
Line 
1VAQDIS16 ;ALB/JFP - PDX,DISPLAY DATA (GENERIC);01MAR93
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3EP ; -- Main entry point for the list processor
4 ; -- K XQORS,VALMEVL (only kill on the first screen in)
5 D EN^VALM("VAQ DISPLAY DATA PDX12") ; -- protocol = VAQ PDX12 (MENU)
6 ;K VALMBCK
7 QUIT
8 ;
9INIT ; -- Initializes variables and defines screen
10 I '$D(^TMP("VAQD3",$J,"DISPLAY")) D QUIT
11 .S VALMCNT=0
12 .S X=$$SETSTR^VALM1(" ","",1,79) D TMP
13 .S X=$$SETSTR^VALM1(" ** No Data to Display ... <Return> to exit ","",1,79)
14 .D TMP
15 QUIT
16 ;
17TMP ; -- Set the array used by list processor
18 S VALMCNT=VALMCNT+1
19 S ^TMP("VAQD3",$J,"DISPLAY",VALMCNT,0)=$E(X,1,79)
20 S ^TMP("VAQD3",$J,"IDX",VALMCNT,VAQECNT)=""
21 QUIT
22 ;
23HD ; -- Make header line for list processor
24 D HD^VAQDIS15 QUIT
25 ;
26EXIT ; -- Note: The list processor cleans up its own variables.
27 ; All other variables cleaned up here.
28 ;
29 K ^TMP("VAQD3",$J,"DISPLAY")
30 QUIT
31 ;
32END ; -- End of code
33 QUIT
Note: See TracBrowser for help on using the repository browser.