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

IBBSHDWN.m

Go to the documentation of this file.
  1. IBBSHDWN ;WOIFO/CLC - IB Sunset for PFSS ;7-JUN-2005
  1. ;;2.0;INTEGRATED BILLING;**312**;21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;********************************************************
  1. ; PURPOSE: Sunset IB Options/functionality
  1. ; :
  1. ; : *** The CHKSHDWN TAG is NOT currently being utilized **
  1. ; :
  1. ;
  1. ; USAGE: PFSS - Patch(IB*2.0*312) routine
  1. ;
  1. ;*******************************************************************
  1. ; @INPUTS: SRC- The Source Routine, Used for Text Tags
  1. ; : KEY- Identifier from Source Ex: AUTO BILLER
  1. ; @OUTPUTS: Boolean - True=Function Shutdown, False=Function is OK
  1. ;*******************************************************************
  1. CHKSHDWN(SRC,KEY) ;
  1. N SWINFO,I,ITEM,POP,RET,TAG
  1. S SWINFO=$$SWSTAT^IBBAPI()
  1. ;
  1. S (RET,POP)=0
  1. F I=1:1 S ITEM=$T(@SRC+I) Q:ITEM["%%%" D Q:POP
  1. .Q:$TR($P(ITEM,";",4)," ","")'=KEY
  1. .;
  1. .S TAG=$TR($P(ITEM,";",5)," ","")
  1. .I TAG="" S POP=1,RET=+SWINFO ;No additional logic
  1. .;
  1. .D @TAG
  1. Q RET
  1. IBAMTD ;
  1. ;;;CLAIMS TRACKING ; ; Disable Claims Tracking
  1. ;;;TRANSFER PRICING ; ; Disable Transfer Pricing
  1. ;;;LTC CLOCK ; ; Disable LTC Clock Creation
  1. ;;;CHAMPVA ; ; Disable Co-Pay Chgs for ChampVA
  1. ;;;CONT HOSP PAT ; ; Disable Unflaf Cont Hosp Pats
  1. ;;;SPECIAL INPAT ; ; Disable Special Inpat Cases
  1. ;;;OBSERVATION COPAY; ; Disable Observation Copay
  1. ;;;INPATIENT EVENTS ; ; Disable Inpatient Event Charges
  1. ;;;%%%
  1. IBAMTS ;
  1. ;;;TRANSFER PRICING ; ; Disable Transfer Pricing
  1. ;;;LTC CLOCK ; ; Disable LTC Clock Co-pay
  1. ;;;OUTPAT MT COPAY ; ; Disable Out Pat MT Co-Pay
  1. ;;;%%%
  1. IBAMTC ;
  1. ;;;CLAIMS TRACKING ; ; Disable Claims Tracking
  1. ;;;AUTO BILLER ;ATOBILL ; Adjust Auto-Biller Logic
  1. ;;;TRANSFER PRICING ; ; Disable Transfer Pricing
  1. ;;;%%%
  1. Q
  1. ;*******************************************************************
  1. ; @INPUTS: None
  1. ; @OUTPUTS: 1/0 1=User wants to continue, 0= DO Not continue
  1. ;*******************************************************************
  1. PFSSWARN() ;
  1. N DIR,DIRUT,DTOUT,X,Y,IBSTAR,IBSWINFO
  1. S IBSTAR80="",$P(IBSTAR,"*",55)="",Y=1
  1. S IBSWINFO=$$SWSTAT^IBBAPI() G:'+IBSWINFO WARNQ
  1. D HOME^%ZIS W @IOF
  1. S DIR(0)="YAO",DIR("B")="N"
  1. S DIR("A",1)=IBSTAR,DIR("A",3)=""
  1. S DIR("A",2)="The PFSS Environment is active as of "_$$FMTE^XLFDT($P(IBSWINFO,"^",2))_"."
  1. S DIR("A",4)="The action you are trying to perform may not be valid"
  1. S DIR("A",5)="for services provided on or after this date."
  1. S DIR("A",6)=IBSTAR
  1. S DIR("A")="Are you SURE you want to continue? "
  1. D ^DIR
  1. I $D(DIRUT)!$D(DTOUT) S Y=""
  1. WARNQ Q Y
  1. ;*******************************************************************
  1. ; @INPUTS: Action = 1-ReInstate Option 0-(Default)-Set Out of Order
  1. ; @OUTPUTS: Mailman message indicating Invalid Options or Sucess...
  1. ;*******************************************************************
  1. UPDOPTS(ACT) ;
  1. N SPC,I,OPT,DN,DA,DIC,DIE,DR,MSG,DETAIL
  1. S MSG="Option is unavailable with PFSS Active"
  1. S SPC="",$P(SPC," ",50)=""
  1. I $G(ACT)=1 S MSG="@"
  1. F I=1:1 S OPT=$T(OPTIONS+I) Q:OPT["%%%" D
  1. .S DN=$P(OPT,";",4)
  1. .I '$D(^DIC(19,"B",DN)) S DETAIL(I)=$E(DN_SPC,1,30)_"Invalid Name" Q
  1. .;
  1. .; IA#1157 - Extrinsic functions to manage fields in OPTION file
  1. .D OUT^XPDMENU(DN,MSG)
  1. ;
  1. I '$D(DETAIL) S DETAIL(1)="All IB Sunset Options - Flagged:"_MSG
  1. D NOTIFY
  1. Q
  1. UPDBTCEX(ACT) ;
  1. N DA,DIE,DR,DETAIL
  1. I $G(ACT)'=1 S ACT=0
  1. S DA=0
  1. F S DA=$O(^IBE(350.9,1,51.17,DA)) Q:+DA=0 D
  1. .I ",1,2,3,4,"'[$P($G(^IBE(350.9,1,51.17,DA,0)),"^",1) Q
  1. .S DIE="^IBE(350.9,1,51.17,",DR=".02///"_ACT D ^DIE
  1. S DETAIL(1)="Batch Extracts Status Set to: "_ACT
  1. D NOTIFY
  1. Q
  1. NOTIFY ;
  1. N XMDF,XMDUZ,XMSUB,XMDUN,XMTEXT,XMSTRIP,XMROU,XMY,XMZ,XMMG
  1. S XMDF="",XMDUZ="IBBSHDWN-"_$TR($P($$SITE^VASITE(),"^",2,3),"^","-")
  1. S XMY(DUZ)="",XMY("G.PATCHES")=""
  1. S XMSUB="IB-SUNSET OPTIONS"
  1. S XMTEXT="DETAIL("
  1. D ^XMD
  1. Q
  1. OPTIONS ;
  1. ;;;IB FLAG CONTINUOUS PATIENTS
  1. ;;;IB MT CLOCK MAINTENANCE
  1. ;;;IB CLEAN AUTO BILLER LIST
  1. ;;;IB OUTPUT AUTO BILLER
  1. ;;;IB TRICARE DEL REJECT
  1. ;;;IB TRICARE REJECT
  1. ;;;IB TRICARE RESUBMIT
  1. ;;;IB TRICARE REVERSE
  1. ;;;IB TRICARE TRANSMISSION
  1. ;;;IBAEC LTC CLOCK EDIT
  1. ;;;IBCR ENTER TP NEG RATES
  1. ;;;IBCN INSURANCE BUFFER PROCESS
  1. ;;;IBCN MEDICARE INSURANCE INTAKE
  1. ;;;IBCNE AUTO MATCH BUFFER
  1. ;;;IBCNE AUTO MATCH ENTER/EDIT
  1. ;;;IBT EDIT HR REVIEWS TO DO
  1. ;;;IBT EDIT HR TRACKING ENTRY
  1. ;;;IBT EDIT REVIEWS
  1. ;;;IB PURGE BILLING DATA
  1. ;;;IB PURGE DELETE TEMPLATE ENTRY
  1. ;;;IB PURGE LIST LOG ENTRIES
  1. ;;;IB PURGE LIST TEMPLATE ENTRIES
  1. ;;;IB PURGE LOG INQUIRY
  1. ;;;IB PURGE/ARCHIVE BILLING DATA
  1. ;;;IB PURGE/FIND BILLING DATA
  1. ;;;IBCNE PURGE IIV DATA
  1. ;;;IBAT EXCEL REPORT
  1. ;;;IBAT INPT PROSTHETIC ITEMS
  1. ;;;IBAT PATIENT LIST
  1. ;;;IBAT PATIENT REPORT
  1. ;;;IBAT SUMMARY REPORT
  1. ;;;IBAT TP MANAGEMENT
  1. ;;;IBAT WORKLOAD REPORT
  1. ;;;IBCI CLAIMSMANAGER NPT FILE
  1. ;;;IBCI CLAIMSMANAGER PAYOR FILE
  1. ;;;IBT RE-GEN AVE BILL AMOUNT
  1. ;;;IBT RE-GEN UNBILLED REPORT
  1. ;;;IBT SEND TEST UNBILLED MESS
  1. ;;;IBT VIEW UNBILLED AMOUNTS
  1. ;;;IBJD UTILIZATION WORKLOAD
  1. ;;;IBT MONTHLY AUTO GEN AVE BILL
  1. ;;;IBT MONTHLY AUTO GEN UNBILLED
  1. ;;;IB MRA EXTRACT
  1. ;;%%%
  1. Q
  1. Q