- PSUPRE ;BIR/PDW - PBM PRE-INIT ;25 AUG 1998
- ;;3.0;PHARMACY BENEFITS MANAGMENT;;Oct 15, 1998
- EN ;EP CHANGE MENU OPTION NAMES
- ; Menu Items
- ; "PSU DPPM MANUAL" to be "PSU PBM MANUAL"
- ; "PSU DPPM AUTO" to be "PSU PBM AUTO"
- ;
- K DIC
- S X="PSU DPPM MANUAL",DIC=19,DIC(0)="XM" D ^DIC
- I +Y>0 D
- . S Z="PSU PBM MANUAL"
- . S DIE=DIC,DR=".01///^S X=Z",DA=+Y D ^DIE
- K DIC
- S X="PSU DPPM AUTO",DIC=19,DIC(0)="XM" D ^DIC
- I +Y>0 D
- . S Z="PSU PBM AUTO"
- . S DIE=DIC,DR=".01///^S X=Z",DA=+Y D ^DIE
- ;
- ; Mail Group
- ; "PSU DPPM" to be "PSU PBM"
- ;
- K DIC
- S X="PSU DPPM",DIC=3.8,DIC(0)="XM" D ^DIC
- I +Y>0 D
- . S Z="PSU PBM"
- . S DIE=DIC,DR=".01///^S X=Z",DA=+Y D ^DIE
- ;
- PACKAGE ;EP update fields in the package file
- K DIC
- S DIC=9.4,DIC(0)="M",X="PSU" D ^DIC
- S DA=+Y
- Q:Y'>0
- K ^DIC(9.4,+Y,1)
- K Z,X F I=1:1 S Z=$T(DESC+I) Q:Z[";;END" D
- . S X=$P(Z,";;",2),X(I,0)=Z
- S ^DIC(9.4,DA,1,0)="^^20^20^2980916^^^^"
- M ^DIC(9.4,DA,1)=X
- K DIE S DIE="^DIC(9.4,"
- S DEV="HOLLOWAY/WESLEY/BIRMINGHAM",NAME="PHARMACY BENEFITS MANAGEMENT"
- S DR="10///^S X=DEV;.01///^S X=NAME;2///^S X=NAME" D ^DIE
- ; update synonyms
- S Y=DA
- K DIC,DA
- S DA(1)=Y
- S DIC("P")=$P(^DD(9.4,15007,0),"^",2)
- S DIC="^DIC(9.4,DA(1),15007,"
- S DIC(0)="XL"
- S X="PBM" D ^DIC
- S X="D&PPM" D ^DIC
- Q
- DESC ; $T reference for package description
- ;;Pharmacy Benefits Management (PBM) software extracts statistics from
- ;;the following files on a monthly basis:
- ;;
- ;;File Name File Number
- ;;---------------------------------------------------------
- ;;Pharmacy Patient IV Subfile......................55.01
- ;;Pharmacy Patient UD Subfile......................55.06
- ;;AR/WS STOCK Stats................................58.5
- ;;Prescription.....................................52
- ;;Procurement......................................442, 58.811, 58.81
- ;;Controlled Substances............................58.81
- ;;Laboratory.......................................60, 63
- ;;
- ;;This data is electronically exported via MailMan to the National
- ;;PBM Section. These messages are then passed through a translation
- ;;process to convert all local drug names to a common drug name and all
- ;;local dispensing units to a common dispensing unit. After translation
- ;;the information will be added to a national database. The PBM
- ;;Section will be able to provide information on facility, regional, and
- ;;national product use on a monthly, quarterly, and annual intervals.
- ;;END
- PSUPRE ;BIR/PDW - PBM PRE-INIT ;25 AUG 1998
- +1 ;;3.0;PHARMACY BENEFITS MANAGMENT;;Oct 15, 1998
- EN ;EP CHANGE MENU OPTION NAMES
- +1 ; Menu Items
- +2 ; "PSU DPPM MANUAL" to be "PSU PBM MANUAL"
- +3 ; "PSU DPPM AUTO" to be "PSU PBM AUTO"
- +4 ;
- +5 KILL DIC
- +6 SET X="PSU DPPM MANUAL"
- SET DIC=19
- SET DIC(0)="XM"
- DO ^DIC
- +7 IF +Y>0
- Begin DoDot:1
- +8 SET Z="PSU PBM MANUAL"
- +9 SET DIE=DIC
- SET DR=".01///^S X=Z"
- SET DA=+Y
- DO ^DIE
- End DoDot:1
- +10 KILL DIC
- +11 SET X="PSU DPPM AUTO"
- SET DIC=19
- SET DIC(0)="XM"
- DO ^DIC
- +12 IF +Y>0
- Begin DoDot:1
- +13 SET Z="PSU PBM AUTO"
- +14 SET DIE=DIC
- SET DR=".01///^S X=Z"
- SET DA=+Y
- DO ^DIE
- End DoDot:1
- +15 ;
- +16 ; Mail Group
- +17 ; "PSU DPPM" to be "PSU PBM"
- +18 ;
- +19 KILL DIC
- +20 SET X="PSU DPPM"
- SET DIC=3.8
- SET DIC(0)="XM"
- DO ^DIC
- +21 IF +Y>0
- Begin DoDot:1
- +22 SET Z="PSU PBM"
- +23 SET DIE=DIC
- SET DR=".01///^S X=Z"
- SET DA=+Y
- DO ^DIE
- End DoDot:1
- +24 ;
- PACKAGE ;EP update fields in the package file
- +1 KILL DIC
- +2 SET DIC=9.4
- SET DIC(0)="M"
- SET X="PSU"
- DO ^DIC
- +3 SET DA=+Y
- +4 IF Y'>0
- QUIT
- +5 KILL ^DIC(9.4,+Y,1)
- +6 KILL Z,X
- FOR I=1:1
- SET Z=$TEXT(DESC+I)
- IF Z[";;END"
- QUIT
- Begin DoDot:1
- +7 SET X=$PIECE(Z,";;",2)
- SET X(I,0)=Z
- End DoDot:1
- +8 SET ^DIC(9.4,DA,1,0)="^^20^20^2980916^^^^"
- +9 MERGE ^DIC(9.4,DA,1)=X
- +10 KILL DIE
- SET DIE="^DIC(9.4,"
- +11 SET DEV="HOLLOWAY/WESLEY/BIRMINGHAM"
- SET NAME="PHARMACY BENEFITS MANAGEMENT"
- +12 SET DR="10///^S X=DEV;.01///^S X=NAME;2///^S X=NAME"
- DO ^DIE
- +13 ; update synonyms
- +14 SET Y=DA
- +15 KILL DIC,DA
- +16 SET DA(1)=Y
- +17 SET DIC("P")=$PIECE(^DD(9.4,15007,0),"^",2)
- +18 SET DIC="^DIC(9.4,DA(1),15007,"
- +19 SET DIC(0)="XL"
- +20 SET X="PBM"
- DO ^DIC
- +21 SET X="D&PPM"
- DO ^DIC
- +22 QUIT
- DESC ; $T reference for package description
- +1 ;;Pharmacy Benefits Management (PBM) software extracts statistics from
- +2 ;;the following files on a monthly basis:
- +3 ;;
- +4 ;;File Name File Number
- +5 ;;---------------------------------------------------------
- +6 ;;Pharmacy Patient IV Subfile......................55.01
- +7 ;;Pharmacy Patient UD Subfile......................55.06
- +8 ;;AR/WS STOCK Stats................................58.5
- +9 ;;Prescription.....................................52
- +10 ;;Procurement......................................442, 58.811, 58.81
- +11 ;;Controlled Substances............................58.81
- +12 ;;Laboratory.......................................60, 63
- +13 ;;
- +14 ;;This data is electronically exported via MailMan to the National
- +15 ;;PBM Section. These messages are then passed through a translation
- +16 ;;process to convert all local drug names to a common drug name and all
- +17 ;;local dispensing units to a common dispensing unit. After translation
- +18 ;;the information will be added to a national database. The PBM
- +19 ;;Section will be able to provide information on facility, regional, and
- +20 ;;national product use on a monthly, quarterly, and annual intervals.
- +21 ;;END
