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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSUPRE 2543 printed Dec 13, 2024@02:28:23 Page 2
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
