| 1 | PSGOE5 ;BIR/CML3-UTILITIES FOR ORDER ENTRY ;19 OCT 94 / 4:50 PM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
|
|---|
| 3 | ;
|
|---|
| 4 | PROF ;
|
|---|
| 5 | F W !!,"Do you want a profile for ",$P(PSGP(0),"^") S %=2 D YN^DICN Q:% W !!,"Enter 'YES' to print a profile of this patient's orders, including any new",!,"orders or changes. Enter 'NO' (or '^') to continue without a profile."
|
|---|
| 6 | Q:%'=1 D ENL^PSGOU Q:"^"[PSGOL N PSGSS,PSGSSH S (PSGOEPRF,PSGPRWD,PSGPRWDN,PSGPRWG,PSGPRWGN)="",PSGSS="P0",PSGPRA="N",PSGPRP="P" D ENDEV^PSGPR
|
|---|
| 7 | K PSGOEPRF Q
|
|---|
| 8 | ;
|
|---|
| 9 | ENMAR ;
|
|---|
| 10 | D NOW^%DTC I $O(^PS(55,PSGP,5,"AUS",%)) F Q=%:0 S Q=$O(^PS(55,PSGP,5,"AUS",Q)) Q:'Q F QQ=0:0 S QQ=$O(^PS(55,PSGP,5,"AUS",Q,QQ)) Q:'QQ I $D(^PS(55,PSGP,5,QQ,4)),$P(^(4),"^",10) Q
|
|---|
| 11 | Q:'$T F W !!,"Do you want to print an MAR for this patient" S %=2 D YN^DICN Q:% W !!," Enter 'YES' to print an MAR for this patient. Enter 'NO' (or '^') to",!,"continue without an MAR."
|
|---|
| 12 | Q:%'=1 S DIR(0)="SOBA^7:7 DAY MAR;1:14 DAY MAR;2:24 HOUR MAR",DIR("A")="Select MAR to print: ",DIR("?",1)="Select one of the following:",DIR("?",2)=" 7 DAY MAR",DIR("?",3)=" 14 DAY MAR",DIR("?",4)=" 24 HOUR MAR",DIR("?",5)=""
|
|---|
| 13 | S DIR("?")="Press RETURN (or enter '^') to abort this MAR print." W ! D ^DIR Q:"^"[Y
|
|---|
| 14 | N PSGSS,PSGSSH,PSGOP S PSGPAT=PSGP,PSGPAT(PSGP)="",PSGMARB=0,PSGSS="P" I $E(Y)'=2 S PSGMARDF=$S(Y=1:14,1:7) D ENOE^PSGMMAR Q
|
|---|
| 15 | D ENDATE^PSGMAR Q
|
|---|
