IB20P660 ;/Albany - IB*2.0*660 POST INSTALL;07/25/19 2:10pm
;;2.0;Integrated Billing;**660**;Mar 20, 1995;Build 4
;Per VA Directive 6402, this routine should not be modified.
Q
;
POSTINIT ;Post Install for IB*2.0*660
D BMES^XPDUTL(" >> Starting the Post-Initialization routine for IB*2.0*660 ")
; Adding BILLING GROUP(s)
D IBUPD
D BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*660")
Q
;
IBUPD ; CC URGENT CARE Category
N LOOP,LIEN,IBDATA
N X,Y,DIE,DA,DR,DTOUT
;
; Grab all of the entries to update
D MES^XPDUTL(" -> Adding BILLING GROUP(s) for CC CANCEL Action Types (file 350.1).")
S Y=-1
F LOOP=1:1 S IBDATA=$T(IBDDAT+LOOP) Q:$P(IBDATA,";",3)="END" D
. Q:IBDATA="" ;go to next entry if Category is not to be updated.
. S LIEN=$O(^IBE(350.1,"B",$P(IBDATA,";",3),"")) Q:LIEN=""
. S DR=".11///"_$P(IBDATA,";",4) ; BILLING GROUP
. ;
. S DIE="^IBE(350.1,",DA=LIEN
. D ^DIE
Q
;
IBDDAT ; Fee Service to inactivate
;;CHOICE (INPT) CANCEL;1
;;CHOICE (PER DIEM) CANCEL;3
;;CHOICE (OPT) CANCEL;4
;;CHOICE (RX) CANCEL;5
;;CC (INPT) CANCEL;1
;;CC (PER DIEM) CANCEL;3
;;CC (OPT) CANCEL;4
;;CC (RX) CANCEL;5
;;CCN (INPT) CANCEL;1
;;CCN (PER DIEM) CANCEL;3
;;CCN (OPT) CANCEL;4
;;CCN (RX) CANCEL;5
;;CC MTF (INPT) CANCEL;1
;;CC MTF (PER DIEM) CANCEL;3
;;CC MTF (OPT) CANCEL;1
;;CC MTF (RX) CANCEL;5
;;LTC CC INPT CNH CANCEL;9
;;LTC CC INPT RESPITE CANCEL;9
;;LTC CC OPT ADHC CANCEL;8
;;LTC CC OPT RESPITE CANCEL;8
;;LTC CCN INPT CNH CANCEL;9
;;LTC CCN INPT RESPITE CANCEL;9
;;LTC CCN OPT ADHC CANCEL;8
;;LTC CCN OPT RESPITE CANCEL;8
;;LTC CHOICE INPT CNH CANCEL;9
;;LTC CHOICE INPT RESPITE CANCEL;9
;;LTC CHOICE OPT ADHC CANCEL;8
;;LTC CHOICE OPT RESPITE CANCEL;8
;;CC URGENT CARE (OPT) CANCEL;4
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P660 1835 printed Dec 13, 2024@02:04:21 Page 2
IB20P660 ;/Albany - IB*2.0*660 POST INSTALL;07/25/19 2:10pm
+1 ;;2.0;Integrated Billing;**660**;Mar 20, 1995;Build 4
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
POSTINIT ;Post Install for IB*2.0*660
+1 DO BMES^XPDUTL(" >> Starting the Post-Initialization routine for IB*2.0*660 ")
+2 ; Adding BILLING GROUP(s)
+3 DO IBUPD
+4 DO BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*660")
+5 QUIT
+6 ;
IBUPD ; CC URGENT CARE Category
+1 NEW LOOP,LIEN,IBDATA
+2 NEW X,Y,DIE,DA,DR,DTOUT
+3 ;
+4 ; Grab all of the entries to update
+5 DO MES^XPDUTL(" -> Adding BILLING GROUP(s) for CC CANCEL Action Types (file 350.1).")
+6 SET Y=-1
+7 FOR LOOP=1:1
SET IBDATA=$TEXT(IBDDAT+LOOP)
if $PIECE(IBDATA,";",3)="END"
QUIT
Begin DoDot:1
+8 ;go to next entry if Category is not to be updated.
if IBDATA=""
QUIT
+9 SET LIEN=$ORDER(^IBE(350.1,"B",$PIECE(IBDATA,";",3),""))
if LIEN=""
QUIT
+10 ; BILLING GROUP
SET DR=".11///"_$PIECE(IBDATA,";",4)
+11 ;
+12 SET DIE="^IBE(350.1,"
SET DA=LIEN
+13 DO ^DIE
End DoDot:1
+14 QUIT
+15 ;
IBDDAT ; Fee Service to inactivate
+1 ;;CHOICE (INPT) CANCEL;1
+2 ;;CHOICE (PER DIEM) CANCEL;3
+3 ;;CHOICE (OPT) CANCEL;4
+4 ;;CHOICE (RX) CANCEL;5
+5 ;;CC (INPT) CANCEL;1
+6 ;;CC (PER DIEM) CANCEL;3
+7 ;;CC (OPT) CANCEL;4
+8 ;;CC (RX) CANCEL;5
+9 ;;CCN (INPT) CANCEL;1
+10 ;;CCN (PER DIEM) CANCEL;3
+11 ;;CCN (OPT) CANCEL;4
+12 ;;CCN (RX) CANCEL;5
+13 ;;CC MTF (INPT) CANCEL;1
+14 ;;CC MTF (PER DIEM) CANCEL;3
+15 ;;CC MTF (OPT) CANCEL;1
+16 ;;CC MTF (RX) CANCEL;5
+17 ;;LTC CC INPT CNH CANCEL;9
+18 ;;LTC CC INPT RESPITE CANCEL;9
+19 ;;LTC CC OPT ADHC CANCEL;8
+20 ;;LTC CC OPT RESPITE CANCEL;8
+21 ;;LTC CCN INPT CNH CANCEL;9
+22 ;;LTC CCN INPT RESPITE CANCEL;9
+23 ;;LTC CCN OPT ADHC CANCEL;8
+24 ;;LTC CCN OPT RESPITE CANCEL;8
+25 ;;LTC CHOICE INPT CNH CANCEL;9
+26 ;;LTC CHOICE INPT RESPITE CANCEL;9
+27 ;;LTC CHOICE OPT ADHC CANCEL;8
+28 ;;LTC CHOICE OPT RESPITE CANCEL;8
+29 ;;CC URGENT CARE (OPT) CANCEL;4
+30 ;;END
