PRCAP296 ;ALB/CXW - post init for patch 296 ; 19-MAR-2013
;;4.5;Accounts Receivable;**296**;Mar 20, 1995;Build 24
;;Per VHA Directive 2004-038, this routine should not be modified.
Q
;
POST ; AR event type of payment update
N DA,DIC,DLAYGO,DO,RCI,RCX,RCCT,X,Y S U="^",RCCT=0
D MES^XPDUTL("Patch Post-Install starts...")
D MES^XPDUTL("Add a new AR event type of payment ...")
F RCI=1:1 S RCX=$P($T(AET+RCI),";;",2) Q:RCX="" D
. S X=$P(RCX,U,1)
. ;quit if it exists
. I $D(^RC(341.1,"B",X)) Q
. S DIC="^RC(341.1,",DIC(0)="L",DLAYGO=341.1
. S DIC("DR")=".02///"_$P(RCX,U,2)_";.06///"_$P(RCX,U,3)
. D FILE^DICN
. I Y=-1 D MES^XPDUTL("ERROR when adding a new AR event type. Log a Remedy ticket!") Q
. D MES^XPDUTL("AR event type of payment: "_$P(RCX,U,1)_" added successfully")
. S RCCT=RCCT+1
D MES^XPDUTL("Total "_RCCT_" code"_$S(RCCT'=1:"s",1:"")_" added to the AR Event Type file (#341.1)")
;
D MES^XPDUTL("Patch Post-Install is complete.")
Q
AET ; name^event number^category
;;ADMINISTRATIVE OFFSET^15^PAYMENT
;;PRIVATE COLLECTION AGENCY^16^PAYMENT
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAP296 1105 printed Dec 13, 2024@01:40:37 Page 2
PRCAP296 ;ALB/CXW - post init for patch 296 ; 19-MAR-2013
+1 ;;4.5;Accounts Receivable;**296**;Mar 20, 1995;Build 24
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 QUIT
+4 ;
POST ; AR event type of payment update
+1 NEW DA,DIC,DLAYGO,DO,RCI,RCX,RCCT,X,Y
SET U="^"
SET RCCT=0
+2 DO MES^XPDUTL("Patch Post-Install starts...")
+3 DO MES^XPDUTL("Add a new AR event type of payment ...")
+4 FOR RCI=1:1
SET RCX=$PIECE($TEXT(AET+RCI),";;",2)
if RCX=""
QUIT
Begin DoDot:1
+5 SET X=$PIECE(RCX,U,1)
+6 ;quit if it exists
+7 IF $DATA(^RC(341.1,"B",X))
QUIT
+8 SET DIC="^RC(341.1,"
SET DIC(0)="L"
SET DLAYGO=341.1
+9 SET DIC("DR")=".02///"_$PIECE(RCX,U,2)_";.06///"_$PIECE(RCX,U,3)
+10 DO FILE^DICN
+11 IF Y=-1
DO MES^XPDUTL("ERROR when adding a new AR event type. Log a Remedy ticket!")
QUIT
+12 DO MES^XPDUTL("AR event type of payment: "_$PIECE(RCX,U,1)_" added successfully")
+13 SET RCCT=RCCT+1
End DoDot:1
+14 DO MES^XPDUTL("Total "_RCCT_" code"_$SELECT(RCCT'=1:"s",1:"")_" added to the AR Event Type file (#341.1)")
+15 ;
+16 DO MES^XPDUTL("Patch Post-Install is complete.")
+17 QUIT
AET ; name^event number^category
+1 ;;ADMINISTRATIVE OFFSET^15^PAYMENT
+2 ;;PRIVATE COLLECTION AGENCY^16^PAYMENT
+3 ;
