RC45P304 ;ALB/SAB - POST-INSTALL PRCA*4.5*304 ;02-APR-15
;;4.5;Accounts Receivable;**304**;Mar 20, 1995;Build 104
;;Per VA Directive 6402, this routine should not be modified.
;
Q
;
POST ;This will rename two options and Reindex 344.4 for the updated indexes
;
D BMES^XPDUTL(" Post-install for PRCA*4.5*304 Starting.")
;
; Updating AR parameter file
D MES^XPDUTL(" >> Updating parameters in the AR SITE PARAMETER file (#342) ...")
;
D UPD342 ; Update the AR Site Parameter file with the correct starting values.
;
; Updating EDI Parameter file
D MES^XPDUTL(" >> Updating parameters in the RCDPE PARAMETER file (#344.61) ...")
;
D UPD34461 ; Update the RCDPE Parameter file with the correct starting values.
;
D BMES^XPDUTL(" Post-install for PRCA*4.5*304 Complete.")
;
Q
;
UPD342 ;
;
N X,Y,DIE,DA,DR,DTOUT,DATA
;
S DR=""
S DATA=$G(^RC(342,1,7))
S:$P(DATA,U,4)="" DR=DR_"7.04////45;"
S:$P(DATA,U,4)="" DR=DR_"7.05////N;"
S:$P(DATA,U,4)="" DR=DR_"7.06////N"
Q:DR=""
S DIE="^RC(342,",DA=1
D ^DIE
Q
;
UPD34461 ;
;
N X,Y,DIE,DA,DR,DTOUT,DATA
S DR=""
S DATA=$G(^RCY(344.61,1,1))
S:$P(DATA,U,1)="" DR=DR_"1.01////N;"
S:$P(DATA,U,2)="" DR=DR_"1.02////N"
;
Q:DR=""
;
S DIE="^RCY(344.61,",DA=1
D ^DIE
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRC45P304 1307 printed Dec 13, 2024@01:42:18 Page 2
RC45P304 ;ALB/SAB - POST-INSTALL PRCA*4.5*304 ;02-APR-15
+1 ;;4.5;Accounts Receivable;**304**;Mar 20, 1995;Build 104
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
POST ;This will rename two options and Reindex 344.4 for the updated indexes
+1 ;
+2 DO BMES^XPDUTL(" Post-install for PRCA*4.5*304 Starting.")
+3 ;
+4 ; Updating AR parameter file
+5 DO MES^XPDUTL(" >> Updating parameters in the AR SITE PARAMETER file (#342) ...")
+6 ;
+7 ; Update the AR Site Parameter file with the correct starting values.
DO UPD342
+8 ;
+9 ; Updating EDI Parameter file
+10 DO MES^XPDUTL(" >> Updating parameters in the RCDPE PARAMETER file (#344.61) ...")
+11 ;
+12 ; Update the RCDPE Parameter file with the correct starting values.
DO UPD34461
+13 ;
+14 DO BMES^XPDUTL(" Post-install for PRCA*4.5*304 Complete.")
+15 ;
+16 QUIT
+17 ;
UPD342 ;
+1 ;
+2 NEW X,Y,DIE,DA,DR,DTOUT,DATA
+3 ;
+4 SET DR=""
+5 SET DATA=$GET(^RC(342,1,7))
+6 if $PIECE(DATA,U,4)=""
SET DR=DR_"7.04////45;"
+7 if $PIECE(DATA,U,4)=""
SET DR=DR_"7.05////N;"
+8 if $PIECE(DATA,U,4)=""
SET DR=DR_"7.06////N"
+9 if DR=""
QUIT
+10 SET DIE="^RC(342,"
SET DA=1
+11 DO ^DIE
+12 QUIT
+13 ;
UPD34461 ;
+1 ;
+2 NEW X,Y,DIE,DA,DR,DTOUT,DATA
+3 SET DR=""
+4 SET DATA=$GET(^RCY(344.61,1,1))
+5 if $PIECE(DATA,U,1)=""
SET DR=DR_"1.01////N;"
+6 if $PIECE(DATA,U,2)=""
SET DR=DR_"1.02////N"
+7 ;
+8 if DR=""
QUIT
+9 ;
+10 SET DIE="^RCY(344.61,"
SET DA=1
+11 DO ^DIE
+12 QUIT
+13 ;
