source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGOE5.m@ 1147

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1PSGOE5 ;BIR/CML3-UTILITIES FOR ORDER ENTRY ;19 OCT 94 / 4:50 PM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3 ;
4PROF ;
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 ;
9ENMAR ;
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
Note: See TracBrowser for help on using the repository browser.