PRCA320P.m

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 ---PRCA320P   1393     printed  Apr 09, 2024@20:48:11                                                                                                                                                                                                    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