VAQDIS16 ;ALB/JFP - PDX,DISPLAY DATA (GENERIC);01MAR93
;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
EP ; -- Main entry point for the list processor
; -- K XQORS,VALMEVL (only kill on the first screen in)
D EN^VALM("VAQ DISPLAY DATA PDX12") ; -- protocol = VAQ PDX12 (MENU)
;K VALMBCK
QUIT
;
INIT ; -- Initializes variables and defines screen
I '$D(^TMP("VAQD3",$J,"DISPLAY")) D QUIT
.S VALMCNT=0
.S X=$$SETSTR^VALM1(" ","",1,79) D TMP
.S X=$$SETSTR^VALM1(" ** No Data to Display ... <Return> to exit ","",1,79)
.D TMP
QUIT
;
TMP ; -- Set the array used by list processor
S VALMCNT=VALMCNT+1
S ^TMP("VAQD3",$J,"DISPLAY",VALMCNT,0)=$E(X,1,79)
S ^TMP("VAQD3",$J,"IDX",VALMCNT,VAQECNT)=""
QUIT
;
HD ; -- Make header line for list processor
D HD^VAQDIS15 QUIT
;
EXIT ; -- Note: The list processor cleans up its own variables.
; All other variables cleaned up here.
;
K ^TMP("VAQD3",$J,"DISPLAY")
QUIT
;
END ; -- End of code
QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAQDIS16 991 printed Dec 13, 2024@02:25:21 Page 2
VAQDIS16 ;ALB/JFP - PDX,DISPLAY DATA (GENERIC);01MAR93
+1 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
EP ; -- Main entry point for the list processor
+1 ; -- K XQORS,VALMEVL (only kill on the first screen in)
+2 ; -- protocol = VAQ PDX12 (MENU)
DO EN^VALM("VAQ DISPLAY DATA PDX12")
+3 ;K VALMBCK
+4 QUIT
+5 ;
INIT ; -- Initializes variables and defines screen
+1 IF '$DATA(^TMP("VAQD3",$JOB,"DISPLAY"))
Begin DoDot:1
+2 SET VALMCNT=0
+3 SET X=$$SETSTR^VALM1(" ","",1,79)
DO TMP
+4 SET X=$$SETSTR^VALM1(" ** No Data to Display ... <Return> to exit ","",1,79)
+5 DO TMP
End DoDot:1
QUIT
+6 QUIT
+7 ;
TMP ; -- Set the array used by list processor
+1 SET VALMCNT=VALMCNT+1
+2 SET ^TMP("VAQD3",$JOB,"DISPLAY",VALMCNT,0)=$EXTRACT(X,1,79)
+3 SET ^TMP("VAQD3",$JOB,"IDX",VALMCNT,VAQECNT)=""
+4 QUIT
+5 ;
HD ; -- Make header line for list processor
+1 DO HD^VAQDIS15
QUIT
+2 ;
EXIT ; -- Note: The list processor cleans up its own variables.
+1 ; All other variables cleaned up here.
+2 ;
+3 KILL ^TMP("VAQD3",$JOB,"DISPLAY")
+4 QUIT
+5 ;
END ; -- End of code
+1 QUIT
