ASUUINTG ; IHS/ITSC/LMH - MASTER TO HISTORY INTEGRITY ;
;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
VALQTY ;
N S,X,H,C,V,Q,F,F1,E
S S=40002,X=0,F1=0
F S X=$O(^ASUMS(S,1,X)) Q:X'?1N.N D
.S V=$P(^ASUMS(S,1,X,0),U,16),Q=$P(^ASUMS(S,1,X,0),U,17),F=0
.S H=999999999 F C=0:1 S H=$O(^ASUH("I",X,H),-1) Q:H']"" D Q:F=1
..S HQ=$P(^ASUH(H,1),U,6),HV=$P(^ASUH(H,1),U,7),HS=$P(^ASUH(H,0),U,24),HMQ=$P(^ASUH(H,0),U,21),HMV=$P(^ASUH(H,0),U,22)
..I HMQ=Q,HMV=V D
...S Q=(Q-(HQ*HS)),V=(V-(HV*HS))
..E D Q
...I F1=0 D
....S F1=1
....W !,"INDEX",?8,"QTY",?14," VALUE ",?23,"HIST"
....W ?29,"HQTY",?35,"MQTY",?41,"QTYD"
....W ?47," VALUE ",?57,"MSTRVAL",?67," VAL DIFF ",?77,"TRANS BACK"
...W !,$E(X,3,7),".",$E(X,8)
...W ?8,$J($FN(Q,","),5)
...W ?14,$J($FN(V,",",2),8)
...W ?23,$J(H,5),?29,$J($FN(Q,","),5)
...W ?35,$J($FN(HMQ,","),5)
...W ?41,$J($FN((Q-HMQ),","),5)
...W ?47,$J($FN(V,",",2),8)
...W ?57,$J($FN(HMV,",",2),8)
...W ?67,$J($FN((V-HMV),",",2),8)
...S F=1,E=$G(E)+1
.W:$G(F)>0 ?76,$J($FN(C,","),4)
W !!,"TOTAL ERRORS:",$J($FN($G(E),","),8)
Q
KEYS ;
N H,K,B,D,A,S
S H=0 F C=0:1 S H=$O(^ASUH(H)) Q:H'?1N.N D
.S K=$P(^ASUH(H,0),U),D=$P(K,"-",2),S=$P(K,"-",3)
.I D'=$G(B) W:D'>$G(B) !,"DATE SEQ ERR:PREV:",B," NEXT:",D S B=D,A=1
.I A'=+S W !,"SEQ ERR:#",H," DATE:",D," SEQ:",$J(+S,6)," CNT:",$J(A,6) I S>A W " DROPED:",A W:S>(A+1) "-",(S-1) S A=S
.S A=$G(A)+1
Q
ASUUINTG ; IHS/ITSC/LMH - MASTER TO HISTORY INTEGRITY ;
+1 ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
VALQTY ;
+1 NEW S,X,H,C,V,Q,F,F1,E
+2 SET S=40002
SET X=0
SET F1=0
+3 FOR
SET X=$ORDER(^ASUMS(S,1,X))
IF X'?1N.N
QUIT
Begin DoDot:1
+4 SET V=$PIECE(^ASUMS(S,1,X,0),U,16)
SET Q=$PIECE(^ASUMS(S,1,X,0),U,17)
SET F=0
+5 SET H=999999999
FOR C=0:1
SET H=$ORDER(^ASUH("I",X,H),-1)
IF H']""
QUIT
Begin DoDot:2
+6 SET HQ=$PIECE(^ASUH(H,1),U,6)
SET HV=$PIECE(^ASUH(H,1),U,7)
SET HS=$PIECE(^ASUH(H,0),U,24)
SET HMQ=$PIECE(^ASUH(H,0),U,21)
SET HMV=$PIECE(^ASUH(H,0),U,22)
+7 IF HMQ=Q
IF HMV=V
Begin DoDot:3
+8 SET Q=(Q-(HQ*HS))
SET V=(V-(HV*HS))
End DoDot:3
+9 IF '$TEST
Begin DoDot:3
+10 IF F1=0
Begin DoDot:4
+11 SET F1=1
+12 WRITE !,"INDEX",?8,"QTY",?14," VALUE ",?23,"HIST"
+13 WRITE ?29,"HQTY",?35,"MQTY",?41,"QTYD"
+14 WRITE ?47," VALUE ",?57,"MSTRVAL",?67," VAL DIFF ",?77,"TRANS BACK"
End DoDot:4
+15 WRITE !,$EXTRACT(X,3,7),".",$EXTRACT(X,8)
+16 WRITE ?8,$JUSTIFY($FNUMBER(Q,","),5)
+17 WRITE ?14,$JUSTIFY($FNUMBER(V,",",2),8)
+18 WRITE ?23,$JUSTIFY(H,5),?29,$JUSTIFY($FNUMBER(Q,","),5)
+19 WRITE ?35,$JUSTIFY($FNUMBER(HMQ,","),5)
+20 WRITE ?41,$JUSTIFY($FNUMBER((Q-HMQ),","),5)
+21 WRITE ?47,$JUSTIFY($FNUMBER(V,",",2),8)
+22 WRITE ?57,$JUSTIFY($FNUMBER(HMV,",",2),8)
+23 WRITE ?67,$JUSTIFY($FNUMBER((V-HMV),",",2),8)
+24 SET F=1
SET E=$GET(E)+1
End DoDot:3
QUIT
End DoDot:2
IF F=1
QUIT
+25 IF $GET(F)>0
WRITE ?76,$JUSTIFY($FNUMBER(C,","),4)
End DoDot:1
+26 WRITE !!,"TOTAL ERRORS:",$JUSTIFY($FNUMBER($GET(E),","),8)
+27 QUIT
KEYS ;
+1 NEW H,K,B,D,A,S
+2 SET H=0
FOR C=0:1
SET H=$ORDER(^ASUH(H))
IF H'?1N.N
QUIT
Begin DoDot:1
+3 SET K=$PIECE(^ASUH(H,0),U)
SET D=$PIECE(K,"-",2)
SET S=$PIECE(K,"-",3)
+4 IF D'=$GET(B)
IF D'>$GET(B)
WRITE !,"DATE SEQ ERR:PREV:",B," NEXT:",D
SET B=D
SET A=1
+5 IF A'=+S
WRITE !,"SEQ ERR:#",H," DATE:",D," SEQ:",$JUSTIFY(+S,6)," CNT:",$JUSTIFY(A,6)
IF S>A
WRITE " DROPED:",A
IF S>(A+1)
WRITE "-",(S-1)
SET A=S
+6 SET A=$GET(A)+1
End DoDot:1
+7 QUIT
