source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPSPHAR.m@ 700

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1BPSPHAR ;BHAM ISC/BEE - ECME MGR PHAR OPTION ;14-FEB-05
2 ;;1.0;E CLAIMS MGMT ENGINE;**1,3,2,5**;JUN 2004;Build 45
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ;
5 ; This routine is called by the BPS SETUP PHARMACY menu option. It updates
6 ; several fields in the BPS PHARMACIES file.
7 ;
8 Q
9 ;
10EN ; Main Entry Point
11 N D0,DA,DI,DIC,DLAYGO,DIE,DIRUT,DQ,DR,DTOUT,DUOUT,X,Y
12 ;
13 ; First select the pharmacy or enter a new one
14 W !! S DIC(0)="QEALM",(DLAYGO,DIC)=9002313.56,DIC("A")="Select BPS PHARMACIES NAME: "
15 D ^DIC
16 ;
17 ;Check for "^", timeout, or blank entry
18 I ($G(DUOUT)=1)!($G(DTOUT)=1)!($G(Y)=-1) Q
19 ;
20 ;Pull internal entry
21 S DA=$P($G(Y),U) Q:'$G(Y)
22 ;
23 ; If new BPS Pharmacy, default the CMOP Switch and Auto-Reversal Parameter
24 I $P(Y,U,3)=1 D
25 . N DIE,DR,DTOUT
26 . S DIE=9002313.56,DR="1////0;.09////0"
27 . D ^DIE
28 ;
29 ; Display the BPS Pharmacy name, NCPDP #, and NPI
30 W !!,"NAME: ",$P($G(^BPS(9002313.56,DA,0)),U,1)
31 W !,"STATUS: ",$$GET1^DIQ(9002313.56,DA,.1,"E")
32 W !,"NCPDP #: ",$P($G(^BPS(9002313.56,DA,0)),U,2)
33 W !,"NPI: ",$P($G(^BPS(9002313.56,DA,"NPI")),U,1)
34 ;
35 ; Now edit OUTPATIENT SITE, CMOP SWITCH, AUTO-REVERSE PARAMETER,
36 ; and the DEFAULT DEA #
37 S DIE=9002313.56
38 S DR="13800;1;.09;.03"
39 S DR(2,9002313.5601)=".01"
40 D ^DIE
41 ;
42 Q
Note: See TracBrowser for help on using the repository browser.