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

RCDPXPA1.m

Go to the documentation of this file.
  1. RCDPXPA1 ;WISC/RFJ-server, utilities for transmission file 344.2 ;1 Jun 99
  1. ;;4.5;Accounts Receivable;**114,150**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. Q
  1. ;
  1. ;
  1. ADDTRAN(DATE) ; if the transmission date is not entered, add it
  1. ; already in file
  1. I $D(^RCY(344.2,+DATE,0)) Q 1
  1. ;
  1. ; add it
  1. N %DT,D0,DA,DD,DI,DIC,DIE,DINUM,DLAYGO,DO,DQ,DR,X,Y
  1. S DIC="^RCY(344.2,",DIC(0)="L",DLAYGO=344.2
  1. ; .02 = total sequences (set to 0) .03 = total dollars (set to 0)
  1. ; .04 = status (set to receiving) .06 = checksum (set to 0)
  1. S DIC("DR")=".02////0;.03////0;.04////r;.05///TODAY;.06////0"
  1. S (X,DINUM)=DATE
  1. D FILE^DICN
  1. I Y>0 Q 1
  1. Q 0
  1. ;
  1. ;
  1. TRANDOLL(DA,SEQUENCE,DOLLARS) ; store the total sequences and total dollars
  1. I '$D(^RCY(344.2,+DA,0)) Q
  1. N D,D0,DI,DIC,DIE,DQ,DR,X
  1. S (DIC,DIE)="^RCY(344.2,"
  1. S DR=""
  1. ; only store total sequence and dollars if not zero, otherwise it
  1. ; may reset the values to zero
  1. I SEQUENCE S DR=".02////"_SEQUENCE_";"
  1. I DOLLARS S DR=DR_".03////"_DOLLARS_";"
  1. I DR="" Q
  1. D ^DIE
  1. Q
  1. ;
  1. ;
  1. TRANCSUM(TRANSDA,SEQUENCE,CHECKSUM) ; store the transmissions checksum
  1. N D,D0,DA,DI,DIC,DIE,DQ,DR,X
  1. S (DIC,DIE)="^RCY(344.2,"_TRANSDA_",1,"
  1. S DA(1)=TRANSDA,DA=SEQUENCE
  1. S DR=".05///"_CHECKSUM_";"
  1. D ^DIE
  1. Q
  1. ;
  1. ;
  1. TRANSTAT(DA,STATUS) ; store the transmissions status
  1. I '$D(^RCY(344.2,+DA,0)) Q
  1. N %,%DT,D,D0,DDER,DI,DIC,DIE,DQ,DR,X
  1. S (DIC,DIE)="^RCY(344.2,"
  1. S DR=".04///"_STATUS_";.05///TODAY;"
  1. D ^DIE
  1. Q
  1. ;
  1. ;
  1. TRANERR(DA,RCDPXMZ,ERROR) ; store the error message
  1. I '$D(^RCY(344.2,+DA,0)) Q
  1. N DA1
  1. S DA1=$P($G(^RCY(344.2,DA,2,0)),"^",3)+1
  1. S ^RCY(344.2,DA,2,DA1,0)="Message: "_RCDPXMZ_", Error: "_ERROR
  1. S ^RCY(344.2,DA,2,0)="^^"_DA1_"^"_DA1_"^"_DT_"^"
  1. Q
  1. ;
  1. ;
  1. ADDSEQ(TRANSDA,SEQUENCE) ; add sequence for transmission (in transda)
  1. I 'SEQUENCE Q 0
  1. I '$D(^RCY(344.2,+TRANSDA,0)) Q 0
  1. I $D(^RCY(344.2,TRANSDA,1,SEQUENCE,0)) Q SEQUENCE
  1. I '$D(^RCY(344.2,TRANSDA,1,0)) S ^(0)="^344.21^"
  1. N D0,DA,DI,DIC,DIE,DINUM,DLAYGO,DO,DQ,DR,X,Y
  1. ;
  1. S (DINUM,X)=+SEQUENCE
  1. S DA(1)=TRANSDA
  1. S DIC="^RCY(344.2,"_TRANSDA_",1,",DIC(0)="L",DLAYGO=344.21
  1. S DIC("DR")=".12////"_DUZ_";.06///TODAY;"
  1. D FILE^DICN
  1. Q +Y
  1. ;
  1. ;
  1. SEQUDOLL(TRANSDA,SEQUENCE,COUNT,DOLLARS,MAILMESS) ; store the total
  1. ; transactions (in count), dollars (in dollars), and mail message
  1. ; number for the transmission sequence
  1. N D,D0,DA,DI,DIC,DIE,DQ,DR,X
  1. S (DIC,DIE)="^RCY(344.2,"_TRANSDA_",1,"
  1. S DA(1)=TRANSDA,DA=SEQUENCE
  1. S DR=".02///"_COUNT_";.03///"_DOLLARS_";"
  1. I MAILMESS S DR=DR_".04////"_MAILMESS_";"
  1. D ^DIE
  1. Q
  1. ;
  1. ;
  1. DELETRAN(DA) ; delete the transmission from the file
  1. I '$D(^RCY(344.2,+DA,0)) Q
  1. N %,DIC,DIK
  1. S DIK="^RCY(344.2,"
  1. D ^DIK
  1. Q