Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBY435PO

IBY435PO.m

Go to the documentation of this file.
  1. IBY435PO ;ALB/ESG - Post Install for IB patch 435 ;4-Oct-2010
  1. ;;2.0;INTEGRATED BILLING;**435**;21-MAR-94;Build 27
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ; ePharmacy Phase 5 - patch 435 post install
  1. ;
  1. EN ; entry point
  1. N XPDIDTOT
  1. S XPDIDTOT=2
  1. D SOI(1) ; 1. add a new Source of Information for insurance
  1. D EPI(2) ; 2. change a menu synonym
  1. ;
  1. EX ; exit point
  1. Q
  1. ;
  1. SOI(IBXPD) ; add a new Source of Information for insurance
  1. N DA,DIC,DO,X,Y
  1. D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
  1. D MES^XPDUTL("-------------")
  1. D MES^XPDUTL("Add a new Source of Information for Insurance ... ")
  1. ;
  1. F X=10 D
  1. . I $D(^IBE(355.12,"B",X)) D MES^XPDUTL("Already there...no action") Q
  1. . S DIC="^IBE(355.12,",DIC(0)="F"
  1. . S DIC("DR")=".02///E-PHARMACY;.03///eRxEL"
  1. . D FILE^DICN
  1. . I Y=-1 D MES^XPDUTL("ERROR when adding a new Ins. Source of Information. Log a Remedy ticket!") Q
  1. . D MES^XPDUTL("Entry added successfully")
  1. . Q
  1. ;
  1. SOIX ;
  1. D MES^XPDUTL(" Done.")
  1. D UPDATE^XPDID(IBXPD)
  1. Q
  1. ;
  1. EPI(IBXPD) ; change a menu synonym
  1. N DIE,DA,DR,X,Y,MENUIEN,ITEMIEN
  1. D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
  1. D MES^XPDUTL("-------------")
  1. D MES^XPDUTL("Modify an ePharmacy menu synonym ... ")
  1. S MENUIEN=$O(^DIC(19,"B","IBCNR E-PHARMACY MENU",0)) I 'MENUIEN D MES^XPDUTL("Parent menu not found.") G EPIX
  1. S ITEMIEN=$O(^DIC(19,"B","IBCNR ELIGIBILITY INQUIRY",0)) I 'ITEMIEN D MES^XPDUTL("ePharm Menu item not found.") G EPIX
  1. S DA=+$O(^DIC(19,MENUIEN,10,"B",ITEMIEN,0)) I 'DA D MES^XPDUTL("ePharm Menu item not found on Parent Menu.") G EPIX
  1. S DIE="^DIC(19,"_MENUIEN_",10,"
  1. S DA(1)=MENUIEN
  1. S DR="2////EPI"
  1. D ^DIE
  1. D MES^XPDUTL("ePharmacy Menu synonym has been updated.")
  1. ;
  1. EPIX ;
  1. D MES^XPDUTL(" Done.")
  1. D UPDATE^XPDID(IBXPD)
  1. Q
  1. ;