| 1 | PPPDSP1 ;ALB/DMB - PRESC. PRACT. DISPLAY ROUTINES ; 1/24/92
|
|---|
| 2 | ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | BANNER(BNRTXT) ; Clear the screen and print the banner
|
|---|
| 6 | ;
|
|---|
| 7 | N BLANKS,PARMERR,TAB,I
|
|---|
| 8 | ;
|
|---|
| 9 | S PARMERR=-9001
|
|---|
| 10 | I '$D(BNRTXT) Q PARMERR
|
|---|
| 11 | I $L(BNRTXT)>80 Q PARMERR
|
|---|
| 12 | ;
|
|---|
| 13 | S BLANKS=""
|
|---|
| 14 | S TAB=((IOM-$L(BNRTXT))\2)
|
|---|
| 15 | F I=1:1:TAB S BLANKS=BLANKS_" "
|
|---|
| 16 | ;
|
|---|
| 17 | W @IOF,BLANKS,BNRTXT
|
|---|
| 18 | ;
|
|---|
| 19 | Q 0
|
|---|
| 20 | ;
|
|---|
| 21 | DSPFFX(TARRY,FFXIFN) ; Display an FFX entry
|
|---|
| 22 | ;
|
|---|
| 23 | ;
|
|---|
| 24 | N PARMERR
|
|---|
| 25 | ;
|
|---|
| 26 | S PARMERR=-9001
|
|---|
| 27 | ;
|
|---|
| 28 | I '$D(TARRY) Q PARMERR
|
|---|
| 29 | I '$D(@TARRY@(FFXIFN)) Q PARMERR
|
|---|
| 30 | ;
|
|---|
| 31 | W !,"Entry Number: ",FFXIFN,!
|
|---|
| 32 | W "Entry Date : ",@TARRY@(FFXIFN,"ED"),!
|
|---|
| 33 | W "Entry Source: ",@TARRY@(FFXIFN,"SOURCE"),!!
|
|---|
| 34 | W "Patient Name: ",@TARRY@(FFXIFN,"NAME")
|
|---|
| 35 | W ?40,"SSN: ",@TARRY@(FFXIFN,"SSN"),!
|
|---|
| 36 | W "Station: ",@TARRY@(FFXIFN,"POV")
|
|---|
| 37 | W " (",@TARRY@(FFXIFN,"STANO"),")"
|
|---|
| 38 | W ?40,"Domain: ",@TARRY@(FFXIFN,"DOMAIN"),!
|
|---|
| 39 | W "Last Visit Date: ",@TARRY@(FFXIFN,"LVD")
|
|---|
| 40 | W ?40,"Last Batch Request: ",@TARRY@(FFXIFN,"LBRD"),!
|
|---|
| 41 | W "Last PDX Date: ",@TARRY@(FFXIFN,"LPDX")
|
|---|
| 42 | W ?40,"Status: ",@TARRY@(FFXIFN,"STATUS"),!
|
|---|
| 43 | Q 0
|
|---|
