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

RCRCRT2.m

Go to the documentation of this file.
  1. RCRCRT2 ;ALB-ISC/CMS - RC AND DOJ TRANSACTION ROU 2 ;8/15/97
  1. V ;;4.5;Accounts Receivable;**63**;Mar 20, 1995
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. CAN ;Called from RCRCRT1 ask to Cancel
  1. N DA,DIC,DIE,DR,PRCAEN,D0,X,Y,%
  1. W !!
  1. S %=2 W !,"Do you want to CANCEL this referral to RC/DOJ " D YN^DICN
  1. I %'=1 W !,"NOTHING CHANGED !",! G CANQ
  1. S DA=PRCABN,DIE="^PRCA(430,"
  1. S DR="64///@;65///@;66///@" D ^DIE
  1. W !,"Bill is no longer Referred! ",!
  1. S %=2 W !,"Do you want to add a Bill Comment Log entry " D YN^DICN
  1. I %'=1 W !,"No Bill Comment Log entry added !",! G CANQ
  1. ;
  1. D SETTR^PRCAUTL,PATTR^PRCAUTL S DIC="^PRCA(433," K PRCAMT,PRCAD("DELETE")
  1. S DA=PRCAEN,DR="[PRCA COMMENT]",DIE="^PRCA(433," D ^DIE
  1. S DR="4////^S X=2" D ^DIE
  1. W !,"Bill Comment Added!",!
  1. ;
  1. CANQ Q
  1. ;
  1. WRDATA ;display the input data in 433 from RCRCRT1
  1. W !!," Transaction Information for AR Bill No. ",$P(PRCABN0,U,1)," Tran.No: ",PRCAEN
  1. W !!," Type: ",PRCAKTY," Date: ",PRCAKDT," Amount: ",$J(PRCATOT,0,2)
  1. W !!,"PRIN.BAL.",?13,"INT.BAL.",?27,"ADMIN.BAL.",?42,"MARSHAL FEE",?57,"COURT COST"
  1. W !,$J(PRCAPB,0,2),?15,$J(PRCAIB,0,2),?28,$J(PRCAAB,0,2),?43,$J(PRCAMF,0,2),?58,$J(PRCACC,0,2),!
  1. I $P($G(^PRCA(433,PRCAEN,7,0)),U,4)="" G WRDATAQ
  1. W !,"Transaction Comment: "
  1. S X=0 F S X=$O(^PRCA(433,PRCAEN,7,X)) Q:'X D
  1. . W !,$G(^PRCA(433,PRCAEN,7,X,0))
  1. W !
  1. WRDATAQ Q
  1. ;
  1. WRREF ;Display the current Bill Referral Information called from RCRCRT1
  1. N REF,REREF,RET,X,Y,%
  1. W !!,"Current Bill Referral Information:"
  1. S Y=+PRCADT D D^DIQ S REF=Y
  1. S Y=+$P(PRCABN6,U,10) D D^DIQ S REREF=Y
  1. S Y=+$P(PRCABN6,U,11) D D^DIQ S RET=Y
  1. I REF=0,REREF=0,RET=0 W " <No Bill Referral Information>",! G WRREFA
  1. W !!,"Referred to: ",PRCACODE," Referral Date: ",$S(REF=0:"",1:REF)," Referral Amount: $",PRCARAMT
  1. I REREF'=0 W !," Bill was Re-Referred on: ",REREF
  1. I RET'=0 W !," Bill was Returned from RC/DOJ on: ",RET
  1. WRREFA ;
  1. S %=1 W !!,"Do you want to Continue " D YN^DICN
  1. I %=2 S RCOUT=1
  1. WRREFQ Q
  1. ;RCRCRT2