source: FOIAVistA/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPDSP1.m@ 1245

Last change on this file since 1245 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1PPPDSP1 ;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 ;
5BANNER(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 ;
21DSPFFX(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
Note: See TracBrowser for help on using the repository browser.