Routine: ACRFUFMD

ACRFUFMD ;IHS/OIRM/DSD/AEF - DRIVER TO CORE OPEN DOCUMENTS MATCH FOR UFMS [ 05/21/2007   9:44 AM ]

 ;;2.1;ADMIN RESOURCE MGMT SYSTEM;**22**;NOV 05, 2001

 ;LOOP THROUGH CORE OPEN DOCUMENT FILE AND FIND MATCH IN ARMS

 ;New routine ACR*2.1*22 UFMS

EN ;EP;

 N I,ACRX

 W @IOF

 F I=1:1 S ACRX=$P($T(DESC+I),";",3) Q:ACRX["$$END"  D

 .W !,ACRX

 .I $Y>(IOSL-6) D

 ..K ACROUT

 ..D PAUSE^ACRFWARN

 ..W @IOF

 .Q:$D(ACROUT)

 Q:$D(ACROUT)

 S DIR(0)="Y"

 S DIR("A")="Do you want to continue and generate the reports"

 S DIR("B")="NO"

 D ^DIR

 Q:'Y=1

 S ACRX="Please be patient while the files are created."

 D BMES^XPDUTL(ACRX)

 D EN^ACRFUFMZ

 ; *********************************************

DESC ;----- ROUTINE DESCRIPTION

;;

 ;;This routine loops through the imported CORE Open Documents file entries and

 ;;  attempts to match the CORE document number with ARMS documents in the FMS

 ;;  Document, FMS Document History Record and the 1166 Approvals for Payment files

 ;;  and sets various sub-files depending on the type of match. The sub-files can

 ;;  be uploaded into Excel spreadsheet reports and are located in the ARMS default

 ;;  directory where the ECS files are found (generally /usr/spool/afsdata).

;;

 ;;Contract Health ("CHS"), GovTrip ("GTRIP"), Payroll ("PAY") and Grant ("GR")

 ;;  documents are not found in ARMS. The documents are listed in separate reports.

;;

 ;;When a document is found, the routine matches the CAN, Fiscal Year, and

 ;;  Object Class Code supplied by CORE.

;;

 ;;When a match is found, the routine creates additional sub-files:

 ;; "ACRDOC" contains ARMS document data with Vendor information

 ;; "NOVNDR" contains ARMS document data for obligations without a Vendor

 ;; "TR" contains outstanding ARMS Travel documents including those without

 ;;       a match to an ARMS document

 ;; "VNDR" contains an unique listing of all Vendors found in the matches

 ;; "ERR" contains every document that has a Vendor with errors found in the

 ;;       IHS Vendor file

 ;; "NOHIT" contains CORE documents that could not be matched in any category

 ;; "NOMATCH" contains documents that were found in ARMS, but did not match

 ;;       the criteria

 ;; "ITEMS" contains the obligation, payment, receiving report and invoice

 ;;       information on the line item

 ;; "CEIN" contains ARMS Vendor numbers that do not match the CORE Vendor

 ;; "TOTALS" contains the total number of documents in each report

;;

 ;;$$END

 ; ************************************************

AUDIT ;EP; SEARCH FOR VENDORS WITH ERROR AND FIX IF POSSIBLE

 K ^ACRZ("VEINCK")

 S (CORP,INDV,ACR,ERR)=0

 S ACRNODUP=1                               ;SKIP DUPLICATE CHECK

 F  S ACR=$O(^AUTTVNDR(ACR)) Q:'ACR  D

 .I $$IDATE^ACRFUFMU(ACR) Q

 .S ACRERR=""

 .S OLD0=$G(^AUTTVNDR(ACR,0))

 .S OLD11=$G(^AUTTVNDR(ACR,11))

 .D NAMCHK^ACRFUFMU(ACR)

 .D DUNSCHK^ACRFUFMU(ACR)

 .D EINCHK^ACRFUFMU(ACR)

 .D SFX2

 .D BANK^ACRFUFMU(ACR)

 .S NEW0=$G(^AUTTVNDR(ACR,0))

 .S NEW11=$G(^AUTTVNDR(ACR,11))

DIAG .I $D(^AUTTVNDR(DT)) D

 ..W !,$G(^AUTTVNDR(DT,0))

 .I OLD0'=NEW0 W !,ACR,?8,NEW0,!?20,ACRERR

 .I OLD11'=NEW11 W !,ACR,?8,NEW11,!?20,ACRERR

 ; *********************************

SFX2 ;

 S ACRSFX=$$SFX^ACRFUFMU(ACR)

 Q:$L(ACRSFX)=2

 N HIT,I

 S HIT=0

 I $L(ACREIN)=10 D  Q

 .I ACRSFX="" F I="00":"01" D  Q:HIT

 ..I $L(I)=1 S I="0"_I

 ..I '$D(^AUTTVNDR("E",ACREIN_I)) D  Q

 ...S DIE="^AUTTVNDR("

 ...S DA=X

 ...S DR="1102////"_I

 ...D DIE^ACRFDIC

 ...S HIT=1

 S ^ACRZ("VEINCK","ERR",ACR)=^AUTTVNDR(ACR,0)_U_ACREIN_ACRSFX_": "_ACRERR

CLEAN ;FIX

 W !,ACR,?15,^AUTTVNDR(ACR,0)

 S DIE="^AUTTVNDR("

 S DA=ACR

 S DR=".05////@"                        ;REMOVE INACTIVE DATE

 D DIE^ACRFDIC

 W !?15,^AUTTVNDR(ACR,0)

ACRFUFMD  ;IHS/OIRM/DSD/AEF - DRIVER TO CORE OPEN DOCUMENTS MATCH FOR UFMS [ 05/21/2007   9:44 AM ]

 +1       ;;2.1;ADMIN RESOURCE MGMT SYSTEM;**22**;NOV 05, 2001

 +2       ;LOOP THROUGH CORE OPEN DOCUMENT FILE AND FIND MATCH IN ARMS

 +3       ;New routine ACR*2.1*22 UFMS

 +4       ;

EN        ;EP;

 +1        NEW I,ACRX

 +2        WRITE @IOF

 +3        FOR I=1:1

               SET ACRX=$PIECE($TEXT(DESC+I),";",3)

               IF ACRX["$$END"

                   QUIT

               Begin DoDot:1

 +4                WRITE !,ACRX

 +5                IF $Y>(IOSL-6)

                       Begin DoDot:2

 +6                        KILL ACROUT

 +7                        DO PAUSE^ACRFWARN

 +8                        WRITE @IOF

                       End DoDot:2

 +9                IF $DATA(ACROUT)

                       QUIT

               End DoDot:1

 +10       IF $DATA(ACROUT)

               QUIT

 +11       SET DIR(0)="Y"

 +12       SET DIR("A")="Do you want to continue and generate the reports"

 +13       SET DIR("B")="NO"

 +14       DO ^DIR

 +15       IF 'Y=1

               QUIT

 +16      ;

 +17       SET ACRX="Please be patient while the files are created."

 +18       DO BMES^XPDUTL(ACRX)

 +19       DO EN^ACRFUFMZ

 +20       QUIT

 +21      ; *********************************************

 +22      ;

DESC      ;----- ROUTINE DESCRIPTION

 +1       ;;

 +2       ;;This routine loops through the imported CORE Open Documents file entries and

 +3       ;;  attempts to match the CORE document number with ARMS documents in the FMS

 +4       ;;  Document, FMS Document History Record and the 1166 Approvals for Payment files

 +5       ;;  and sets various sub-files depending on the type of match. The sub-files can

 +6       ;;  be uploaded into Excel spreadsheet reports and are located in the ARMS default

 +7       ;;  directory where the ECS files are found (generally /usr/spool/afsdata).

 +8       ;;

 +9       ;;Contract Health ("CHS"), GovTrip ("GTRIP"), Payroll ("PAY") and Grant ("GR")

 +10      ;;  documents are not found in ARMS. The documents are listed in separate reports.

 +11      ;;

 +12      ;;When a document is found, the routine matches the CAN, Fiscal Year, and

 +13      ;;  Object Class Code supplied by CORE.

 +14      ;;

 +15      ;;When a match is found, the routine creates additional sub-files:

 +16      ;; "ACRDOC" contains ARMS document data with Vendor information

 +17      ;; "NOVNDR" contains ARMS document data for obligations without a Vendor

 +18      ;; "TR" contains outstanding ARMS Travel documents including those without

 +19      ;;       a match to an ARMS document

 +20      ;; "VNDR" contains an unique listing of all Vendors found in the matches

 +21      ;; "ERR" contains every document that has a Vendor with errors found in the

 +22      ;;       IHS Vendor file

 +23      ;; "NOHIT" contains CORE documents that could not be matched in any category

 +24      ;; "NOMATCH" contains documents that were found in ARMS, but did not match

 +25      ;;       the criteria

 +26      ;; "ITEMS" contains the obligation, payment, receiving report and invoice

 +27      ;;       information on the line item

 +28      ;; "CEIN" contains ARMS Vendor numbers that do not match the CORE Vendor

 +29      ;; "TOTALS" contains the total number of documents in each report

 +30      ;;

 +31      ;;$$END

 +32      ;

 +33      ; ************************************************

AUDIT     ;EP; SEARCH FOR VENDORS WITH ERROR AND FIX IF POSSIBLE

 +1       ;

 +2        KILL ^ACRZ("VEINCK")

 +3        SET (CORP,INDV,ACR,ERR)=0

 +4       ;SKIP DUPLICATE CHECK

           SET ACRNODUP=1

 +5        FOR

               SET ACR=$ORDER(^AUTTVNDR(ACR))

               IF 'ACR

                   QUIT

               Begin DoDot:1

 +6                IF $$IDATE^ACRFUFMU(ACR)

                       QUIT

 +7                SET ACRERR=""

 +8                SET OLD0=$GET(^AUTTVNDR(ACR,0))

 +9                SET OLD11=$GET(^AUTTVNDR(ACR,11))

 +10               DO NAMCHK^ACRFUFMU(ACR)

 +11               DO DUNSCHK^ACRFUFMU(ACR)

 +12               DO EINCHK^ACRFUFMU(ACR)

 +13               DO SFX2

 +14               DO BANK^ACRFUFMU(ACR)

 +15               SET NEW0=$GET(^AUTTVNDR(ACR,0))

 +16               SET NEW11=$GET(^AUTTVNDR(ACR,11))

DIAG               IF $DATA(^AUTTVNDR(DT))

                       Begin DoDot:2

 +1                        WRITE !,$GET(^AUTTVNDR(DT,0))

                       End DoDot:2

 +2                IF OLD0'=NEW0

                       WRITE !,ACR,?8,NEW0,!?20,ACRERR

 +3                IF OLD11'=NEW11

                       WRITE !,ACR,?8,NEW11,!?20,ACRERR

               End DoDot:1

 +4        QUIT

 +5       ; *********************************

SFX2      ;

 +1        SET ACRSFX=$$SFX^ACRFUFMU(ACR)

 +2        IF $LENGTH(ACRSFX)=2

               QUIT

 +3        NEW HIT,I

 +4        SET HIT=0

 +5        IF $LENGTH(ACREIN)=10

               Begin DoDot:1

 +6                IF ACRSFX=""

                       FOR I="00":"01"

                           Begin DoDot:2

 +7                            IF $LENGTH(I)=1

                                   SET I="0"_I

 +8                            IF '$DATA(^AUTTVNDR("E",ACREIN_I))

                                   Begin DoDot:3

 +9                                    SET DIE="^AUTTVNDR("

 +10                                   SET DA=X

 +11                                   SET DR="1102////"_I

 +12                                   DO DIE^ACRFDIC

 +13                                   SET HIT=1

                                   End DoDot:3

                                   QUIT

                           End DoDot:2

                           IF HIT

                               QUIT

               End DoDot:1

               QUIT

 +14       SET ^ACRZ("VEINCK","ERR",ACR)=^AUTTVNDR(ACR,0)_U_ACREIN_ACRSFX_": "_ACRERR

 +15       QUIT

CLEAN     ;FIX

 +1        WRITE !,ACR,?15,^AUTTVNDR(ACR,0)

 +2        SET DIE="^AUTTVNDR("

 +3        SET DA=ACR

 +4       ;REMOVE INACTIVE DATE

           SET DR=".05////@"

 +5        DO DIE^ACRFDIC

 +6        WRITE !?15,^AUTTVNDR(ACR,0)

 +7        QUIT

ACRFUFMD.m