| [613] | 1 | PPPPRT25 ;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 | ;
|
|---|
| 5 | FFXPRMNU ; 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 | ;
|
|---|
| 43 | PRFFX ;
|
|---|
| 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
|
|---|
