atient or by tatus: "
D READ G END:$D(RMPFOUT)
A11 I $D(RMPFQUT) W !!,"Enter a
to display a list of orders for a patient or",!?5,"an atient, to display only patient type orders,",!?5,"an to display all orders with a chosen status." G A1
G END:Y="" S Y=$E(Y,1) I "PpSs"'[Y S RMPFQUT="" G A11
S RMPFORD=$S("Pp"[Y:"P",1:"S") G PAT:RMPFORD="P"
STAT W !!,"Enter an <*> to Display ALL Orders or",!,"Enter One or More of the Following Statuses Separated by Commas:",! S (CT,X)=0 K RMPFP
F S X=$O(^RMPF(791810.2,X)) Q:X="" D
.Q:'$D(^RMPF(791810.2,X,0)) S A=$P(^(0),U,1),B=$P(^(0),U,2),C=$P(^(0),U,10)
.I RMPFMENU=10,C Q
.I B'="" W !?5,"<",B,"> ",?11,A S CT=CT+1
S1 W !!,"Select Status(es): " D READ G END:$D(RMPFOUT)
S11 I $D(RMPFQUT) W !!,"Enter the letter of the status you wish to print or <*> to print all status." H 1 G STAT
G A1:Y="" I Y="*" S RMPFP=Y G S2
F I=1:1 S X=$P(Y,",",I) Q:X="" D G S11:$D(RMPFQUT)
.I '$D(^RMPF(791810.2,"C",X)) S RMPFQUT="" Q
.S Z=$O(^RMPF(791810.2,"C",X,0)) I Z S RMPFP(Z)=""
.Q
G A1:'$D(RMPFP)
S2 K RMPFOO W !!,"Print for ll or elected Ordering Officials: ALL// "
D READ G END:$D(RMPFOUT)
S21 I $D(RMPFQUT) W !!,"Enter an to print orders for ALL Ordering Officials",!?6,"an to select an ordering official" G S2
S:Y="" Y="A" S Y=$E(Y,1) I "AaSs"'[Y S RMPFQUT="" G S21
G TYP:"Aa"[Y
S3 W ! S DIC="^VA(200,",DIC(0)="AEQM",DIC("A")="Select Ordering Official: "
D ^DIC G S2:Y=-1 S RMPFOO=+Y K DIC G TYP
PAT W ! S DIC=2,DIC(0)="AEQM" D ^DIC G END:Y=-1 S DFN=+Y
S RMPFTP="P" G DISP
TYP W !!,"Display tation or oth Types of Orders: B// "
D READ G END:$D(RMPFOUT)
TYP1 I $D(RMPFQUT) W !!,"Enter a to display only station type orders,",!?8," or