IBY811PO ;YMG/EDE - IB*2.0*811 POST INSTALL;12/04/24 12:35pm
;;2.0;Integrated Billing;**811**;Mar 20, 1995;Build 5
;Per VA Directive 6402, this routine should not be modified.
Q
;
EN ;Post Install for IB*2.0*811
D BMES^XPDUTL(" >> Starting the Post-Initialization routine for IB*2.0*811")
D INATYPE
D NEWCANC
D BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*811")
Q
;
INATYPE ; Inactivate Action Types in file 350.1
N FDA,IBDATA,IBIEN,IBNM,IENS,Z
D MES^XPDUTL(" -> Inactivating Action Types in file 350.1...")
F Z=1:1 S IBDATA=$T(INADAT+Z),IBNM=$P(IBDATA,";",3) Q:IBNM="END" D
.S IBIEN=$O(^IBE(350.1,"B",IBNM,"")) I 'IBIEN D BMES^XPDUTL(" >> Unable to update Action Type "_IBNM_".") Q
.S IENS=IBIEN_","
.S FDA(350.1,IENS,.12)=1
.D FILE^DIE("","FDA") K FDA
.Q
D MES^XPDUTL(" Done.")
Q
;
INADAT ; Action types
;;CCN (INPT) NEW
;;CCN (INPT) UPDATE
;;CCN (INPT) CANCEL
;;CCN (PER DIEM) NEW
;;CCN (PER DIEM) UPDATE
;;CCN (PER DIEM) CANCEL
;;CCN (OPT) NEW
;;CCN (OPT) UPDATE
;;CCN (OPT) CANCEL
;;CCN (RX) NEW
;;CCN (RX) UPDATE
;;CCN (RX) CANCEL
;;LTC CCN INPT CNH CANCEL
;;LTC CCN INPT CNH NEW
;;LTC CCN INPT CNH UPDATE
;;LTC CCN INPT RESPITE CANCEL
;;LTC CCN INPT RESPITE NEW
;;LTC CCN INPT RESPITE UPDATE
;;LTC CCN OPT ADHC CANCEL
;;LTC CCN OPT ADHC NEW
;;LTC CCN OPT ADHC UPDATE
;;LTC CCN OPT RESPITE CANCEL
;;LTC CCN OPT RESPITE NEW
;;LTC CCN OPT RESPITE UPDATE
;;END
Q
;
NEWCANC ; add new cancellation reason to file 350.3
N FDA,IBCNNM
D MES^XPDUTL(" -> Adding new Cancellation Reason to file 350.3...")
S IBCNNM="SECVA PIT PAUSE NOV 2025"
I $$FIND1^DIC(350.3,,"X",IBCNNM,"B")>0 D MES^XPDUTL(" Already exists.") Q ; already exists
S FDA(350.3,"+1,",.01)=IBCNNM ; name
S FDA(350.3,"+1,",.02)="PIT" ; abbreviation
S FDA(350.3,"+1,",.03)=3 ; limit
S FDA(350.3,"+1,",.04)=1 ; Can Cancel UC visit
S FDA(350.3,"+1,",.05)=2 ; UC Visit processing - Visit Only
S FDA(350.3,"+1,",.07)=2 ; MH visit processing - Visit Only
S FDA(350.3,"+1,",.08)=1 ; Can cancel MH Visit
S FDA(350.3,"+1,",.1)=3251111 ; End Date
D UPDATE^DIE("","FDA")
D MES^XPDUTL(" Done.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY811PO 2280 printed Apr 22, 2026@14:33:08 Page 2
IBY811PO ;YMG/EDE - IB*2.0*811 POST INSTALL;12/04/24 12:35pm
+1 ;;2.0;Integrated Billing;**811**;Mar 20, 1995;Build 5
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
EN ;Post Install for IB*2.0*811
+1 DO BMES^XPDUTL(" >> Starting the Post-Initialization routine for IB*2.0*811")
+2 DO INATYPE
+3 DO NEWCANC
+4 DO BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*811")
+5 QUIT
+6 ;
INATYPE ; Inactivate Action Types in file 350.1
+1 NEW FDA,IBDATA,IBIEN,IBNM,IENS,Z
+2 DO MES^XPDUTL(" -> Inactivating Action Types in file 350.1...")
+3 FOR Z=1:1
SET IBDATA=$TEXT(INADAT+Z)
SET IBNM=$PIECE(IBDATA,";",3)
if IBNM="END"
QUIT
Begin DoDot:1
+4 SET IBIEN=$ORDER(^IBE(350.1,"B",IBNM,""))
IF 'IBIEN
DO BMES^XPDUTL(" >> Unable to update Action Type "_IBNM_".")
QUIT
+5 SET IENS=IBIEN_","
+6 SET FDA(350.1,IENS,.12)=1
+7 DO FILE^DIE("","FDA")
KILL FDA
+8 QUIT
End DoDot:1
+9 DO MES^XPDUTL(" Done.")
+10 QUIT
+11 ;
INADAT ; Action types
+1 ;;CCN (INPT) NEW
+2 ;;CCN (INPT) UPDATE
+3 ;;CCN (INPT) CANCEL
+4 ;;CCN (PER DIEM) NEW
+5 ;;CCN (PER DIEM) UPDATE
+6 ;;CCN (PER DIEM) CANCEL
+7 ;;CCN (OPT) NEW
+8 ;;CCN (OPT) UPDATE
+9 ;;CCN (OPT) CANCEL
+10 ;;CCN (RX) NEW
+11 ;;CCN (RX) UPDATE
+12 ;;CCN (RX) CANCEL
+13 ;;LTC CCN INPT CNH CANCEL
+14 ;;LTC CCN INPT CNH NEW
+15 ;;LTC CCN INPT CNH UPDATE
+16 ;;LTC CCN INPT RESPITE CANCEL
+17 ;;LTC CCN INPT RESPITE NEW
+18 ;;LTC CCN INPT RESPITE UPDATE
+19 ;;LTC CCN OPT ADHC CANCEL
+20 ;;LTC CCN OPT ADHC NEW
+21 ;;LTC CCN OPT ADHC UPDATE
+22 ;;LTC CCN OPT RESPITE CANCEL
+23 ;;LTC CCN OPT RESPITE NEW
+24 ;;LTC CCN OPT RESPITE UPDATE
+25 ;;END
+26 QUIT
+27 ;
NEWCANC ; add new cancellation reason to file 350.3
+1 NEW FDA,IBCNNM
+2 DO MES^XPDUTL(" -> Adding new Cancellation Reason to file 350.3...")
+3 SET IBCNNM="SECVA PIT PAUSE NOV 2025"
+4 ; already exists
IF $$FIND1^DIC(350.3,,"X",IBCNNM,"B")>0
DO MES^XPDUTL(" Already exists.")
QUIT
+5 ; name
SET FDA(350.3,"+1,",.01)=IBCNNM
+6 ; abbreviation
SET FDA(350.3,"+1,",.02)="PIT"
+7 ; limit
SET FDA(350.3,"+1,",.03)=3
+8 ; Can Cancel UC visit
SET FDA(350.3,"+1,",.04)=1
+9 ; UC Visit processing - Visit Only
SET FDA(350.3,"+1,",.05)=2
+10 ; MH visit processing - Visit Only
SET FDA(350.3,"+1,",.07)=2
+11 ; Can cancel MH Visit
SET FDA(350.3,"+1,",.08)=1
+12 ; End Date
SET FDA(350.3,"+1,",.1)=3251111
+13 DO UPDATE^DIE("","FDA")
+14 DO MES^XPDUTL(" Done.")
+15 QUIT
