PRCA320P ;LIB/RED-PRCA*4.5*320 POST INSTALL ;22 May 17
;;4.5;Accounts Receivable;**320**;Mar 20, 1995;Build 30
;;Per VA Directive 6402, this routine should not be modified.
;
; ICR - 1157 ADD^XPDMENU and $$LKOPT^XPDMENU
;
POSTINIT ;
D ADDARDC
D XREF
Q
ADDARDC ; add menu option - ARDC DETAIL REPORT to existing option - PRCAD RECONCILE MENU
N DA,DIK,MEN,OPT,RET
; RET - value returned from
S MEN="PRCAD RECONCILE MENU"
S DA(1)=+$$LKOPT^XPDMENU(MEN)
S OPT="PRCA ARDC REPORT"
S DA=+$$LKOPT^XPDMENU(OPT) ; get option IEN
I $D(^DIC(19,DA(1),10,"B",DA)) Q ; Option already added
D ADD^XPDMENU(MEN,OPT,"") ; Set ARDC DETAIL REPORT as an item in Reconciliation Reports menu
Q
XREF ; check "AC" xref
N X,FLAG S FLAG=0
F X=16,18,32,33,40,42 D
. S I=0 F S I=$O(^PRCA(430,"AC",X,I)) Q:'I D
.. I $P(^PRCA(430,I,0),U,8)'=X S FLAG=1 Q
.. Q
.Q
I 'FLAG Q
D MES^XPDUTL(" >> At least one bad cross-reference was found in")
D MES^XPDUTL(" >> file #430! This needs to be fixed via FileMan.")
D MES^XPDUTL(" >> To fix this issue use the FileMan utilities - Re-index a file")
D MES^XPDUTL(" >> - Modify file #430, - use a Particular Index - Select field")
D MES^XPDUTL(" >> and choose: 'Current Status', and select the regular 'AC' index.")
D MES^XPDUTL(" >> ...")
D MES^XPDUTL(" >> End of the Post-Initialization routine ...")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCA320P 1393 printed Dec 13, 2024@01:38:42 Page 2
PRCA320P ;LIB/RED-PRCA*4.5*320 POST INSTALL ;22 May 17
+1 ;;4.5;Accounts Receivable;**320**;Mar 20, 1995;Build 30
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; ICR - 1157 ADD^XPDMENU and $$LKOPT^XPDMENU
+5 ;
POSTINIT ;
+1 DO ADDARDC
+2 DO XREF
+3 QUIT
ADDARDC ; add menu option - ARDC DETAIL REPORT to existing option - PRCAD RECONCILE MENU
+1 NEW DA,DIK,MEN,OPT,RET
+2 ; RET - value returned from
+3 SET MEN="PRCAD RECONCILE MENU"
+4 SET DA(1)=+$$LKOPT^XPDMENU(MEN)
+5 SET OPT="PRCA ARDC REPORT"
+6 ; get option IEN
SET DA=+$$LKOPT^XPDMENU(OPT)
+7 ; Option already added
IF $DATA(^DIC(19,DA(1),10,"B",DA))
QUIT
+8 ; Set ARDC DETAIL REPORT as an item in Reconciliation Reports menu
DO ADD^XPDMENU(MEN,OPT,"")
+9 QUIT
XREF ; check "AC" xref
+1 NEW X,FLAG
SET FLAG=0
+2 FOR X=16,18,32,33,40,42
Begin DoDot:1
+3 SET I=0
FOR
SET I=$ORDER(^PRCA(430,"AC",X,I))
if 'I
QUIT
Begin DoDot:2
+4 IF $PIECE(^PRCA(430,I,0),U,8)'=X
SET FLAG=1
QUIT
+5 QUIT
End DoDot:2
+6 QUIT
End DoDot:1
+7 IF 'FLAG
QUIT
+8 DO MES^XPDUTL(" >> At least one bad cross-reference was found in")
+9 DO MES^XPDUTL(" >> file #430! This needs to be fixed via FileMan.")
+10 DO MES^XPDUTL(" >> To fix this issue use the FileMan utilities - Re-index a file")
+11 DO MES^XPDUTL(" >> - Modify file #430, - use a Particular Index - Select field")
+12 DO MES^XPDUTL(" >> and choose: 'Current Status', and select the regular 'AC' index.")
+13 DO MES^XPDUTL(" >> ...")
+14 DO MES^XPDUTL(" >> End of the Post-Initialization routine ...")
+15 QUIT