- 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 Mar 13, 2025@21:29:50 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
