ACRFUFMR ;IHS/OIRM/DSD/AEF - UTILITY STANDALONE TO READ OPEN DOCUMENTS FROM CORE FOR UFMS [ 05/16/2007 9:44 AM ]
;;2.1;ADMIN RESOURCE MGMT SYSTEM;**22**;NOV 05, 2001
;NEW ROUTINE ACR*2.1*22 UFMS
;
;*************************************************************
READ ;EP;READ CONTENTS OF UNIX CORE FILES INTO ^ACRZ GLOBALS
;
; ACRFN = ARMS/CORE FILENAME -- Docs##.txt ; ## = Accounting point
;
N ACRDIR,X,%DEV,ACRSTR,ACRI,ACRFN,ACRFAP
N P1,P2,P3,P4,P5,P6,P7,P8,P9,ACRQUIT
S ACRFAP=$P(^AUTTACPT($P(^ACRSYS(1,"DT1"),U,13),0),U)
I ACRFAP=65 S ACRFAP="65-94" ;MODIFY FOR HQ/NP
S ACRFN="Docs"_ACRFAP_".txt"
S ACRDIR=$$ARMSDIR^ACRFSYS(1)
I ACRDIR["/usr/ACR/" S ACRDIR="/usr/ACR/"
D HFS^ACRFZISH(ACRDIR,ACRFN,"R",.%DEV)
Q:$G(%DEV)']""
K ^ACRZ("ACRCORE")
U %DEV
S (ACRI,ACRQUIT)=0
F R X:DTIME D I ACRQUIT>4 Q ;DIRECT READ OF UNIX FLAT FILE
. S ACRSTR=$$STR(X)
. Q:ACRSTR=0
. S ACRI=ACRI+1
. S ^ACRZ("ACRCORE",ACRI)=ACRSTR
;
D CLOSE^%ZISH("FILE")
S ^ACRZ("ACRCORE")=$$NOW^ACRFUTL ;DATE AND TIME STAMP
S ^ACRZ("ACRCORE","TOTAL")=ACRI ;NUMBER OF RECORDS
;
D EN^ACRFUFMZ
Q
;
;*************************************************************
STR(X) ; PARSING STRING
;40,AP,6007002300 ,2005,J40DU05,252Z,13292,100,1860777569A1
I X="" D Q 0 ;SET QUIT CONDITION IF NULL
.S ACRQUIT=ACRQUIT+1 ;IF IT FINDS FIVE NULL LINES, MUST BE EOF
S P7=$P(X,",",7) ;DOL AMT
I P7=0!(P7="") Q 0 ;SKIP ZERO DOLLAR AMOUNTS
S P1=$P(X,",",1) ;AP
S P2=$P(X,",",2) ;DOC-TYPE
S P3=$E($P(X,",",3),1,10) ;DOCUMENT
S P4=$P(X,",",4) ;FY
S P5=$P(X,",",5) ;CAN
S P6=$P(X,",",6) ;OCC
S P8=$P(X,",",8) ;REF CODE
S P9=$P(X,",",9) ;VENDOR EIN
S STR=P1_U_P2_U_P3_U_P4_U_P5_U_P6_U_P7_U_P8_U_P9
Q STR
;*************************************************************
; BEGIN REPORT FILE CREATION
;*************************************************************
ENW ;EP; ENTRY POINT FOR RECORDS GENERATED BY ^ACRFUFMZ
;
N ACRNODE,ACRTOT,ACRTOTAL,ACRSITE,ACRCNT,ACRRPTOT,I,ACRCORE,ACRMTCH,TRCNT
S ACRSITEN=$P($G(^AUTTAREA(+$G(^ACRSYS(1,0)),0)),U) ;SITE NAME
K ACRARY
;CREATE FILE NAME
S ACRSITE=$E(ACRSITEN,1,3)
S:ACRSITE="NAT" ACRSITE="HQ"
S ACRTAIL=".csv" ; USE COMMA SEPARTED VALUE FORMAT
S ACRPFX=ACRSITE_"_CORE_OPEN_"
S (ACRTOT,ACRRPTOT,TRCNT)=0
;
;LOOP THROUGH NODES TO CREATE REPORT FILES
F ACRNODE="ITEMS","ACRDOC","VNDR","NOHIT","NOMATCH","NOVNDR","ERR","TR","PAY","GTRIP","CHS","GR","CEIN" D
.S ACRFILE=ACRPFX_ACRNODE_ACRTAIL
.D WRITE(ACRNODE,ACRFILE)
;
S ACRCORE=$G(^ACRZ("ACRCORE","TOTAL")) ;NUMBER OF RECORDS IN CORE FILE
S ACRMTCH=0
F I="ACRDOC","NOVNDR","TR" D ;TOTAL ALL ARMS MATCHES
.S ACRMTCH=ACRMTCH+$G(^ACRZ(I,"TOTAL"))
S ACRMTCH=ACRMTCH-TRCNT ;SUBTRACT NUMBER OF NO HIT/MATCH TRAVEL
S ACRSTR=ACRSITEN_U_ACRCORE_U_ACRMTCH
;
F I="TOTALS","ACRDOC","NOVNDR","VNDR","ERR","NOHIT","NOMATCH","TR","PAY","GTRIP","CHS","GR" D
.S ACRSTR=ACRSTR_U_$G(^ACRZ(I,"TOTAL")) ;CREATE 'TOTALS' SUMMARY STRING
.Q:I="ERR"
.Q:I="VNDR"
.S:I'="TOTALS" ACRRPTOT=ACRRPTOT+^ACRZ(I,"TOTAL") ;TOTAL NUMBER IN REPORTS
;
S ACRSTR=ACRSTR_U_ACRRPTOT
S ^ACRZ("TOTALS")=ACRSTR
S ACRFILE=ACRPFX_"TOTALS"_ACRTAIL
D WRITE("TOTALS",ACRFILE)
I IOST'["C-" Q ;TASKED JOB
U 0
S RAY=0
F S RAY=$O(ACRARY(RAY)) Q:RAY="" D
.W !,ACRARY(RAY)
W !!,"CORE OPEN DOCUMENT FILE IMPORTED ",$G(^ACRZ("ACRCORE"))
W !,"TOTAL RECORDS FROM CORE FILE = ",ACRCORE
W !,"TOTAL RECORDS IN REPORT FILES = ",ACRRPTOT
W !?10,"TOTAL MATCHED DOCUMENTS = ",ACRMTCH
W !?10,"TOTAL VENDORS IN MATCHED FILES = ",^ACRZ("VNDR","TOTAL")
W !?10,"TOTAL MATCHED DOCUMENTS WITH VENDOR ERRORS = ",^ACRZ("ERR","TOTAL")
D PAUSE^ACRFWARN
Q
;
;*************************************************************
WRITE(ACRNODE,ACRFILE) ;----- WRITE ^ACRZ(ACRNODE GLOBAL TO UNIX FILE
;
N %DEV,ACR,ACRDIR,I,ACRI,ACRD,ACRN,ACRSTR,ACRFY
K ACRARY(ACRNODE)
S ACRSTR=""
S ACRDIR=$$ARMSDIR^ACRFSYS(1)
D HFS^ACRFZISH(ACRDIR,.ACRFILE,"W",.%DEV)
Q:'$D(%DEV)
U %DEV
D @(ACRNODE_"H") ;WRITE HEADING
I ACRNODE="TOTALS" D Q ;SINGLE STRING ONLY
.S ACRSTR=^ACRZ(ACRNODE)
.D CNT
.S ACRARY(ACRNODE)=ACRCNT_" records have been put into file "_ACRDIR_ACRFILE
.D CLOSE^%ZISH("FILE")
S ACRCNT=0
S ACRD=""
F S ACRD=$O(^ACRZ(ACRNODE,ACRD)) Q:ACRD="" D
.Q:ACRD="TOTAL"
.S ACRSTR=$G(^ACRZ(ACRNODE,ACRD))
.I ACRNODE="ACRDOC"!(ACRNODE="VNDR")!(ACRNODE="ERR") D
..S ACRSTR=$P(ACRSTR,U,3,99) ;STRIP AP/VIEN FROM REPORTS
.I ACRNODE="ITEMS" D Q ;LOOP THRU MULTIPLE ITEMS
..S NUM=0
..F S NUM=$O(^ACRZ(ACRNODE,ACRD,NUM)) Q:'NUM D
...S ACRSTR=""
...F I=1:1:3 S ACRSTR=ACRSTR_$G(^ACRZ(ACRNODE,ACRD,NUM,I))_U
...D CNT
.D CNT
W !,$C(34)_"TOTAL = "_ACRCNT_$C(34)
S ACRARY(ACRNODE)=ACRCNT_" records have been put into file "_ACRDIR_ACRFILE
D CLOSE^%ZISH("FILE")
S ACRTOT=ACRTOT+ACRCNT
Q
;*************************************************
CNT ;
W !
F I=1:1:$L(ACRSTR,U) D
.S TMP=$P(ACRSTR,U,I)
.W $C(34) ;WRITE " DOUBLE QUOTE
.I $E(TMP)="0",$L(TMP)'=1 W $C(39) ;WRITE ' SINGLE QUOTE IN FRONT OF ZERO
.W TMP_$C(34)_$C(44) ;WRITE " DOUBLE QUOTE AND COMMA
I ACRNODE="TR",$E(ACRSTR,1,3)="NO " S TRCNT=TRCNT+1 ;COUNT NO HIT/MATCH TRAVEL
S ACRCNT=ACRCNT+1
Q
;
;*************************************************************
TRH ;TRAVEL DOCUMENTS
NOMATCHH ;HEADING; DOCUMENT HIT BUT NO MATCH WITH CORE
NOVNDRH ;HEADING; MATCHED DOCUMENTS WITH NO VENDOR
W $C(34)_"NAME"_$C(34)
W $C(44)_$C(34)_"REQUISITION"_$C(34)
W $C(44)_$C(34)_"DATE OF DOCUMENT/TRANSMISSION"_$C(34)
W $C(44)_$C(34)_"IDENTIFIER/INVOICE"_$C(34)
D COREH
I ACRNODE'="NOMATCH" D
.W $C(44)_$C(34)_"ARMS RR STATUS"_$C(34)
.W $C(44)_$C(34)_"ARMS INVOICE STATUS"_$C(34)
Q
;
;*************************************************************
ACRDOCH ;HEADING; MATCHED DOCUMENTS WITH VENDOR AND ERROR FLAG
VNDRH ;HEADING; MATCHED DOCUMENT VENDORS WITH ERRORS
ERRH ;HEADING; VENDOR ERRORS WITH DOCUMENTS TO FLAT FILE
W $C(34)_"VENDOR NAME"_$C(34)
W $C(44)_$C(34)_"VENDOR EIN"_$C(34)
W $C(44)_$C(34)_"SUFFIX"_$C(34)
W $C(44)_$C(34)_"ARMS REQUISITION"_$C(34)
W $C(44)_$C(34)_"DATE OF DOCUMENT/TRANSMISSION"_$C(34)
W $C(44)_$C(34)_"IDENTIFIER/INVOICE"_$C(34)
D COREH
W $C(44)_$C(34)_"ARMS RR STATUS"_$C(34)
W $C(44)_$C(34)_"ARMS INVOICE STATUS"_$C(34)
W $C(44)_$C(34)_"VENDOR ERRORS"_$C(34)
Q
;
;*************************************************************
NOHITH ;WRITE NO HITS WITH CORE FILE HEADINGS FOR FLAT FILE
GRH ;GRANT DOCUMENTS
NOTRH ;TRAVEL WITHOUT A HIT (NON-GTRIP)
CHSH ;CHS DOCUMENTS
GTRIPH ;GOVTRIP DOCUMENTS
PAYH ;PAY ROLL ENTRIES IN CORE FILE
CEINH ;CORE/ARMS VENDOR CHECK
W $C(34)_"NAME"_$C(34)
COREH ;WRITE ALL CORE RECORDS HEADINGS FOR FLAT FILE
W:ACRNODE'="ITEMS" $C(44)
W $C(34)_"ACCOUNTING POINT"_$C(34)
W $C(44)_$C(34)_"CORE DOC-TYPE"_$C(34)
W $C(44)_$C(34)_"CORE DOCUMENT"_$C(34)
W $C(44)_$C(34)_"FISCAL YEAR"_$C(34)
W $C(44)_$C(34)_"CAN"_$C(34)
W $C(44)_$C(34)_"OCC"_$C(34)
W $C(44)_$C(34)_"CORE DOLLAR AMOUNT"_$C(34)
W $C(44)_$C(34)_"CORE REFERENCE CODE"_$C(34)
W $C(44)_$C(34)_"CORE VENDOR EIN"_$C(34)
Q
TOTALSH ;WRITE SUMMARY TOTALS
W $C(34)_"AREA OFFICE SITE"_$C(34)
W $C(44)_$C(34)_"RECORDS FROM CORE (ACRCORE)"_$C(34)
W $C(44)_$C(34)_"ARMS DOCUMENTS MATCHED WITH OPEN CORE RECORDS"_$C(34)
W $C(44)_$C(34)_"TOTAL UNDISBURSED AMOUNT"_$C(34)
W $C(44)_$C(34)_"MATCHED WITH VENDORS (ACRDOC)"_$C(34)
W $C(44)_$C(34)_"MATCHED WITH NO VENDOR (NOVNDR)"_$C(34)
W $C(44)_$C(34)_"UNIQUE MATCHED DOCUMENT VENDORS (VNDR)"_$C(34)
W $C(44)_$C(34)_"MATCHED RECORDS WITH VENDOR ERRORS (ERR)"_$C(34)
W $C(44)_$C(34)_"RECORDS WITH NO MATCHING DOC # (NOHIT)"_$C(34)
W $C(44)_$C(34)_"RECORDS WITH MATCHING DOC # AND NO MATCH ON CAN, OCC, FY (NOMATCH)"_$C(34)
W $C(44)_$C(34)_"ALL ARMS TRAVEL DOCUMENTS"_$C(34)
W $C(44)_$C(34)_"NO HIT PAYROLL RECORDS (PAY)"_$C(34)
W $C(44)_$C(34)_"NO HIT GOVTRIP DOCUMENTS"_$C(34)
W $C(44)_$C(34)_"NO HIT CHS DOCUMENTS"_$C(34)
W $C(44)_$C(34)_"NO HIT GRANT DOCUMENT"_$C(34)
W $C(44)_$C(34)_"RECORDS IN REPORTS"_$C(34)
Q
ITEMSH ;WRITE HEADINGS FOR LINE ITEMS
D COREH
1 W $C(44)_$C(34)_"ITEM NUMBER IN DOCUMENT"_$C(34)
W $C(44)_$C(34)_"UNIT OF ISSUE"_$C(34)
W $C(44)_$C(34)_"QUANTITY"_$C(34)
W $C(44)_$C(34)_"UNIT COST"_$C(34)
W $C(44)_$C(34)_"ESTIMATED COST"_$C(34)
W $C(44)_$C(34)_"QUANTITY RECEIVED"_$C(34)
W $C(44)_$C(34)_"QUANTITY ACCEPTED"_$C(34)
W $C(44)_$C(34)_"QUANTITY DUE IN"_$C(34)
W $C(44)_$C(34)_"RR QUANTITY RECEIVED"_$C(34)
W $C(44)_$C(34)_"RR QUANTITY ACCEPTED"_$C(34)
W $C(44)_$C(34)_"RR INVOICE QUANTITY"_$C(34)
W $C(44)_$C(34)_"AMOUNT PAID"_$C(34)
W $C(44)_$C(34)_"ARMS RR STATUS"_$C(34)
W $C(44)_$C(34)_"ARMS INVOICE STATUS"_$C(34)
;
2 W $C(44)_$C(34)_"LINE DESCRIPTION"_$C(34)
W $C(44)_$C(34)_"KEYWORD"_$C(34)
W $C(44)_$C(34)_"STANDARD ITEM NUMBER"_$C(34)
3 ;
W $C(44)_$C(34)_"ITEM DESCRIPTION"_$C(34)
W $C(44)_$C(34)_"CAN 'BILL TO' LOCATION"_$C(34)
W $C(44)_$C(34)_"CAN 'SHIP TO' LOCATION"_$C(34)
W $C(44)_$C(34)_"DEPARTMENT LOCATION"_$C(34)
W $C(44)_$C(34)_"DEPARTMENT LOCATION CODE NAME"_$C(34)
W $C(44)_$C(34)_"CAN LOCATION"_$C(34)
W $C(44)_$C(34)_"CAN LOCATION CODE NAME"_$C(34)
;
Q
ACRFUFMR ;IHS/OIRM/DSD/AEF - UTILITY STANDALONE TO READ OPEN DOCUMENTS FROM CORE FOR UFMS [ 05/16/2007 9:44 AM ]
+1 ;;2.1;ADMIN RESOURCE MGMT SYSTEM;**22**;NOV 05, 2001
+2 ;NEW ROUTINE ACR*2.1*22 UFMS
+3 ;
+4 ;*************************************************************
READ ;EP;READ CONTENTS OF UNIX CORE FILES INTO ^ACRZ GLOBALS
+1 ;
+2 ; ACRFN = ARMS/CORE FILENAME -- Docs##.txt ; ## = Accounting point
+3 ;
+4 NEW ACRDIR,X,%DEV,ACRSTR,ACRI,ACRFN,ACRFAP
+5 NEW P1,P2,P3,P4,P5,P6,P7,P8,P9,ACRQUIT
+6 SET ACRFAP=$PIECE(^AUTTACPT($PIECE(^ACRSYS(1,"DT1"),U,13),0),U)
+7 ;MODIFY FOR HQ/NP
IF ACRFAP=65
SET ACRFAP="65-94"
+8 SET ACRFN="Docs"_ACRFAP_".txt"
+9 SET ACRDIR=$$ARMSDIR^ACRFSYS(1)
+10 IF ACRDIR["/usr/ACR/"
SET ACRDIR="/usr/ACR/"
+11 DO HFS^ACRFZISH(ACRDIR,ACRFN,"R",.%DEV)
+12 IF $GET(%DEV)']""
QUIT
+13 KILL ^ACRZ("ACRCORE")
+14 USE %DEV
+15 SET (ACRI,ACRQUIT)=0
+16 ;DIRECT READ OF UNIX FLAT FILE
FOR
READ X:DTIME
Begin DoDot:1
+17 SET ACRSTR=$$STR(X)
+18 IF ACRSTR=0
QUIT
+19 SET ACRI=ACRI+1
+20 SET ^ACRZ("ACRCORE",ACRI)=ACRSTR
End DoDot:1
IF ACRQUIT>4
QUIT
+21 ;
+22 DO CLOSE^%ZISH("FILE")
+23 ;DATE AND TIME STAMP
SET ^ACRZ("ACRCORE")=$$NOW^ACRFUTL
+24 ;NUMBER OF RECORDS
SET ^ACRZ("ACRCORE","TOTAL")=ACRI
+25 ;
+26 DO EN^ACRFUFMZ
+27 QUIT
+28 ;
+29 ;*************************************************************
STR(X) ; PARSING STRING
+1 ;40,AP,6007002300 ,2005,J40DU05,252Z,13292,100,1860777569A1
+2 ;SET QUIT CONDITION IF NULL
IF X=""
Begin DoDot:1
+3 ;IF IT FINDS FIVE NULL LINES, MUST BE EOF
SET ACRQUIT=ACRQUIT+1
End DoDot:1
QUIT 0
+4 ;DOL AMT
SET P7=$PIECE(X,",",7)
+5 ;SKIP ZERO DOLLAR AMOUNTS
IF P7=0!(P7="")
QUIT 0
+6 ;AP
SET P1=$PIECE(X,",",1)
+7 ;DOC-TYPE
SET P2=$PIECE(X,",",2)
+8 ;DOCUMENT
SET P3=$EXTRACT($PIECE(X,",",3),1,10)
+9 ;FY
SET P4=$PIECE(X,",",4)
+10 ;CAN
SET P5=$PIECE(X,",",5)
+11 ;OCC
SET P6=$PIECE(X,",",6)
+12 ;REF CODE
SET P8=$PIECE(X,",",8)
+13 ;VENDOR EIN
SET P9=$PIECE(X,",",9)
+14 SET STR=P1_U_P2_U_P3_U_P4_U_P5_U_P6_U_P7_U_P8_U_P9
+15 QUIT STR
+16 ;*************************************************************
+17 ; BEGIN REPORT FILE CREATION
+18 ;*************************************************************
ENW ;EP; ENTRY POINT FOR RECORDS GENERATED BY ^ACRFUFMZ
+1 ;
+2 NEW ACRNODE,ACRTOT,ACRTOTAL,ACRSITE,ACRCNT,ACRRPTOT,I,ACRCORE,ACRMTCH,TRCNT
+3 ;SITE NAME
SET ACRSITEN=$PIECE($GET(^AUTTAREA(+$GET(^ACRSYS(1,0)),0)),U)
+4 KILL ACRARY
+5 ;CREATE FILE NAME
+6 SET ACRSITE=$EXTRACT(ACRSITEN,1,3)
+7 IF ACRSITE="NAT"
SET ACRSITE="HQ"
+8 ; USE COMMA SEPARTED VALUE FORMAT
SET ACRTAIL=".csv"
+9 SET ACRPFX=ACRSITE_"_CORE_OPEN_"
+10 SET (ACRTOT,ACRRPTOT,TRCNT)=0
+11 ;
+12 ;LOOP THROUGH NODES TO CREATE REPORT FILES
+13 FOR ACRNODE="ITEMS","ACRDOC","VNDR","NOHIT","NOMATCH","NOVNDR","ERR","TR","PAY","GTRIP","CHS","GR","CEIN"
Begin DoDot:1
+14 SET ACRFILE=ACRPFX_ACRNODE_ACRTAIL
+15 DO WRITE(ACRNODE,ACRFILE)
End DoDot:1
+16 ;
+17 ;NUMBER OF RECORDS IN CORE FILE
SET ACRCORE=$GET(^ACRZ("ACRCORE","TOTAL"))
+18 SET ACRMTCH=0
+19 ;TOTAL ALL ARMS MATCHES
FOR I="ACRDOC","NOVNDR","TR"
Begin DoDot:1
+20 SET ACRMTCH=ACRMTCH+$GET(^ACRZ(I,"TOTAL"))
End DoDot:1
+21 ;SUBTRACT NUMBER OF NO HIT/MATCH TRAVEL
SET ACRMTCH=ACRMTCH-TRCNT
+22 SET ACRSTR=ACRSITEN_U_ACRCORE_U_ACRMTCH
+23 ;
+24 FOR I="TOTALS","ACRDOC","NOVNDR","VNDR","ERR","NOHIT","NOMATCH","TR","PAY","GTRIP","CHS","GR"
Begin DoDot:1
+25 ;CREATE 'TOTALS' SUMMARY STRING
SET ACRSTR=ACRSTR_U_$GET(^ACRZ(I,"TOTAL"))
+26 IF I="ERR"
QUIT
+27 IF I="VNDR"
QUIT
+28 ;TOTAL NUMBER IN REPORTS
IF I'="TOTALS"
SET ACRRPTOT=ACRRPTOT+^ACRZ(I,"TOTAL")
End DoDot:1
+29 ;
+30 SET ACRSTR=ACRSTR_U_ACRRPTOT
+31 SET ^ACRZ("TOTALS")=ACRSTR
+32 SET ACRFILE=ACRPFX_"TOTALS"_ACRTAIL
+33 DO WRITE("TOTALS",ACRFILE)
+34 ;TASKED JOB
IF IOST'["C-"
QUIT
+35 USE 0
+36 SET RAY=0
+37 FOR
SET RAY=$ORDER(ACRARY(RAY))
IF RAY=""
QUIT
Begin DoDot:1
+38 WRITE !,ACRARY(RAY)
End DoDot:1
+39 WRITE !!,"CORE OPEN DOCUMENT FILE IMPORTED ",$GET(^ACRZ("ACRCORE"))
+40 WRITE !,"TOTAL RECORDS FROM CORE FILE = ",ACRCORE
+41 WRITE !,"TOTAL RECORDS IN REPORT FILES = ",ACRRPTOT
+42 WRITE !?10,"TOTAL MATCHED DOCUMENTS = ",ACRMTCH
+43 WRITE !?10,"TOTAL VENDORS IN MATCHED FILES = ",^ACRZ("VNDR","TOTAL")
+44 WRITE !?10,"TOTAL MATCHED DOCUMENTS WITH VENDOR ERRORS = ",^ACRZ("ERR","TOTAL")
+45 DO PAUSE^ACRFWARN
+46 QUIT
+47 ;
+48 ;*************************************************************
WRITE(ACRNODE,ACRFILE) ;----- WRITE ^ACRZ(ACRNODE GLOBAL TO UNIX FILE
+1 ;
+2 NEW %DEV,ACR,ACRDIR,I,ACRI,ACRD,ACRN,ACRSTR,ACRFY
+3 KILL ACRARY(ACRNODE)
+4 SET ACRSTR=""
+5 SET ACRDIR=$$ARMSDIR^ACRFSYS(1)
+6 DO HFS^ACRFZISH(ACRDIR,.ACRFILE,"W",.%DEV)
+7 IF '$DATA(%DEV)
QUIT
+8 USE %DEV
+9 ;WRITE HEADING
DO @(ACRNODE_"H")
+10 ;SINGLE STRING ONLY
IF ACRNODE="TOTALS"
Begin DoDot:1
+11 SET ACRSTR=^ACRZ(ACRNODE)
+12 DO CNT
+13 SET ACRARY(ACRNODE)=ACRCNT_" records have been put into file "_ACRDIR_ACRFILE
+14 DO CLOSE^%ZISH("FILE")
End DoDot:1
QUIT
+15 SET ACRCNT=0
+16 SET ACRD=""
+17 FOR
SET ACRD=$ORDER(^ACRZ(ACRNODE,ACRD))
IF ACRD=""
QUIT
Begin DoDot:1
+18 IF ACRD="TOTAL"
QUIT
+19 SET ACRSTR=$GET(^ACRZ(ACRNODE,ACRD))
+20 IF ACRNODE="ACRDOC"!(ACRNODE="VNDR")!(ACRNODE="ERR")
Begin DoDot:2
+21 ;STRIP AP/VIEN FROM REPORTS
SET ACRSTR=$PIECE(ACRSTR,U,3,99)
End DoDot:2
+22 ;LOOP THRU MULTIPLE ITEMS
IF ACRNODE="ITEMS"
Begin DoDot:2
+23 SET NUM=0
+24 FOR
SET NUM=$ORDER(^ACRZ(ACRNODE,ACRD,NUM))
IF 'NUM
QUIT
Begin DoDot:3
+25 SET ACRSTR=""
+26 FOR I=1:1:3
SET ACRSTR=ACRSTR_$GET(^ACRZ(ACRNODE,ACRD,NUM,I))_U
+27 DO CNT
End DoDot:3
End DoDot:2
QUIT
+28 DO CNT
End DoDot:1
+29 WRITE !,$CHAR(34)_"TOTAL = "_ACRCNT_$CHAR(34)
+30 SET ACRARY(ACRNODE)=ACRCNT_" records have been put into file "_ACRDIR_ACRFILE
+31 DO CLOSE^%ZISH("FILE")
+32 SET ACRTOT=ACRTOT+ACRCNT
+33 QUIT
+34 ;*************************************************
CNT ;
+1 WRITE !
+2 FOR I=1:1:$LENGTH(ACRSTR,U)
Begin DoDot:1
+3 SET TMP=$PIECE(ACRSTR,U,I)
+4 ;WRITE " DOUBLE QUOTE
WRITE $CHAR(34)
+5 ;WRITE ' SINGLE QUOTE IN FRONT OF ZERO
IF $EXTRACT(TMP)="0"
IF $LENGTH(TMP)'=1
WRITE $CHAR(39)
+6 ;WRITE " DOUBLE QUOTE AND COMMA
WRITE TMP_$CHAR(34)_$CHAR(44)
End DoDot:1
+7 ;COUNT NO HIT/MATCH TRAVEL
IF ACRNODE="TR"
IF $EXTRACT(ACRSTR,1,3)="NO "
SET TRCNT=TRCNT+1
+8 SET ACRCNT=ACRCNT+1
+9 QUIT
+10 ;
+11 ;*************************************************************
TRH ;TRAVEL DOCUMENTS
NOMATCHH ;HEADING; DOCUMENT HIT BUT NO MATCH WITH CORE
NOVNDRH ;HEADING; MATCHED DOCUMENTS WITH NO VENDOR
+1 WRITE $CHAR(34)_"NAME"_$CHAR(34)
+2 WRITE $CHAR(44)_$CHAR(34)_"REQUISITION"_$CHAR(34)
+3 WRITE $CHAR(44)_$CHAR(34)_"DATE OF DOCUMENT/TRANSMISSION"_$CHAR(34)
+4 WRITE $CHAR(44)_$CHAR(34)_"IDENTIFIER/INVOICE"_$CHAR(34)
+5 DO COREH
+6 IF ACRNODE'="NOMATCH"
Begin DoDot:1
+7 WRITE $CHAR(44)_$CHAR(34)_"ARMS RR STATUS"_$CHAR(34)
+8 WRITE $CHAR(44)_$CHAR(34)_"ARMS INVOICE STATUS"_$CHAR(34)
End DoDot:1
+9 QUIT
+10 ;
+11 ;*************************************************************
ACRDOCH ;HEADING; MATCHED DOCUMENTS WITH VENDOR AND ERROR FLAG
VNDRH ;HEADING; MATCHED DOCUMENT VENDORS WITH ERRORS
ERRH ;HEADING; VENDOR ERRORS WITH DOCUMENTS TO FLAT FILE
+1 WRITE $CHAR(34)_"VENDOR NAME"_$CHAR(34)
+2 WRITE $CHAR(44)_$CHAR(34)_"VENDOR EIN"_$CHAR(34)
+3 WRITE $CHAR(44)_$CHAR(34)_"SUFFIX"_$CHAR(34)
+4 WRITE $CHAR(44)_$CHAR(34)_"ARMS REQUISITION"_$CHAR(34)
+5 WRITE $CHAR(44)_$CHAR(34)_"DATE OF DOCUMENT/TRANSMISSION"_$CHAR(34)
+6 WRITE $CHAR(44)_$CHAR(34)_"IDENTIFIER/INVOICE"_$CHAR(34)
+7 DO COREH
+8 WRITE $CHAR(44)_$CHAR(34)_"ARMS RR STATUS"_$CHAR(34)
+9 WRITE $CHAR(44)_$CHAR(34)_"ARMS INVOICE STATUS"_$CHAR(34)
+10 WRITE $CHAR(44)_$CHAR(34)_"VENDOR ERRORS"_$CHAR(34)
+11 QUIT
+12 ;
+13 ;*************************************************************
NOHITH ;WRITE NO HITS WITH CORE FILE HEADINGS FOR FLAT FILE
GRH ;GRANT DOCUMENTS
NOTRH ;TRAVEL WITHOUT A HIT (NON-GTRIP)
CHSH ;CHS DOCUMENTS
GTRIPH ;GOVTRIP DOCUMENTS
PAYH ;PAY ROLL ENTRIES IN CORE FILE
CEINH ;CORE/ARMS VENDOR CHECK
+1 WRITE $CHAR(34)_"NAME"_$CHAR(34)
COREH ;WRITE ALL CORE RECORDS HEADINGS FOR FLAT FILE
+1 IF ACRNODE'="ITEMS"
WRITE $CHAR(44)
+2 WRITE $CHAR(34)_"ACCOUNTING POINT"_$CHAR(34)
+3 WRITE $CHAR(44)_$CHAR(34)_"CORE DOC-TYPE"_$CHAR(34)
+4 WRITE $CHAR(44)_$CHAR(34)_"CORE DOCUMENT"_$CHAR(34)
+5 WRITE $CHAR(44)_$CHAR(34)_"FISCAL YEAR"_$CHAR(34)
+6 WRITE $CHAR(44)_$CHAR(34)_"CAN"_$CHAR(34)
+7 WRITE $CHAR(44)_$CHAR(34)_"OCC"_$CHAR(34)
+8 WRITE $CHAR(44)_$CHAR(34)_"CORE DOLLAR AMOUNT"_$CHAR(34)
+9 WRITE $CHAR(44)_$CHAR(34)_"CORE REFERENCE CODE"_$CHAR(34)
+10 WRITE $CHAR(44)_$CHAR(34)_"CORE VENDOR EIN"_$CHAR(34)
+11 QUIT
TOTALSH ;WRITE SUMMARY TOTALS
+1 WRITE $CHAR(34)_"AREA OFFICE SITE"_$CHAR(34)
+2 WRITE $CHAR(44)_$CHAR(34)_"RECORDS FROM CORE (ACRCORE)"_$CHAR(34)
+3 WRITE $CHAR(44)_$CHAR(34)_"ARMS DOCUMENTS MATCHED WITH OPEN CORE RECORDS"_$CHAR(34)
+4 WRITE $CHAR(44)_$CHAR(34)_"TOTAL UNDISBURSED AMOUNT"_$CHAR(34)
+5 WRITE $CHAR(44)_$CHAR(34)_"MATCHED WITH VENDORS (ACRDOC)"_$CHAR(34)
+6 WRITE $CHAR(44)_$CHAR(34)_"MATCHED WITH NO VENDOR (NOVNDR)"_$CHAR(34)
+7 WRITE $CHAR(44)_$CHAR(34)_"UNIQUE MATCHED DOCUMENT VENDORS (VNDR)"_$CHAR(34)
+8 WRITE $CHAR(44)_$CHAR(34)_"MATCHED RECORDS WITH VENDOR ERRORS (ERR)"_$CHAR(34)
+9 WRITE $CHAR(44)_$CHAR(34)_"RECORDS WITH NO MATCHING DOC # (NOHIT)"_$CHAR(34)
+10 WRITE $CHAR(44)_$CHAR(34)_"RECORDS WITH MATCHING DOC # AND NO MATCH ON CAN, OCC, FY (NOMATCH)"_$CHAR(34)
+11 WRITE $CHAR(44)_$CHAR(34)_"ALL ARMS TRAVEL DOCUMENTS"_$CHAR(34)
+12 WRITE $CHAR(44)_$CHAR(34)_"NO HIT PAYROLL RECORDS (PAY)"_$CHAR(34)
+13 WRITE $CHAR(44)_$CHAR(34)_"NO HIT GOVTRIP DOCUMENTS"_$CHAR(34)
+14 WRITE $CHAR(44)_$CHAR(34)_"NO HIT CHS DOCUMENTS"_$CHAR(34)
+15 WRITE $CHAR(44)_$CHAR(34)_"NO HIT GRANT DOCUMENT"_$CHAR(34)
+16 WRITE $CHAR(44)_$CHAR(34)_"RECORDS IN REPORTS"_$CHAR(34)
+17 QUIT
ITEMSH ;WRITE HEADINGS FOR LINE ITEMS
+1 DO COREH
1 WRITE $CHAR(44)_$CHAR(34)_"ITEM NUMBER IN DOCUMENT"_$CHAR(34)
+1 WRITE $CHAR(44)_$CHAR(34)_"UNIT OF ISSUE"_$CHAR(34)
+2 WRITE $CHAR(44)_$CHAR(34)_"QUANTITY"_$CHAR(34)
+3 WRITE $CHAR(44)_$CHAR(34)_"UNIT COST"_$CHAR(34)
+4 WRITE $CHAR(44)_$CHAR(34)_"ESTIMATED COST"_$CHAR(34)
+5 WRITE $CHAR(44)_$CHAR(34)_"QUANTITY RECEIVED"_$CHAR(34)
+6 WRITE $CHAR(44)_$CHAR(34)_"QUANTITY ACCEPTED"_$CHAR(34)
+7 WRITE $CHAR(44)_$CHAR(34)_"QUANTITY DUE IN"_$CHAR(34)
+8 WRITE $CHAR(44)_$CHAR(34)_"RR QUANTITY RECEIVED"_$CHAR(34)
+9 WRITE $CHAR(44)_$CHAR(34)_"RR QUANTITY ACCEPTED"_$CHAR(34)
+10 WRITE $CHAR(44)_$CHAR(34)_"RR INVOICE QUANTITY"_$CHAR(34)
+11 WRITE $CHAR(44)_$CHAR(34)_"AMOUNT PAID"_$CHAR(34)
+12 WRITE $CHAR(44)_$CHAR(34)_"ARMS RR STATUS"_$CHAR(34)
+13 WRITE $CHAR(44)_$CHAR(34)_"ARMS INVOICE STATUS"_$CHAR(34)
+14 ;
2 WRITE $CHAR(44)_$CHAR(34)_"LINE DESCRIPTION"_$CHAR(34)
+1 WRITE $CHAR(44)_$CHAR(34)_"KEYWORD"_$CHAR(34)
+2 WRITE $CHAR(44)_$CHAR(34)_"STANDARD ITEM NUMBER"_$CHAR(34)
3 ;
+1 WRITE $CHAR(44)_$CHAR(34)_"ITEM DESCRIPTION"_$CHAR(34)
+2 WRITE $CHAR(44)_$CHAR(34)_"CAN 'BILL TO' LOCATION"_$CHAR(34)
+3 WRITE $CHAR(44)_$CHAR(34)_"CAN 'SHIP TO' LOCATION"_$CHAR(34)
+4 WRITE $CHAR(44)_$CHAR(34)_"DEPARTMENT LOCATION"_$CHAR(34)
+5 WRITE $CHAR(44)_$CHAR(34)_"DEPARTMENT LOCATION CODE NAME"_$CHAR(34)
+6 WRITE $CHAR(44)_$CHAR(34)_"CAN LOCATION"_$CHAR(34)
+7 WRITE $CHAR(44)_$CHAR(34)_"CAN LOCATION CODE NAME"_$CHAR(34)
+8 ;
+9 QUIT
