| 1 | PSUPRE ;BIR/PDW - PBM PRE-INIT ;25 AUG 1998
|
|---|
| 2 | ;;3.0;PHARMACY BENEFITS MANAGMENT;;Oct 15, 1998
|
|---|
| 3 | EN ;EP CHANGE MENU OPTION NAMES
|
|---|
| 4 | ; Menu Items
|
|---|
| 5 | ; "PSU DPPM MANUAL" to be "PSU PBM MANUAL"
|
|---|
| 6 | ; "PSU DPPM AUTO" to be "PSU PBM AUTO"
|
|---|
| 7 | ;
|
|---|
| 8 | K DIC
|
|---|
| 9 | S X="PSU DPPM MANUAL",DIC=19,DIC(0)="XM" D ^DIC
|
|---|
| 10 | I +Y>0 D
|
|---|
| 11 | . S Z="PSU PBM MANUAL"
|
|---|
| 12 | . S DIE=DIC,DR=".01///^S X=Z",DA=+Y D ^DIE
|
|---|
| 13 | K DIC
|
|---|
| 14 | S X="PSU DPPM AUTO",DIC=19,DIC(0)="XM" D ^DIC
|
|---|
| 15 | I +Y>0 D
|
|---|
| 16 | . S Z="PSU PBM AUTO"
|
|---|
| 17 | . S DIE=DIC,DR=".01///^S X=Z",DA=+Y D ^DIE
|
|---|
| 18 | ;
|
|---|
| 19 | ; Mail Group
|
|---|
| 20 | ; "PSU DPPM" to be "PSU PBM"
|
|---|
| 21 | ;
|
|---|
| 22 | K DIC
|
|---|
| 23 | S X="PSU DPPM",DIC=3.8,DIC(0)="XM" D ^DIC
|
|---|
| 24 | I +Y>0 D
|
|---|
| 25 | . S Z="PSU PBM"
|
|---|
| 26 | . S DIE=DIC,DR=".01///^S X=Z",DA=+Y D ^DIE
|
|---|
| 27 | ;
|
|---|
| 28 | PACKAGE ;EP update fields in the package file
|
|---|
| 29 | K DIC
|
|---|
| 30 | S DIC=9.4,DIC(0)="M",X="PSU" D ^DIC
|
|---|
| 31 | S DA=+Y
|
|---|
| 32 | Q:Y'>0
|
|---|
| 33 | K ^DIC(9.4,+Y,1)
|
|---|
| 34 | K Z,X F I=1:1 S Z=$T(DESC+I) Q:Z[";;END" D
|
|---|
| 35 | . S X=$P(Z,";;",2),X(I,0)=Z
|
|---|
| 36 | S ^DIC(9.4,DA,1,0)="^^20^20^2980916^^^^"
|
|---|
| 37 | M ^DIC(9.4,DA,1)=X
|
|---|
| 38 | K DIE S DIE="^DIC(9.4,"
|
|---|
| 39 | S DEV="HOLLOWAY/WESLEY/BIRMINGHAM",NAME="PHARMACY BENEFITS MANAGEMENT"
|
|---|
| 40 | S DR="10///^S X=DEV;.01///^S X=NAME;2///^S X=NAME" D ^DIE
|
|---|
| 41 | ; update synonyms
|
|---|
| 42 | S Y=DA
|
|---|
| 43 | K DIC,DA
|
|---|
| 44 | S DA(1)=Y
|
|---|
| 45 | S DIC("P")=$P(^DD(9.4,15007,0),"^",2)
|
|---|
| 46 | S DIC="^DIC(9.4,DA(1),15007,"
|
|---|
| 47 | S DIC(0)="XL"
|
|---|
| 48 | S X="PBM" D ^DIC
|
|---|
| 49 | S X="D&PPM" D ^DIC
|
|---|
| 50 | Q
|
|---|
| 51 | DESC ; $T reference for package description
|
|---|
| 52 | ;;Pharmacy Benefits Management (PBM) software extracts statistics from
|
|---|
| 53 | ;;the following files on a monthly basis:
|
|---|
| 54 | ;;
|
|---|
| 55 | ;;File Name File Number
|
|---|
| 56 | ;;---------------------------------------------------------
|
|---|
| 57 | ;;Pharmacy Patient IV Subfile......................55.01
|
|---|
| 58 | ;;Pharmacy Patient UD Subfile......................55.06
|
|---|
| 59 | ;;AR/WS STOCK Stats................................58.5
|
|---|
| 60 | ;;Prescription.....................................52
|
|---|
| 61 | ;;Procurement......................................442, 58.811, 58.81
|
|---|
| 62 | ;;Controlled Substances............................58.81
|
|---|
| 63 | ;;Laboratory.......................................60, 63
|
|---|
| 64 | ;;
|
|---|
| 65 | ;;This data is electronically exported via MailMan to the National
|
|---|
| 66 | ;;PBM Section. These messages are then passed through a translation
|
|---|
| 67 | ;;process to convert all local drug names to a common drug name and all
|
|---|
| 68 | ;;local dispensing units to a common dispensing unit. After translation
|
|---|
| 69 | ;;the information will be added to a national database. The PBM
|
|---|
| 70 | ;;Section will be able to provide information on facility, regional, and
|
|---|
| 71 | ;;national product use on a monthly, quarterly, and annual intervals.
|
|---|
| 72 | ;;END
|
|---|
