IBP618B ;SAB/Albany - IB*2.0*618 POST INSTALL (CONT'D);12/11/17 2:10pm
;;2.0;Integrated Billing;**618**;Mar 20, 1995;Build 61
;Per VA Directive 6402, this routine should not be modified.
Q
;
UPDACT ; Update the Action Type Fields for the new Action Types
;
N IBDATA,IBLOOP,IBIEN,IBACTNM
N X,Y,DIE,DA,DR,DTOUT,DATA ;^DIE variables
D MES^XPDUTL(" -> Updating the Action Type Fields in file 350.1 ...")
F IBLOOP=2:1 S IBDATA=$T(UPDDAT+IBLOOP) Q:IBDATA=" ;;END" D
. S IBACTNM=$P(IBDATA,";",3) ;Name of the Action Type
. ;Retrieve the IEN.
. S IBIEN=$O(^IBE(350.1,"B",IBACTNM,""))
. I IBIEN="" D MES^XPDUTL(" -> Action Type "_IBACTNM_" Is not in the Action Type file.") Q
. ;File the update
. S DR=".06///"_$P(IBDATA,";",4)_";"
. S DR=DR_".07///"_$P(IBDATA,";",5)_";"
. S DR=DR_".09///"_$P(IBDATA,";",6)
. Q:DR=""
. S DIE="^IBE(350.1,",DA=IBIEN
. D ^DIE
. K DR ;Clear update array before next use
D MES^XPDUTL(" -> Update completed ...")
;Clear the array
Q
;
UPDDAT ;
;;Action Type;Cancellation Action;Update Action;New Action
;;CHOICE (INPT) CANCEL;CHOICE (INPT) CANCEL;CHOICE (INPT) UPDATE;CHOICE (INPT) NEW
;;CHOICE (INPT) NEW;CHOICE (INPT) CANCEL;CHOICE (INPT) UPDATE;CHOICE (INPT) NEW
;;CHOICE (INPT) UPDATE;CHOICE (INPT) CANCEL;CHOICE (INPT) UPDATE;CHOICE (INPT) NEW
;;CHOICE (PER DIEM) CANCEL;CHOICE (PER DIEM) CANCEL;CHOICE (PER DIEM) UPDATE;CHOICE (PER DIEM) NEW
;;CHOICE (PER DIEM) NEW;CHOICE (PER DIEM) CANCEL;CHOICE (PER DIEM) UPDATE;CHOICE (PER DIEM) NEW
;;CHOICE (PER DIEM) UPDATE;CHOICE (PER DIEM) CANCEL;CHOICE (PER DIEM) UPDATE;CHOICE (PER DIEM) NEW
;;CHOICE (OPT) CANCEL;CHOICE (OPT) CANCEL;CHOICE (OPT) UPDATE;CHOICE (OPT) NEW
;;CHOICE (OPT) NEW;CHOICE (OPT) CANCEL;CHOICE (OPT) UPDATE;CHOICE (OPT) NEW
;;CHOICE (OPT) UPDATE;CHOICE (OPT) CANCEL;CHOICE (OPT) UPDATE;CHOICE (OPT) NEW
;;CHOICE (RX) CANCEL;CHOICE (RX) CANCEL;CHOICE (RX) UPDATE;CHOICE (RX) NEW
;;CHOICE (RX) NEW;CHOICE (RX) CANCEL;CHOICE (RX) UPDATE;CHOICE (RX) NEW
;;CHOICE (RX) UPDATE;CHOICE (RX) CANCEL;CHOICE (RX) UPDATE;CHOICE (RX) NEW
;;CC (INPT) CANCEL;CC (INPT) CANCEL;CC (INPT) UPDATE;CC (INPT) NEW
;;CC (INPT) NEW;CC (INPT) CANCEL;CC (INPT) UPDATE;CC (INPT) NEW
;;CC (INPT) UPDATE;CC (INPT) CANCEL;CC (INPT) UPDATE;CC (INPT) NEW
;;CC (PER DIEM) CANCEL;CC (PER DIEM) CANCEL;CC (PER DIEM) UPDATE;CC (PER DIEM) NEW
;;CC (PER DIEM) NEW;CC (PER DIEM) CANCEL;CC (PER DIEM) UPDATE;CC (PER DIEM) NEW
;;CC (PER DIEM) UPDATE;CC (PER DIEM) CANCEL;CC (PER DIEM) UPDATE;CC (PER DIEM) NEW
;;CC (OPT) CANCEL;CC (OPT) CANCEL;CC (OPT) UPDATE;CC (OPT) NEW
;;CC (OPT) NEW;CC (OPT) CANCEL;CC (OPT) UPDATE;CC (OPT) NEW
;;CC (OPT) UPDATE;CC (OPT) CANCEL;CC (OPT) UPDATE;CC (OPT) NEW
;;CC (RX) CANCEL;CC (RX) CANCEL;CC (RX) UPDATE;CC (RX) NEW
;;CC (RX) NEW;CC (RX) CANCEL;CC (RX) UPDATE;CC (RX) NEW
;;CC (RX) UPDATE;CC (RX) CANCEL;CC (RX) UPDATE;CC (RX) NEW
;;CCN (INPT) CANCEL;CCN (INPT) CANCEL;CCN (INPT) UPDATE;CCN (INPT) NEW
;;CCN (INPT) NEW;CCN (INPT) CANCEL;CCN (INPT) UPDATE;CCN (INPT) NEW
;;CCN (INPT) UPDATE;CCN (INPT) CANCEL;CCN (INPT) UPDATE;CCN (INPT) NEW
;;CCN (PER DIEM) CANCEL;CCN (PER DIEM) CANCEL;CCN (PER DIEM) UPDATE;CCN (PER DIEM) NEW
;;CCN (PER DIEM) NEW;CCN (PER DIEM) CANCEL;CCN (PER DIEM) UPDATE;CCN (PER DIEM) NEW
;;CCN (PER DIEM) UPDATE;CCN (PER DIEM) CANCEL;CCN (PER DIEM) UPDATE;CCN (PER DIEM) NEW
;;CCN (OPT) CANCEL;CCN (OPT) CANCEL;CCN (OPT) UPDATE;CCN (OPT) NEW
;;CCN (OPT) NEW;CCN (OPT) CANCEL;CCN (OPT) UPDATE;CCN (OPT) NEW
;;CCN (OPT) UPDATE;CCN (OPT) CANCEL;CCN (OPT) UPDATE;CCN (OPT) NEW
;;CCN (RX) CANCEL;CCN (RX) CANCEL;CCN (RX) UPDATE;CCN (RX) NEW
;;CCN (RX) NEW;CCN (RX) CANCEL;CCN (RX) UPDATE;CCN (RX) NEW
;;CCN (RX) UPDATE;CCN (RX) CANCEL;CCN (RX) UPDATE;CCN (RX) NEW
;;CC MTF (INPT) CANCEL;CC MTF (INPT) CANCEL;CC MTF (INPT) UPDATE;CC MTF (INPT) NEW
;;CC MTF (INPT) NEW;CC MTF (INPT) CANCEL;CC MTF (INPT) UPDATE;CC MTF (INPT) NEW
;;CC MTF (INPT) UPDATE;CC MTF (INPT) CANCEL;CC MTF (INPT) UPDATE;CC MTF (INPT) NEW
;;CC MTF (PER DIEM) CANCEL;CC MTF (PER DIEM) CANCEL;CC MTF (PER DIEM) UPDATE;CC MTF (PER DIEM) NEW
;;CC MTF (PER DIEM) NEW;CC MTF (PER DIEM) CANCEL;CC MTF (PER DIEM) UPDATE;CC MTF (PER DIEM) NEW
;;CC MTF (PER DIEM) UPDATE;CC MTF (PER DIEM) CANCEL;CC MTF (PER DIEM) UPDATE;CC MTF (PER DIEM) NEW
;;CC MTF (OPT) CANCEL;CC MTF (OPT) CANCEL;CC MTF (OPT) UPDATE;CC MTF (OPT) NEW
;;CC MTF (OPT) NEW;CC MTF (OPT) CANCEL;CC MTF (OPT) UPDATE;CC MTF (OPT) NEW
;;CC MTF (OPT) UPDATE;CC MTF (OPT) CANCEL;CC MTF (OPT) UPDATE;CC MTF (OPT) NEW
;;CC MTF (RX) CANCEL;CC MTF (RX) CANCEL;CC MTF (RX) UPDATE;CC MTF (RX) NEW
;;CC MTF (RX) NEW;CC MTF (RX) CANCEL;CC MTF (RX) UPDATE;CC MTF (RX) NEW
;;CC MTF (RX) UPDATE;CC MTF (RX) CANCEL;CC MTF (RX) UPDATE;CC MTF (RX) NEW
;;LTC CC INPT CNH CANCEL;LTC CC INPT CNH CANCEL;LTC CC INPT CNH UPDATE;LTC CC INPT CNH NEW
;;LTC CC INPT CNH NEW;LTC CC INPT CNH CANCEL;LTC CC INPT CNH UPDATE;LTC CC INPT CNH NEW
;;LTC CC INPT CNH UPDATE;LTC CC INPT CNH CANCEL;LTC CC INPT CNH UPDATE;LTC CC INPT CNH NEW
;;LTC CC INPT RESPITE CANCEL;LTC CC INPT RESPITE CANCEL;LTC CC INPT RESPITE UPDATE;LTC CC INPT RESPITE NEW
;;LTC CC INPT RESPITE NEW;LTC CC INPT RESPITE CANCEL;LTC CC INPT RESPITE UPDATE;LTC CC INPT RESPITE NEW
;;LTC CC INPT RESPITE UPDATE;LTC CC INPT RESPITE CANCEL;LTC CC INPT RESPITE UPDATE;LTC CC INPT RESPITE NEW
;;LTC CC OPT ADHC CANCEL;LTC CC OPT ADHC CANCEL;LTC CC OPT ADHC UPDATE;LTC CC OPT ADHC NEW
;;LTC CC OPT ADHC NEW;LTC CC OPT ADHC CANCEL;LTC CC OPT ADHC UPDATE;LTC CC OPT ADHC NEW
;;LTC CC OPT ADHC UPDATE;LTC CC OPT ADHC CANCEL;LTC CC OPT ADHC UPDATE;LTC CC OPT ADHC NEW
;;LTC CC OPT RESPITE CANCEL;LTC CC OPT RESPITE CANCEL;LTC CC OPT RESPITE UPDATE;LTC CC OPT RESPITE NEW
;;LTC CC OPT RESPITE NEW;LTC CC OPT RESPITE CANCEL;LTC CC OPT RESPITE UPDATE;LTC CC OPT RESPITE NEW
;;LTC CC OPT RESPITE UPDATE;LTC CC OPT RESPITE CANCEL;LTC CC OPT RESPITE UPDATE;LTC CC OPT RESPITE NEW
;;LTC CCN INPT CNH CANCEL;LTC CCN INPT CNH CANCEL;LTC CCN INPT CNH UPDATE;LTC CCN INPT CNH NEW
;;LTC CCN INPT CNH NEW;LTC CCN INPT CNH CANCEL;LTC CCN INPT CNH UPDATE;LTC CCN INPT CNH NEW
;;LTC CCN INPT CNH UPDATE;LTC CCN INPT CNH CANCEL;LTC CCN INPT CNH UPDATE;LTC CCN INPT CNH NEW
;;LTC CCN INPT RESPITE CANCEL;LTC CCN INPT RESPITE CANCEL;LTC CCN INPT RESPITE UPDATE;LTC CCN INPT RESPITE NEW
;;LTC CCN INPT RESPITE NEW;LTC CCN INPT RESPITE CANCEL;LTC CCN INPT RESPITE UPDATE;LTC CCN INPT RESPITE NEW
;;LTC CCN INPT RESPITE UPDATE;LTC CCN INPT RESPITE CANCEL;LTC CCN INPT RESPITE UPDATE;LTC CCN INPT RESPITE NEW
;;LTC CCN OPT ADHC CANCEL;LTC CCN OPT ADHC CANCEL;LTC CCN OPT ADHC UPDATE;LTC CCN OPT ADHC NEW
;;LTC CCN OPT ADHC NEW;LTC CCN OPT ADHC CANCEL;LTC CCN OPT ADHC UPDATE;LTC CCN OPT ADHC NEW
;;LTC CCN OPT ADHC UPDATE;LTC CCN OPT ADHC CANCEL;LTC CCN OPT ADHC UPDATE;LTC CCN OPT ADHC NEW
;;LTC CCN OPT RESPITE CANCEL;LTC CCN OPT RESPITE CANCEL;LTC CCN OPT RESPITE UPDATE;LTC CCN OPT RESPITE NEW
;;LTC CCN OPT RESPITE NEW;LTC CCN OPT RESPITE CANCEL;LTC CCN OPT RESPITE UPDATE;LTC CCN OPT RESPITE NEW
;;LTC CCN OPT RESPITE UPDATE;LTC CCN OPT RESPITE CANCEL;LTC CCN OPT RESPITE UPDATE;LTC CCN OPT RESPITE NEW
;;LTC CHOICE INPT CNH CANCEL;LTC CHOICE INPT CNH CANCEL;LTC CHOICE INPT CNH UPDATE;LTC CHOICE INPT CNH NEW
;;LTC CHOICE INPT CNH NEW;LTC CHOICE INPT CNH CANCEL;LTC CHOICE INPT CNH UPDATE;LTC CHOICE INPT CNH NEW
;;LTC CHOICE INPT CNH UPDATE;LTC CHOICE INPT CNH CANCEL;LTC CHOICE INPT CNH UPDATE;LTC CHOICE INPT CNH NEW
;;LTC CHOICE INPT RESPITE CANCEL;LTC CHOICE INPT RESPITE CANCEL;LTC CHOICE INPT RESPITE UPDATE;LTC CHOICE INPT RESPITE NEW
;;LTC CHOICE INPT RESPITE NEW;LTC CHOICE INPT RESPITE CANCEL;LTC CHOICE INPT RESPITE UPDATE;LTC CHOICE INPT RESPITE NEW
;;LTC CHOICE INPT RESPITE UPDATE;LTC CHOICE INPT RESPITE CANCEL;LTC CHOICE INPT RESPITE UPDATE;LTC CHOICE INPT RESPITE NEW
;;LTC CHOICE OPT ADHC CANCEL;LTC CHOICE OPT ADHC CANCEL;LTC CHOICE OPT ADHC UPDATE;LTC CHOICE OPT ADHC NEW
;;LTC CHOICE OPT ADHC NEW;LTC CHOICE OPT ADHC CANCEL;LTC CHOICE OPT ADHC UPDATE;LTC CHOICE OPT ADHC NEW
;;LTC CHOICE OPT ADHC UPDATE;LTC CHOICE OPT ADHC CANCEL;LTC CHOICE OPT ADHC UPDATE;LTC CHOICE OPT ADHC NEW
;;LTC CHOICE OPT RESPITE CANCEL;LTC CHOICE OPT RESPITE CANCEL;LTC CHOICE OPT RESPITE UPDATE;LTC CHOICE OPT RESPITE NEW
;;LTC CHOICE OPT RESPITE NEW;LTC CHOICE OPT RESPITE CANCEL;LTC CHOICE OPT RESPITE UPDATE;LTC CHOICE OPT RESPITE NEW
;;LTC CHOICE OPT RESPITE UPDATE;LTC CHOICE OPT RESPITE CANCEL;LTC CHOICE OPT RESPITE UPDATE;LTC CHOICE OPT RESPITE NEW
;;END
;
ADDACTCH ; Update the Action Charges
;
N IBLOOP,IBARRAY,IBACTYP,IBACTCH,IBATIEN,IBACIEN,IBEFDT,IBACTIEN,IBARYIEN,IBDATA,IBTIER,IBI,IBTRLK,IBEDT
N X,Y,DIE,DA,DR,DTOUT,FDA,FDAIEN
;
; Define the Logic field information
; Set Logic
;
D MES^XPDUTL(" -> Adding new ACTION CHARGE entries to file 350.2 ...")
F IBLOOP=1:1:64 D
. S IBDATA=$T(ACTCHDAT+IBLOOP)
. ;Retrieve the mapping
. S IBACTYP=$P(IBDATA,";",3),IBACTCH=$P(IBDATA,";",4),IBTIER=$P(IBDATA,";",5)
. ;determine if new entry for Action type/Action Charge combination
. S IBATIEN=$O(^IBE(350.1,"B",IBACTYP,"")),IBACIEN=""
. S:IBTIER="" IBACIEN=$O(^IBE(350.2,"B",IBACTCH,""),-1) ;get the latest entry
. I IBTIER'="" D
. . ;Loading current copay schedule
. . I IBTIER'="O" D Q
. . . S IBI=""
. . . F S IBI=$O(^IBE(350.2,"B",IBACTCH,IBI)) Q:'IBI D Q:IBACIEN
. . . . S IBEDT=$$GET1^DIQ(350.2,IBI_",",.02,"I")
. . . . Q:IBEDT'=3170227
. . . . S IBTRLK=$$GET1^DIQ(350.2,IBI_",",.07,"E")
. . . . I IBTRLK=IBTIER S IBACIEN=IBI
. . ; Otherwise, loading old copay schedule.
. . S IBTIER=2,IBI=0
. . F S IBI=$O(^IBE(350.2,"B",IBACTCH,IBI)) Q:'IBI D Q:IBACIEN
. . . S IBEDT=$$GET1^DIQ(350.2,IBI_",",.02,"I")
. . . Q:IBEDT'=3140312
. . . S IBTRLK=$$GET1^DIQ(350.2,IBI_",",.07,"E")
. . . I IBTRLK=IBTIER S IBACIEN=IBI
. ;
. ; Add the new entry
. K FDA,IBARRAY ;Clear the arrays
. ;
. S IBARYIEN=IBACIEN_","
. ;Store in array for adding to the file (#350.1).
. D GETS^DIQ(350.2,IBARYIEN,"*","I","IBARRAY")
. S IBTIER=IBARRAY(350.2,IBARYIEN,.07,"I")
. S FDA(350.2,"+1,",.01)=IBARRAY(350.2,IBARYIEN,.01,"I") ;Key
. S FDA(350.2,"+1,",.02)=IBARRAY(350.2,IBARYIEN,.02,"I") ;Effective Date
. S FDA(350.2,"+1,",.03)=IBATIEN ;Action Type
. S FDA(350.2,"+1,",.04)=IBARRAY(350.2,IBARYIEN,.04,"I") ;Unit Charged Fixed
. S FDA(350.2,"+1,",.05)=IBARRAY(350.2,IBARYIEN,.05,"I") ;Inactivation Date
. S FDA(350.2,"+1,",.06)=IBARRAY(350.2,IBARYIEN,.06,"I") ;Additional Amount
. S FDA(350.2,"+1,",.07)=IBTIER ;CoPayment Tier
. S FDA(350.2,"+1,",10)=IBARRAY(350.2,IBARYIEN,10,"I") ;Unit Charge Logic
. S FDA(350.2,"+1,",20)=IBARRAY(350.2,IBARYIEN,20,"I") ;Additional Amount Logic
. ;Add to the IB file.
. D UPDATE^DIE(,"FDA","FDAIEN")
. S FDAIEN=FDAIEN(1) K FDAIEN(1)
D MES^XPDUTL(" New ACTION CHARGES added.")
K FDA,IBARRAY
Q
;
ACTCHDAT ; Action Charge Data
;;CHOICE (PER DIEM) NEW;FEE SERV INPT PER DIEM
;;CC (PER DIEM) NEW;FEE SERV INPT PER DIEM
;;CCN (PER DIEM) NEW;FEE SERV INPT PER DIEM
;;CC MTF (PER DIEM) NEW;FEE SERV INPT PER DIEM
;;LTC CC INPT CNH NEW;FEE LTC INPT CNH
;;LTC CCN INPT CNH NEW;FEE LTC INPT CNH
;;LTC CHOICE INPT CNH NEW;FEE LTC INPT CNH
;;LTC CC INPT RESPITE NEW;FEE LTC INPT RESPITE
;;LTC CCN INPT RESPITE NEW;FEE LTC INPT RESPITE
;;LTC CHOICE INPT RESPITE NEW;FEE LTC INPT RESPITE
;;LTC CC OPT ADHC NEW;FEE LTC OPT ADHC
;;LTC CCN OPT ADHC NEW;FEE LTC OPT ADHC
;;LTC CHOICE OPT ADHC NEW;FEE LTC OPT ADHC
;;LTC CC OPT RESPITE NEW;FEE LTC OPT RESPITE
;;LTC CCN OPT RESPITE NEW;FEE LTC OPT RESPITE
;;LTC CHOICE OPT RESPITE NEW;FEE LTC OPT RESPITE
;;CHOICE (RX) NEW;FEE SERV RX1;O
;;CHOICE (RX) CANCEL;FEE SERV RX3;O
;;CHOICE (RX) UPDATE;FEE SERV RX4;O
;;CC (RX) NEW;FEE SERV RX1;O
;;CC (RX) CANCEL;FEE SERV RX3;O
;;CC (RX) UPDATE;FEE SERV RX4;O
;;CCN (RX) NEW;FEE SERV RX1;O
;;CCN (RX) CANCEL;FEE SERV RX3;O
;;CCN (RX) UPDATE;FEE SERV RX4;O
;;CC MTF (RX) NEW;FEE SERV RX1;O
;;CC MTF (RX) CANCEL;FEE SERV RX3;O
;;CC MTF (RX) UPDATE;FEE SERV RX4;O
;;CHOICE (RX) NEW;FEE SERV RX1;1
;;CHOICE (RX) NEW;FEE SERV RX1;2
;;CHOICE (RX) NEW;FEE SERV RX1;3
;;CHOICE (RX) CANCEL;FEE SERV RX3;1
;;CHOICE (RX) CANCEL;FEE SERV RX3;2
;;CHOICE (RX) CANCEL;FEE SERV RX3;3
;;CHOICE (RX) UPDATE;FEE SERV RX4;1
;;CHOICE (RX) UPDATE;FEE SERV RX4;2
;;CHOICE (RX) UPDATE;FEE SERV RX4;3
;;CC (RX) NEW;FEE SERV RX1;1
;;CC (RX) NEW;FEE SERV RX1;2
;;CC (RX) NEW;FEE SERV RX1;3
;;CC (RX) CANCEL;FEE SERV RX3;1
;;CC (RX) CANCEL;FEE SERV RX3;2
;;CC (RX) CANCEL;FEE SERV RX3;3
;;CC (RX) UPDATE;FEE SERV RX4;1
;;CC (RX) UPDATE;FEE SERV RX4;2
;;CC (RX) UPDATE;FEE SERV RX4;3
;;CCN (RX) NEW;FEE SERV RX1;1
;;CCN (RX) NEW;FEE SERV RX1;2
;;CCN (RX) NEW;FEE SERV RX1;3
;;CCN (RX) CANCEL;FEE SERV RX3;1
;;CCN (RX) CANCEL;FEE SERV RX3;2
;;CCN (RX) CANCEL;FEE SERV RX3;3
;;CCN (RX) UPDATE;FEE SERV RX4;1
;;CCN (RX) UPDATE;FEE SERV RX4;2
;;CCN (RX) UPDATE;FEE SERV RX4;3
;;CC MTF (RX) NEW;FEE SERV RX1;1
;;CC MTF (RX) NEW;FEE SERV RX1;2
;;CC MTF (RX) NEW;FEE SERV RX1;3
;;CC MTF (RX) CANCEL;FEE SERV RX3;1
;;CC MTF (RX) CANCEL;FEE SERV RX3;2
;;CC MTF (RX) CANCEL;FEE SERV RX3;3
;;CC MTF (RX) UPDATE;FEE SERV RX4;1
;;CC MTF (RX) UPDATE;FEE SERV RX4;2
;;CC MTF (RX) UPDATE;FEE SERV RX4;3
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBP618B 13582 printed Apr 09, 2024@21:04:36 Page 2
IBP618B ;SAB/Albany - IB*2.0*618 POST INSTALL (CONT'D);12/11/17 2:10pm
+1 ;;2.0;Integrated Billing;**618**;Mar 20, 1995;Build 61
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
UPDACT ; Update the Action Type Fields for the new Action Types
+1 ;
+2 NEW IBDATA,IBLOOP,IBIEN,IBACTNM
+3 ;^DIE variables
NEW X,Y,DIE,DA,DR,DTOUT,DATA
+4 DO MES^XPDUTL(" -> Updating the Action Type Fields in file 350.1 ...")
+5 FOR IBLOOP=2:1
SET IBDATA=$TEXT(UPDDAT+IBLOOP)
if IBDATA=" ;;END"
QUIT
Begin DoDot:1
+6 ;Name of the Action Type
SET IBACTNM=$PIECE(IBDATA,";",3)
+7 ;Retrieve the IEN.
+8 SET IBIEN=$ORDER(^IBE(350.1,"B",IBACTNM,""))
+9 IF IBIEN=""
DO MES^XPDUTL(" -> Action Type "_IBACTNM_" Is not in the Action Type file.")
QUIT
+10 ;File the update
+11 SET DR=".06///"_$PIECE(IBDATA,";",4)_";"
+12 SET DR=DR_".07///"_$PIECE(IBDATA,";",5)_";"
+13 SET DR=DR_".09///"_$PIECE(IBDATA,";",6)
+14 if DR=""
QUIT
+15 SET DIE="^IBE(350.1,"
SET DA=IBIEN
+16 DO ^DIE
+17 ;Clear update array before next use
KILL DR
End DoDot:1
+18 DO MES^XPDUTL(" -> Update completed ...")
+19 ;Clear the array
+20 QUIT
+21 ;
UPDDAT ;
+1 ;;Action Type;Cancellation Action;Update Action;New Action
+2 ;;CHOICE (INPT) CANCEL;CHOICE (INPT) CANCEL;CHOICE (INPT) UPDATE;CHOICE (INPT) NEW
+3 ;;CHOICE (INPT) NEW;CHOICE (INPT) CANCEL;CHOICE (INPT) UPDATE;CHOICE (INPT) NEW
+4 ;;CHOICE (INPT) UPDATE;CHOICE (INPT) CANCEL;CHOICE (INPT) UPDATE;CHOICE (INPT) NEW
+5 ;;CHOICE (PER DIEM) CANCEL;CHOICE (PER DIEM) CANCEL;CHOICE (PER DIEM) UPDATE;CHOICE (PER DIEM) NEW
+6 ;;CHOICE (PER DIEM) NEW;CHOICE (PER DIEM) CANCEL;CHOICE (PER DIEM) UPDATE;CHOICE (PER DIEM) NEW
+7 ;;CHOICE (PER DIEM) UPDATE;CHOICE (PER DIEM) CANCEL;CHOICE (PER DIEM) UPDATE;CHOICE (PER DIEM) NEW
+8 ;;CHOICE (OPT) CANCEL;CHOICE (OPT) CANCEL;CHOICE (OPT) UPDATE;CHOICE (OPT) NEW
+9 ;;CHOICE (OPT) NEW;CHOICE (OPT) CANCEL;CHOICE (OPT) UPDATE;CHOICE (OPT) NEW
+10 ;;CHOICE (OPT) UPDATE;CHOICE (OPT) CANCEL;CHOICE (OPT) UPDATE;CHOICE (OPT) NEW
+11 ;;CHOICE (RX) CANCEL;CHOICE (RX) CANCEL;CHOICE (RX) UPDATE;CHOICE (RX) NEW
+12 ;;CHOICE (RX) NEW;CHOICE (RX) CANCEL;CHOICE (RX) UPDATE;CHOICE (RX) NEW
+13 ;;CHOICE (RX) UPDATE;CHOICE (RX) CANCEL;CHOICE (RX) UPDATE;CHOICE (RX) NEW
+14 ;;CC (INPT) CANCEL;CC (INPT) CANCEL;CC (INPT) UPDATE;CC (INPT) NEW
+15 ;;CC (INPT) NEW;CC (INPT) CANCEL;CC (INPT) UPDATE;CC (INPT) NEW
+16 ;;CC (INPT) UPDATE;CC (INPT) CANCEL;CC (INPT) UPDATE;CC (INPT) NEW
+17 ;;CC (PER DIEM) CANCEL;CC (PER DIEM) CANCEL;CC (PER DIEM) UPDATE;CC (PER DIEM) NEW
+18 ;;CC (PER DIEM) NEW;CC (PER DIEM) CANCEL;CC (PER DIEM) UPDATE;CC (PER DIEM) NEW
+19 ;;CC (PER DIEM) UPDATE;CC (PER DIEM) CANCEL;CC (PER DIEM) UPDATE;CC (PER DIEM) NEW
+20 ;;CC (OPT) CANCEL;CC (OPT) CANCEL;CC (OPT) UPDATE;CC (OPT) NEW
+21 ;;CC (OPT) NEW;CC (OPT) CANCEL;CC (OPT) UPDATE;CC (OPT) NEW
+22 ;;CC (OPT) UPDATE;CC (OPT) CANCEL;CC (OPT) UPDATE;CC (OPT) NEW
+23 ;;CC (RX) CANCEL;CC (RX) CANCEL;CC (RX) UPDATE;CC (RX) NEW
+24 ;;CC (RX) NEW;CC (RX) CANCEL;CC (RX) UPDATE;CC (RX) NEW
+25 ;;CC (RX) UPDATE;CC (RX) CANCEL;CC (RX) UPDATE;CC (RX) NEW
+26 ;;CCN (INPT) CANCEL;CCN (INPT) CANCEL;CCN (INPT) UPDATE;CCN (INPT) NEW
+27 ;;CCN (INPT) NEW;CCN (INPT) CANCEL;CCN (INPT) UPDATE;CCN (INPT) NEW
+28 ;;CCN (INPT) UPDATE;CCN (INPT) CANCEL;CCN (INPT) UPDATE;CCN (INPT) NEW
+29 ;;CCN (PER DIEM) CANCEL;CCN (PER DIEM) CANCEL;CCN (PER DIEM) UPDATE;CCN (PER DIEM) NEW
+30 ;;CCN (PER DIEM) NEW;CCN (PER DIEM) CANCEL;CCN (PER DIEM) UPDATE;CCN (PER DIEM) NEW
+31 ;;CCN (PER DIEM) UPDATE;CCN (PER DIEM) CANCEL;CCN (PER DIEM) UPDATE;CCN (PER DIEM) NEW
+32 ;;CCN (OPT) CANCEL;CCN (OPT) CANCEL;CCN (OPT) UPDATE;CCN (OPT) NEW
+33 ;;CCN (OPT) NEW;CCN (OPT) CANCEL;CCN (OPT) UPDATE;CCN (OPT) NEW
+34 ;;CCN (OPT) UPDATE;CCN (OPT) CANCEL;CCN (OPT) UPDATE;CCN (OPT) NEW
+35 ;;CCN (RX) CANCEL;CCN (RX) CANCEL;CCN (RX) UPDATE;CCN (RX) NEW
+36 ;;CCN (RX) NEW;CCN (RX) CANCEL;CCN (RX) UPDATE;CCN (RX) NEW
+37 ;;CCN (RX) UPDATE;CCN (RX) CANCEL;CCN (RX) UPDATE;CCN (RX) NEW
+38 ;;CC MTF (INPT) CANCEL;CC MTF (INPT) CANCEL;CC MTF (INPT) UPDATE;CC MTF (INPT) NEW
+39 ;;CC MTF (INPT) NEW;CC MTF (INPT) CANCEL;CC MTF (INPT) UPDATE;CC MTF (INPT) NEW
+40 ;;CC MTF (INPT) UPDATE;CC MTF (INPT) CANCEL;CC MTF (INPT) UPDATE;CC MTF (INPT) NEW
+41 ;;CC MTF (PER DIEM) CANCEL;CC MTF (PER DIEM) CANCEL;CC MTF (PER DIEM) UPDATE;CC MTF (PER DIEM) NEW
+42 ;;CC MTF (PER DIEM) NEW;CC MTF (PER DIEM) CANCEL;CC MTF (PER DIEM) UPDATE;CC MTF (PER DIEM) NEW
+43 ;;CC MTF (PER DIEM) UPDATE;CC MTF (PER DIEM) CANCEL;CC MTF (PER DIEM) UPDATE;CC MTF (PER DIEM) NEW
+44 ;;CC MTF (OPT) CANCEL;CC MTF (OPT) CANCEL;CC MTF (OPT) UPDATE;CC MTF (OPT) NEW
+45 ;;CC MTF (OPT) NEW;CC MTF (OPT) CANCEL;CC MTF (OPT) UPDATE;CC MTF (OPT) NEW
+46 ;;CC MTF (OPT) UPDATE;CC MTF (OPT) CANCEL;CC MTF (OPT) UPDATE;CC MTF (OPT) NEW
+47 ;;CC MTF (RX) CANCEL;CC MTF (RX) CANCEL;CC MTF (RX) UPDATE;CC MTF (RX) NEW
+48 ;;CC MTF (RX) NEW;CC MTF (RX) CANCEL;CC MTF (RX) UPDATE;CC MTF (RX) NEW
+49 ;;CC MTF (RX) UPDATE;CC MTF (RX) CANCEL;CC MTF (RX) UPDATE;CC MTF (RX) NEW
+50 ;;LTC CC INPT CNH CANCEL;LTC CC INPT CNH CANCEL;LTC CC INPT CNH UPDATE;LTC CC INPT CNH NEW
+51 ;;LTC CC INPT CNH NEW;LTC CC INPT CNH CANCEL;LTC CC INPT CNH UPDATE;LTC CC INPT CNH NEW
+52 ;;LTC CC INPT CNH UPDATE;LTC CC INPT CNH CANCEL;LTC CC INPT CNH UPDATE;LTC CC INPT CNH NEW
+53 ;;LTC CC INPT RESPITE CANCEL;LTC CC INPT RESPITE CANCEL;LTC CC INPT RESPITE UPDATE;LTC CC INPT RESPITE NEW
+54 ;;LTC CC INPT RESPITE NEW;LTC CC INPT RESPITE CANCEL;LTC CC INPT RESPITE UPDATE;LTC CC INPT RESPITE NEW
+55 ;;LTC CC INPT RESPITE UPDATE;LTC CC INPT RESPITE CANCEL;LTC CC INPT RESPITE UPDATE;LTC CC INPT RESPITE NEW
+56 ;;LTC CC OPT ADHC CANCEL;LTC CC OPT ADHC CANCEL;LTC CC OPT ADHC UPDATE;LTC CC OPT ADHC NEW
+57 ;;LTC CC OPT ADHC NEW;LTC CC OPT ADHC CANCEL;LTC CC OPT ADHC UPDATE;LTC CC OPT ADHC NEW
+58 ;;LTC CC OPT ADHC UPDATE;LTC CC OPT ADHC CANCEL;LTC CC OPT ADHC UPDATE;LTC CC OPT ADHC NEW
+59 ;;LTC CC OPT RESPITE CANCEL;LTC CC OPT RESPITE CANCEL;LTC CC OPT RESPITE UPDATE;LTC CC OPT RESPITE NEW
+60 ;;LTC CC OPT RESPITE NEW;LTC CC OPT RESPITE CANCEL;LTC CC OPT RESPITE UPDATE;LTC CC OPT RESPITE NEW
+61 ;;LTC CC OPT RESPITE UPDATE;LTC CC OPT RESPITE CANCEL;LTC CC OPT RESPITE UPDATE;LTC CC OPT RESPITE NEW
+62 ;;LTC CCN INPT CNH CANCEL;LTC CCN INPT CNH CANCEL;LTC CCN INPT CNH UPDATE;LTC CCN INPT CNH NEW
+63 ;;LTC CCN INPT CNH NEW;LTC CCN INPT CNH CANCEL;LTC CCN INPT CNH UPDATE;LTC CCN INPT CNH NEW
+64 ;;LTC CCN INPT CNH UPDATE;LTC CCN INPT CNH CANCEL;LTC CCN INPT CNH UPDATE;LTC CCN INPT CNH NEW
+65 ;;LTC CCN INPT RESPITE CANCEL;LTC CCN INPT RESPITE CANCEL;LTC CCN INPT RESPITE UPDATE;LTC CCN INPT RESPITE NEW
+66 ;;LTC CCN INPT RESPITE NEW;LTC CCN INPT RESPITE CANCEL;LTC CCN INPT RESPITE UPDATE;LTC CCN INPT RESPITE NEW
+67 ;;LTC CCN INPT RESPITE UPDATE;LTC CCN INPT RESPITE CANCEL;LTC CCN INPT RESPITE UPDATE;LTC CCN INPT RESPITE NEW
+68 ;;LTC CCN OPT ADHC CANCEL;LTC CCN OPT ADHC CANCEL;LTC CCN OPT ADHC UPDATE;LTC CCN OPT ADHC NEW
+69 ;;LTC CCN OPT ADHC NEW;LTC CCN OPT ADHC CANCEL;LTC CCN OPT ADHC UPDATE;LTC CCN OPT ADHC NEW
+70 ;;LTC CCN OPT ADHC UPDATE;LTC CCN OPT ADHC CANCEL;LTC CCN OPT ADHC UPDATE;LTC CCN OPT ADHC NEW
+71 ;;LTC CCN OPT RESPITE CANCEL;LTC CCN OPT RESPITE CANCEL;LTC CCN OPT RESPITE UPDATE;LTC CCN OPT RESPITE NEW
+72 ;;LTC CCN OPT RESPITE NEW;LTC CCN OPT RESPITE CANCEL;LTC CCN OPT RESPITE UPDATE;LTC CCN OPT RESPITE NEW
+73 ;;LTC CCN OPT RESPITE UPDATE;LTC CCN OPT RESPITE CANCEL;LTC CCN OPT RESPITE UPDATE;LTC CCN OPT RESPITE NEW
+74 ;;LTC CHOICE INPT CNH CANCEL;LTC CHOICE INPT CNH CANCEL;LTC CHOICE INPT CNH UPDATE;LTC CHOICE INPT CNH NEW
+75 ;;LTC CHOICE INPT CNH NEW;LTC CHOICE INPT CNH CANCEL;LTC CHOICE INPT CNH UPDATE;LTC CHOICE INPT CNH NEW
+76 ;;LTC CHOICE INPT CNH UPDATE;LTC CHOICE INPT CNH CANCEL;LTC CHOICE INPT CNH UPDATE;LTC CHOICE INPT CNH NEW
+77 ;;LTC CHOICE INPT RESPITE CANCEL;LTC CHOICE INPT RESPITE CANCEL;LTC CHOICE INPT RESPITE UPDATE;LTC CHOICE INPT RESPITE NEW
+78 ;;LTC CHOICE INPT RESPITE NEW;LTC CHOICE INPT RESPITE CANCEL;LTC CHOICE INPT RESPITE UPDATE;LTC CHOICE INPT RESPITE NEW
+79 ;;LTC CHOICE INPT RESPITE UPDATE;LTC CHOICE INPT RESPITE CANCEL;LTC CHOICE INPT RESPITE UPDATE;LTC CHOICE INPT RESPITE NEW
+80 ;;LTC CHOICE OPT ADHC CANCEL;LTC CHOICE OPT ADHC CANCEL;LTC CHOICE OPT ADHC UPDATE;LTC CHOICE OPT ADHC NEW
+81 ;;LTC CHOICE OPT ADHC NEW;LTC CHOICE OPT ADHC CANCEL;LTC CHOICE OPT ADHC UPDATE;LTC CHOICE OPT ADHC NEW
+82 ;;LTC CHOICE OPT ADHC UPDATE;LTC CHOICE OPT ADHC CANCEL;LTC CHOICE OPT ADHC UPDATE;LTC CHOICE OPT ADHC NEW
+83 ;;LTC CHOICE OPT RESPITE CANCEL;LTC CHOICE OPT RESPITE CANCEL;LTC CHOICE OPT RESPITE UPDATE;LTC CHOICE OPT RESPITE NEW
+84 ;;LTC CHOICE OPT RESPITE NEW;LTC CHOICE OPT RESPITE CANCEL;LTC CHOICE OPT RESPITE UPDATE;LTC CHOICE OPT RESPITE NEW
+85 ;;LTC CHOICE OPT RESPITE UPDATE;LTC CHOICE OPT RESPITE CANCEL;LTC CHOICE OPT RESPITE UPDATE;LTC CHOICE OPT RESPITE NEW
+86 ;;END
+87 ;
ADDACTCH ; Update the Action Charges
+1 ;
+2 NEW IBLOOP,IBARRAY,IBACTYP,IBACTCH,IBATIEN,IBACIEN,IBEFDT,IBACTIEN,IBARYIEN,IBDATA,IBTIER,IBI,IBTRLK,IBEDT
+3 NEW X,Y,DIE,DA,DR,DTOUT,FDA,FDAIEN
+4 ;
+5 ; Define the Logic field information
+6 ; Set Logic
+7 ;
+8 DO MES^XPDUTL(" -> Adding new ACTION CHARGE entries to file 350.2 ...")
+9 FOR IBLOOP=1:1:64
Begin DoDot:1
+10 SET IBDATA=$TEXT(ACTCHDAT+IBLOOP)
+11 ;Retrieve the mapping
+12 SET IBACTYP=$PIECE(IBDATA,";",3)
SET IBACTCH=$PIECE(IBDATA,";",4)
SET IBTIER=$PIECE(IBDATA,";",5)
+13 ;determine if new entry for Action type/Action Charge combination
+14 SET IBATIEN=$ORDER(^IBE(350.1,"B",IBACTYP,""))
SET IBACIEN=""
+15 ;get the latest entry
if IBTIER=""
SET IBACIEN=$ORDER(^IBE(350.2,"B",IBACTCH,""),-1)
+16 IF IBTIER'=""
Begin DoDot:2
+17 ;Loading current copay schedule
+18 IF IBTIER'="O"
Begin DoDot:3
+19 SET IBI=""
+20 FOR
SET IBI=$ORDER(^IBE(350.2,"B",IBACTCH,IBI))
if 'IBI
QUIT
Begin DoDot:4
+21 SET IBEDT=$$GET1^DIQ(350.2,IBI_",",.02,"I")
+22 if IBEDT'=3170227
QUIT
+23 SET IBTRLK=$$GET1^DIQ(350.2,IBI_",",.07,"E")
+24 IF IBTRLK=IBTIER
SET IBACIEN=IBI
End DoDot:4
if IBACIEN
QUIT
End DoDot:3
QUIT
+25 ; Otherwise, loading old copay schedule.
+26 SET IBTIER=2
SET IBI=0
+27 FOR
SET IBI=$ORDER(^IBE(350.2,"B",IBACTCH,IBI))
if 'IBI
QUIT
Begin DoDot:3
+28 SET IBEDT=$$GET1^DIQ(350.2,IBI_",",.02,"I")
+29 if IBEDT'=3140312
QUIT
+30 SET IBTRLK=$$GET1^DIQ(350.2,IBI_",",.07,"E")
+31 IF IBTRLK=IBTIER
SET IBACIEN=IBI
End DoDot:3
if IBACIEN
QUIT
End DoDot:2
+32 ;
+33 ; Add the new entry
+34 ;Clear the arrays
KILL FDA,IBARRAY
+35 ;
+36 SET IBARYIEN=IBACIEN_","
+37 ;Store in array for adding to the file (#350.1).
+38 DO GETS^DIQ(350.2,IBARYIEN,"*","I","IBARRAY")
+39 SET IBTIER=IBARRAY(350.2,IBARYIEN,.07,"I")
+40 ;Key
SET FDA(350.2,"+1,",.01)=IBARRAY(350.2,IBARYIEN,.01,"I")
+41 ;Effective Date
SET FDA(350.2,"+1,",.02)=IBARRAY(350.2,IBARYIEN,.02,"I")
+42 ;Action Type
SET FDA(350.2,"+1,",.03)=IBATIEN
+43 ;Unit Charged Fixed
SET FDA(350.2,"+1,",.04)=IBARRAY(350.2,IBARYIEN,.04,"I")
+44 ;Inactivation Date
SET FDA(350.2,"+1,",.05)=IBARRAY(350.2,IBARYIEN,.05,"I")
+45 ;Additional Amount
SET FDA(350.2,"+1,",.06)=IBARRAY(350.2,IBARYIEN,.06,"I")
+46 ;CoPayment Tier
SET FDA(350.2,"+1,",.07)=IBTIER
+47 ;Unit Charge Logic
SET FDA(350.2,"+1,",10)=IBARRAY(350.2,IBARYIEN,10,"I")
+48 ;Additional Amount Logic
SET FDA(350.2,"+1,",20)=IBARRAY(350.2,IBARYIEN,20,"I")
+49 ;Add to the IB file.
+50 DO UPDATE^DIE(,"FDA","FDAIEN")
+51 SET FDAIEN=FDAIEN(1)
KILL FDAIEN(1)
End DoDot:1
+52 DO MES^XPDUTL(" New ACTION CHARGES added.")
+53 KILL FDA,IBARRAY
+54 QUIT
+55 ;
ACTCHDAT ; Action Charge Data
+1 ;;CHOICE (PER DIEM) NEW;FEE SERV INPT PER DIEM
+2 ;;CC (PER DIEM) NEW;FEE SERV INPT PER DIEM
+3 ;;CCN (PER DIEM) NEW;FEE SERV INPT PER DIEM
+4 ;;CC MTF (PER DIEM) NEW;FEE SERV INPT PER DIEM
+5 ;;LTC CC INPT CNH NEW;FEE LTC INPT CNH
+6 ;;LTC CCN INPT CNH NEW;FEE LTC INPT CNH
+7 ;;LTC CHOICE INPT CNH NEW;FEE LTC INPT CNH
+8 ;;LTC CC INPT RESPITE NEW;FEE LTC INPT RESPITE
+9 ;;LTC CCN INPT RESPITE NEW;FEE LTC INPT RESPITE
+10 ;;LTC CHOICE INPT RESPITE NEW;FEE LTC INPT RESPITE
+11 ;;LTC CC OPT ADHC NEW;FEE LTC OPT ADHC
+12 ;;LTC CCN OPT ADHC NEW;FEE LTC OPT ADHC
+13 ;;LTC CHOICE OPT ADHC NEW;FEE LTC OPT ADHC
+14 ;;LTC CC OPT RESPITE NEW;FEE LTC OPT RESPITE
+15 ;;LTC CCN OPT RESPITE NEW;FEE LTC OPT RESPITE
+16 ;;LTC CHOICE OPT RESPITE NEW;FEE LTC OPT RESPITE
+17 ;;CHOICE (RX) NEW;FEE SERV RX1;O
+18 ;;CHOICE (RX) CANCEL;FEE SERV RX3;O
+19 ;;CHOICE (RX) UPDATE;FEE SERV RX4;O
+20 ;;CC (RX) NEW;FEE SERV RX1;O
+21 ;;CC (RX) CANCEL;FEE SERV RX3;O
+22 ;;CC (RX) UPDATE;FEE SERV RX4;O
+23 ;;CCN (RX) NEW;FEE SERV RX1;O
+24 ;;CCN (RX) CANCEL;FEE SERV RX3;O
+25 ;;CCN (RX) UPDATE;FEE SERV RX4;O
+26 ;;CC MTF (RX) NEW;FEE SERV RX1;O
+27 ;;CC MTF (RX) CANCEL;FEE SERV RX3;O
+28 ;;CC MTF (RX) UPDATE;FEE SERV RX4;O
+29 ;;CHOICE (RX) NEW;FEE SERV RX1;1
+30 ;;CHOICE (RX) NEW;FEE SERV RX1;2
+31 ;;CHOICE (RX) NEW;FEE SERV RX1;3
+32 ;;CHOICE (RX) CANCEL;FEE SERV RX3;1
+33 ;;CHOICE (RX) CANCEL;FEE SERV RX3;2
+34 ;;CHOICE (RX) CANCEL;FEE SERV RX3;3
+35 ;;CHOICE (RX) UPDATE;FEE SERV RX4;1
+36 ;;CHOICE (RX) UPDATE;FEE SERV RX4;2
+37 ;;CHOICE (RX) UPDATE;FEE SERV RX4;3
+38 ;;CC (RX) NEW;FEE SERV RX1;1
+39 ;;CC (RX) NEW;FEE SERV RX1;2
+40 ;;CC (RX) NEW;FEE SERV RX1;3
+41 ;;CC (RX) CANCEL;FEE SERV RX3;1
+42 ;;CC (RX) CANCEL;FEE SERV RX3;2
+43 ;;CC (RX) CANCEL;FEE SERV RX3;3
+44 ;;CC (RX) UPDATE;FEE SERV RX4;1
+45 ;;CC (RX) UPDATE;FEE SERV RX4;2
+46 ;;CC (RX) UPDATE;FEE SERV RX4;3
+47 ;;CCN (RX) NEW;FEE SERV RX1;1
+48 ;;CCN (RX) NEW;FEE SERV RX1;2
+49 ;;CCN (RX) NEW;FEE SERV RX1;3
+50 ;;CCN (RX) CANCEL;FEE SERV RX3;1
+51 ;;CCN (RX) CANCEL;FEE SERV RX3;2
+52 ;;CCN (RX) CANCEL;FEE SERV RX3;3
+53 ;;CCN (RX) UPDATE;FEE SERV RX4;1
+54 ;;CCN (RX) UPDATE;FEE SERV RX4;2
+55 ;;CCN (RX) UPDATE;FEE SERV RX4;3
+56 ;;CC MTF (RX) NEW;FEE SERV RX1;1
+57 ;;CC MTF (RX) NEW;FEE SERV RX1;2
+58 ;;CC MTF (RX) NEW;FEE SERV RX1;3
+59 ;;CC MTF (RX) CANCEL;FEE SERV RX3;1
+60 ;;CC MTF (RX) CANCEL;FEE SERV RX3;2
+61 ;;CC MTF (RX) CANCEL;FEE SERV RX3;3
+62 ;;CC MTF (RX) UPDATE;FEE SERV RX4;1
+63 ;;CC MTF (RX) UPDATE;FEE SERV RX4;2
+64 ;;CC MTF (RX) UPDATE;FEE SERV RX4;3
+65 QUIT
