| [613] | 1 | VAQDIS16 ;ALB/JFP - PDX,DISPLAY DATA (GENERIC);01MAR93
|
|---|
| 2 | ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
|
|---|
| 3 | EP ; -- 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 | ;
|
|---|
| 9 | INIT ; -- 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 | ;
|
|---|
| 17 | TMP ; -- 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 | ;
|
|---|
| 23 | HD ; -- Make header line for list processor
|
|---|
| 24 | D HD^VAQDIS15 QUIT
|
|---|
| 25 | ;
|
|---|
| 26 | EXIT ; -- 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 | ;
|
|---|
| 32 | END ; -- End of code
|
|---|
| 33 | QUIT
|
|---|
