source: FOIAVistA/trunk/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUPRE.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 2.4 KB
Line 
1PSUPRE ;BIR/PDW - PBM PRE-INIT ;25 AUG 1998
2 ;;3.0;PHARMACY BENEFITS MANAGMENT;;Oct 15, 1998
3EN ;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 ;
28PACKAGE ;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
51DESC ; $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
Note: See TracBrowser for help on using the repository browser.