Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACRFIV31

ACRFIV31.m

Go to the documentation of this file.
  1. ACRFIV31 ;IHS/OIRM/DSD/THL,AEF - INVOICE AUDITS CONTINUED; [ 11/01/2001 9:44 AM ]
  1. ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
  1. ;;ROUTINE CALLED DURING PROCESSING OF INVOICES
  1. INVOICE ;EP
  1. D TOTACP1
  1. I ACRIVDX'<ACRACP D
  1. .W !!,ACRACP," of these items ",$S(ACRRQD=1:"was",1:"were")," recieved and accepted,"
  1. .W !,ACRIVDX,$S(ACRIVDX=1:" has",1:" have")," already been invoiced."
  1. .W !,"No further invoice action should be taken for this item."
  1. .D PAUSE^ACRFWARN
  1. S DIR(0)="NOA^-999999:9999999:3"
  1. S DIR("A")="UNIT COST...........: "
  1. S DIR("?")="Enter the actual UNIT COST of the item from the invoice"
  1. S DIR("B")=ACRUC
  1. D DIR^ACRFDIC
  1. I $D(ACRQUIT)!$D(ACROUT) D INCOMPLT Q
  1. S ACRUCX=Y
  1. S DIR(0)="NOA^0:"_ACRUNINV
  1. S DIR("A")="NUMBER INVOICED.....: "
  1. S DIR("?")="Enter the actual number on the invoice"
  1. S DIR("B")=ACRUNACP
  1. D DIR^ACRFDIC
  1. I $D(ACRQUIT)!$D(ACROUT) D INCOMPLT Q
  1. S ACRIVDX=Y,ACRIVD=ACRIVD+Y
  1. D DATE
  1. D ADD
  1. Q
  1. ADD ;EP;ADD INVOICE AUDIT
  1. D NOW^%DTC
  1. S ACRDATE=%
  1. S DA=ACRRRDA
  1. S ACRACPX=$P(^ACRRR(DA,"DT"),U,3)
  1. S ACRSSDA=+^ACRRR(DA,0)
  1. S ACRUCX=$P(^ACRSS(ACRSSDA,"DT"),U,3)
  1. S DIE="^ACRRR("
  1. S DR=".09////"_DUZ_";.1////"_%_";5////"_ACRUCX_";6////"_ACRACPX_";7////"_ACRIVNO
  1. D DIE^ACRFDIC
  1. S X=ACRDATE
  1. S DA(1)=ACRRRDA
  1. S DIC(0)="L"
  1. S DIC="^ACRRR("_ACRRRDA_",12,"
  1. S DIC("DR")=".02////"_DUZ_";.03////1"
  1. S:'$D(@(DIC_"0)")) ^ACRRR(ACRRRDA,12,0)="^9002193.2121D"
  1. D FILE^ACRFDIC
  1. C1 ;EP;
  1. D TOTAL
  1. S DA=ACRSSDA
  1. S DIE="^ACRSS("
  1. S DR="16////"_(ACRIVD*ACRUC)_";17////"_ACRIVD_";32////"_ACRUC
  1. D DIE^ACRFDIC
  1. Q
  1. INCOMPLT W !!,*7,*7,"Data entry for ITEM NO. ",ACRJ," not completed, entry not accepted."
  1. H 2
  1. K ACRQUIT
  1. Q
  1. TOTAL S (X,ACRIVD,ACRUC,ACRACP)=0
  1. F S X=$O(^ACRRR("B",ACRSSDA,X)) Q:'X D
  1. .I $D(^ACRRR(X,"DT")) S ACRRRDT=^("DT") D
  1. ..S ACRACP=ACRACP+$P(ACRRRDT,U,3)
  1. ..S ACRIVD=ACRIVD+$P(ACRRRDT,U,6)
  1. ..S:$P(ACRRRDT,U,5)>ACRUC ACRUC=$P(ACRRRDT,U,5)
  1. Q
  1. RRNO ;EP;TO DETERMINE THE NO OF RECEIVING REPORTS ON FILE
  1. S (X,Z)=0
  1. F S X=$O(^ACRRR("AC",ACRDOCDA,X)) Q:'X S Z=Z+1
  1. S ACRRRNO=Z
  1. Q
  1. TOTCHK ;EP;CALLED BY INPUT TRANSFOR TO ENSURE THAT THE QUANTITY INVOICED ON A
  1. ;INVOICE AUDIT DOES NOT MAKE THE TOTAL QUANTITY INVOICED GREATER THAN
  1. ;TOTAL QUANTITY RECEIVED AND ACCEPTED
  1. D TOTACP
  1. S:$D(^ACRRR(DA,"DT")) ACRIVDX=ACRIVD-$P(^("DT"),U,2)
  1. I ACRIVDX+X>ACRACP D
  1. .W !!,*7,*7
  1. .W "The quantity received on this receiving action cannot make the total quantity"
  1. .W !,"received greater than the total quantity ordered (",ACRRQD,")"
  1. .W !
  1. .K X
  1. Q
  1. TOTACP ;EP;TO CALCULATE THE TOTAL INVOICED FOR AN ITEM
  1. S ACRIVDX=0
  1. I '$D(ACRRRDA),'$D(DA) D TOTACP1 Q
  1. I '$D(DA),$D(ACRRRDA) S DA=ACRRRDA
  1. N ACRRRDA,ACRSSDA
  1. S ACRRRDA=DA
  1. Q:'$D(^ACRRR(DA,0)) S ACRSSDA=+^(0)
  1. TOTACP1 Q:'$D(^ACRSS(ACRSSDA,"DT")) S ACRACP=$P(^("DT"),U,3)
  1. S (ACRIVD,ACRRRX,ACRACP)=0
  1. F S ACRRRX=$O(^ACRRR("B",ACRSSDA,ACRRRX)) Q:'ACRRRX S:$D(^ACRRR(ACRRRX,"DT")) ACRRRDT=^("DT"),ACRIVD=ACRIVD+$P(ACRRRDT,U,6)
  1. K ACRRRX
  1. Q
  1. DATE ;
  1. S DIR(0)="DOA^::E"
  1. S DIR("A")="DATE INVOICED.......: "
  1. S DIR("?")="Enter the date the items were actually received"
  1. D DIR^ACRFDIC
  1. I $D(ACRQUIT)!$D(ACROUT) D INCOMPLT Q
  1. S ACRDATE=Y
  1. Q
  1. ALL ;EP;TO UP-DATE ALL INVOICED ITEMS BASED ON THE RECEIVING REPORT
  1. Q:'$D(ACRRR)#2
  1. S X=0,Y=""
  1. F S X=$O(^TMP("ACRRR",$J,X)) Q:'X S Y=Y_X_","
  1. Q:'+Y
  1. S ACRIVY=Y
  1. W !!,"The following procedure will update the invoice record to show that the"
  1. W !,"quantities and costs on the invoice are the same as the quantities and costs"
  1. W !,"shown on this receiving report."
  1. S DIR(0)="YO"
  1. S DIR("A")="Do you want to proceed"
  1. S DIR("B")="NO"
  1. S DIR("?")="Enter 'Y' to proceed with this update, 'N' to return without an invoice update."
  1. W !
  1. D DIR^ACRFDIC
  1. Q:Y'=1
  1. N ACRI
  1. F ACRI=1:1 S Y=$P(ACRIVY,",",ACRI) Q:'Y I $D(^TMP("ACRRR",$J,Y)) S ACRRRDA=+ACRRR(Y) D ADD
  1. Q