source: WorldVistAEHR/trunk/r/CONTROLLED_SUBSTANCES-PSD/PSDORN3.m@ 623

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1PSDORN3 ;BIR/LTL-Nurse CS INF Order Entry Print emer order (cont'd) ;12/14/99 16:16
2 ;;3.0; CONTROLLED SUBSTANCES ;**20**;13 Feb 97
3 ;
4 ; Reference to DD(58.8 supported by DBIA # 10154
5 ; Reference to $$FMTE^XLFDT( supported by DBIA # 10103
6 ; Reference to DPT( supported by DBIA # 10035
7 ; Reference to VA(200 supported by DBIA # 10060
8 ; Reference to PSD(58.8 supported by DBIA # 2711
9 ;
10 N Y,ZTRTN,ZTDTH,ZTSK,ZTDESC,ZTIO,ZTSAVE
11 S ZTRTN="PRINT^PSDORN3",ZTDESC="Print a Controlled Subs order"
12 S ZTDTH=$H,Y=$P($G(^PSD(58.8,+PSDS,2)),U,11),C=$P(^DD(58.8,29,0),U,2)
13 D Y^DIQ I Y']"" W !!,"Pharmacy has not set up a priority order printer, you'll need to call." Q
14 S ZTIO=Y,ZTSAVE("PSD*")="",ZTSAVE("REQD")="",ZTSAVE("NAOU*")="",ZTSAVE("PAT")=""
15 W ?40,"Printing on ",Y,"..." D ^%ZTLOAD,HOME^%ZIS Q
16PRINT W:$Y&(IOF]"") @IOF W "* CONT. SUBS. INFUSION ORDER *"
17 W !!,"Date/Time Needed: ",$$FMTE^XLFDT($G(PSDT(9)),2)
18 W !,"Patient: ",$P($G(^DPT(PAT,0)),U)
19 W !,"Location",?14,": ",NAOUN
20 W !,"Drug",?14,": ",!,PSDRN
21 ;W !,"Quantity",?14,": ",PSDQTY
22 W:'$P($G(^PSD(58.8,+PSDS,1,PSDR,0)),U,4) " ZERO IN VAULT"
23 W !,"Requested by",?14,": ",$P($G(^VA(200,PSDUZ,0)),"^")
24 W !,"Worksheet #",?14,": ",PSDREC
25 W !,"Comments:"
26 I $D(^PSD(58.8,NAOU,1,PSDR,3,PSDA,1,0)) K ^UTILITY($J,"W") F TEXT=0:0 S TEXT=$O(^PSD(58.8,NAOU,1,PSDR,3,PSDA,1,TEXT)) Q:'TEXT D
27 .S X=$G(^PSD(58.8,NAOU,1,PSDR,3,PSDA,1,TEXT,0)),DIWL=5,DIWR=75,DIWF="W" D ^DIWP
28 I D ^DIWW
29 W:$Y&(IOF]"") @IOF
30 S DIE="^PSD(58.85,",DA=PSDREC,DR="13////"_1 D ^DIE K DIE,DA,DR
31 S ZTREQ="@" Q
Note: See TracBrowser for help on using the repository browser.