source: FOIAVistA/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPPRT25.m@ 711

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1PPPPRT25 ;ALB/DMB/JFP - FFX PRINT ROUTINES ; 3/16/92
2 ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5FFXPRMNU ; FFX Print Menu
6 ;
7 N %ZIS,PPPMENU,PPPRNGE,ACTION,BANNER,I,POP,RANGE,STOP,TERM,TMP
8 N ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK,PROMPT,X
9 ;
10 S PPPMENU("TEXT",1)="Print Cross-reference By Patient Name"
11 S PPPMENU("TEXT",2)="Print Cross-reference By Station Name"
12 S PPPMENU("TEXT",3)="Print Station Histogram"
13 S PPPMENU("TEXT",4)="Print Visit Histogram"
14 S PPPMENU("TEXT",5)="Print Data Summary"
15 ;
16 S BANNER="FOREIGN FACILITY CROSS-REFERENCE PRINT UTILITIES"
17 ;
18 I '$D(^PPP(1020.2,"B")) D
19 .W !!,*7,"There is no data in the Foreign Facility Cross-reference File"
20 .W !!
21 ;
22 S TMP=$$BANNER^PPPDSP1(BANNER)
23 W !!!!
24 S STOP=0
25 F I=1:1:5 W !,?18,I," - ",PPPMENU("TEXT",I)
26 F I=0:0 D Q:STOP
27 .W !!,?18
28 .S PROMPT="Select Range Of Items Or 'A' For All: "
29 .S RANGE=$$GETRANGE^PPPGET5(1,5,PROMPT)
30 .I RANGE<0 D
31 ..I RANGE<-2 D
32 ...W !!,*7,?18,"Input Error -> ",$S(RANGE=-3:"Improper Format",RANGE=-4:"Value Out Of Range",1:""),"."
33 ...W !,?18,"Please Re-enter."
34 ..E D
35 ...S STOP=1
36 .E S STOP=1
37 Q:RANGE<0
38 ;
39 S PPPRNGE=RANGE
40 D PRFFX
41 Q
42 ;
43PRFFX ;
44 S PPPMENU("ROUT",1)="PRTBYNM^PPPPRT20"
45 S PPPMENU("ROUT",2)="PRTBYSTA^PPPPRT21"
46 S PPPMENU("ROUT",3)="STAHISTP^PPPPRT22"
47 S PPPMENU("ROUT",4)="VISHISTP^PPPPRT23"
48 S PPPMENU("ROUT",5)="DATASUM^PPPPRT24"
49 ;
50 N INC
51 S TERM=0
52 I $E(IOST,1,2)="C-" S TERM=1
53 F INC=1:1:$L(PPPRNGE,",") D
54 .S ACTION=$P(PPPRNGE,",",INC)
55 .I TERM W !!,"Please wait..building display for '"_PPPMENU("TEXT",ACTION)_"'"
56 .D @PPPMENU("ROUT",ACTION)
57 .D ^PPPPRT29
58 W @IOF
59 I $D(ZTQUQUED) S ZTREQ="@"
60 D ^%ZISC
61 ;
62 Q
Note: See TracBrowser for help on using the repository browser.