| [613] | 1 | PPPPRT29 ;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.
|
|---|
| 4 | EP ; -- 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 | ;
|
|---|
| 13 | INIT ; -- 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 | ;
|
|---|
| 21 | TMP ; -- 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 | ;
|
|---|
| 26 | HDR ; -- 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 | ;
|
|---|
| 34 | FNL ; -- 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 | ;
|
|---|
| 41 | END ; -- End of code
|
|---|
| 42 | QUIT
|
|---|
