| [613] | 1 | PSALOC1 ;BIR/MNT,DB-Set Up/Edit a Pharmacy Location ;7/23/97
|
|---|
| 2 | ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**21**; 10/24/97
|
|---|
| 3 | W !,"This option lets you change the location type. For example: Inpatient and",!,"Outpatient locations can be changed to a Combined (IP/OP) location."
|
|---|
| 4 | W !,"Combined (IP/OP) locations, can be changed to either an Inpatient Location",!,"an Outpatient location, or BOTH.",! Q
|
|---|
| 5 | PSAHLP2 ;
|
|---|
| 6 | PSAHLP3 ;
|
|---|
| 7 | W !,"An Inpatient site is required to allow linking of IV rooms to the location."
|
|---|
| 8 | Q
|
|---|
| 9 | PSAHLP4 ;
|
|---|
| 10 | W !,^DD(58.8,20,3),! F X=1,2 W !,^DD(58.8,20,21,X,0)
|
|---|
| 11 | Q
|
|---|
| 12 | PSAHLP5 ;
|
|---|
| 13 | W !,^DD(58.831,.01,3) W ! F X=1:1:4 W !,^DD(58.831,.01,21,X,0)
|
|---|
| 14 | Q
|
|---|
| 15 | PSAHLP6 ;
|
|---|
| 16 | W !,^DD(58.842,.01,3) W ! F X=1,2 W !,^DD(58.842,.01,21,X,0)
|
|---|
| 17 | Q
|
|---|
| 18 | PSAHLP7 ;
|
|---|
| 19 | W !,"This option allows editting of a location's inactivation date.",! Q
|
|---|
| 20 | PSAHLP8 ;
|
|---|
| 21 | W !,"The Enter/Edit a Drug option adds a new drug to the pharmacy location.",!,"It also displays the balance of an existing drug." Q
|
|---|
| 22 | PSAHLP9 ;
|
|---|
| 23 | W !,"This option sets up a flag on a pharmacy location or master vault to maintain",!,"the stock and reorder levels or removes the flag.",! Q
|
|---|
| 24 | PSAHLP10 ;
|
|---|
| 25 | W !,"This option allows the re-activation of an inactive pharmacy location.",!
|
|---|
| 26 | Q
|
|---|
| 27 | PSASETUP ;Setup mail message recipients
|
|---|
| 28 | S X="PSA REORDER LEVEL",DIC="^XMB(3.8," D ^DIC S PSAREORD=+Y,PSAREORD(1)=X
|
|---|
| 29 | S X="PSA UPDATE NDC",DIC="^XMB(3.8," D ^DIC S PSAUPDT=+Y,PSAUPDT(1)=X
|
|---|
| 30 | K XMY
|
|---|
| 31 | W !,"Currently, any user who holds the 'PSA ORDERS' key, receives the mail message",!,"'Drug Balances Below Reorder Level' & 'NDC/PRICE change messages'."
|
|---|
| 32 | W !,"Two mail groups have been established to determine who receives the message.",!
|
|---|
| 33 | W !,"Members added to the mail group must first possess the 'PSA ORDERS' key.",!
|
|---|
| 34 | ;
|
|---|
| 35 | 1 S PSAGRP="PSA REORDER LEVEL" D MEMBER
|
|---|
| 36 | S PSAGRP="PSA NDC UPDATES"
|
|---|
| 37 | MEMBER W !,"Do you want to edit the users for the "_PSAGRP_" mail group? YES//" R AN:DTIME Q:AN["^" S:AN="" AN="Y" S AN=$E(AN)
|
|---|
| 38 | I "yYNn"'[AN W !,"Answer 'Y'es and you will be able to edit the members of this mailgroup." K AN G MEMBER
|
|---|
| 39 | I "nN"[AN Q
|
|---|
| 40 | ;
|
|---|
| 41 | MEMASK S DIC(0)="AEQMZ",DIC="^VA(200,",DIC("S")="I $D(^XUSEC(""PSA ORDERS"",+Y))" D ^DIC I +Y'>0 Q
|
|---|
| 42 | K XMY S XMY(+Y)=""
|
|---|
| 43 | ACTION R !,"Select 'A' to Add the user or 'D' to delete the user. ADD//",AN:DTIME S:AN="" AN="A" I "AadD"'[AN W !,"Enter a 'D' and if the user is already a member of the group, they'll be deleted." K AN G ACTION
|
|---|
| 44 | I "Aa"[AN S X5=$$MG^XMBGRP(PSAGRP,0,DUZ,1,.XMY,,0)
|
|---|
| 45 | I "dD"[AN S X5=$$DM^XMBGRP(PSAGRP,.XMY,0)
|
|---|
| 46 | I X5'>0 W !,"Sorry, couldn't perform action." G MEMASK
|
|---|
| 47 | W !,"task completed." G MEMASK
|
|---|
| 48 | Q Q
|
|---|
