RCRCVAR ;ALB/CMS - RC SERVER TYPE DRIVER VARIABLES ;
V ;;4.5;Accounts Receivable;**61,63**;Mar 20, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
Q
CHK(RCTYP,RCSCE) ;
;Check for valid message sent to server
;Input: RCTYP - 4th $ piece of 1st line in server message
; Server Code (RR1,RR2,OB,PP,FP,TR,...)
; RCSCE - C;Conf., E;Error, O;ORIG. or UNK
;
;Output: DATA - Server Code^(C,E,O)^RCmailGroup^Desc.^SetXTMP,1or0^TaskRoutine
; or
; DATA - E;Error message, Server cannot understand the message
;
N DATA,ERR,II,IN,LN,LT
I ($G(RCTYP)="DR")!($G(RCTYP)="RR") S RCTYP=RCTYP_"1"
S ERR="E;Server Code "_$G(RCTYP,"UNK")_" is not in a valid code."
I (RCTYP="")!(RCSCE="UNK")!(RCTYP="UNK") S DATA=ERR G CHKQ
S LT="RCTYP",DATA=""
;
F II=1:1 D Q:($G(DATA)]"")!($P(LN,";",3)="EOF")
.S LN=$T(@LT+II)
.I $P(LN,";",3)="EOF" Q
.I RCTYP'=$P(LN,";",3) Q
.I $P(LN,";",4)'[RCSCE Q
.F IN=3:1:8 S $P(DATA,"^",IN-2)=$P(LN,";",IN)
.Q
;
I DATA="" S DATA=ERR
CHKQ Q DATA
;
RCTYP ;Valid RC Server Codes
; -3nd. piece is Server Code agreed by RC Programmer and CIO Programmer
; -4rd. piece is Type of message VAMC should receive for Server Code
; (C)onfirmation, (E)rror or (O) if original data
; -5th. piece is the RC mail group to send to G. or S.
; -6th. piece is the mail subj. and/or description for XTMP
; -7th. piece is a 1 to set up XTMP or 0 not to set up XTMP
; -8th. piece is set to the DHCP routine for Server Code Type
;
; G.RC RC REFERRALS - Mail group for users at RC and VAMC
; S.RC RC SERV - RC Server No users.
;
;;RR1;CE;S.RC RC SERV;AR -REQUEST FOR RC RECONCILIATION (RI);0
;;RR2;CE;S.RC RC SERV;AR -REQUEST FOR RC RECONCILIATION (WC,NA,TF);0
;;DR1;O;S.RC RC SERV;AR -REFERRAL ROLLUP FROM RC FOR RECONCILIATION (RI);1;RCRCREC
;;DR2;O;S.RC RC SERV;AR -REFERRAL ROLLUP FROM RC FOR RECONCILIATION (WC,TF,NA);1;RCRCREC
;;MR1;CE;G.RC RC REFERRALS;AR -REFERRED BILLS IN VISTA, NOT REFERRED IN RC;0
;;MR2;CE;G.RC RC REFERRALS;AR -REFERRED BILLS IN RC, NOT REFERRED IN VISTA;0
;;MR3;CE;G.RC RC REFERRALS;AR -REFERRED BILLS IN VISTA, NOT IN BALANCE WITH RC;0
;;MR4;CE;G.RC RC REFERRALS;AR -REFERRED BILLS WITH DECREASE BEFORE REFERRAL;0
;;OB;CE;S.RC RC SERV;AR -ORIG BILL REFERRAL TO RC;0
;;PP;CE;S.RC RC SERV;AR -PAYMENT IN PART TO RC;0
;;FP;CE;S.RC RC SERV;AR -PAYMENT IN FULL TO RC;0
;;IN;CE;S.RC RC SERV;AR -INCREASE ADJUSTMENT TO RC;0
;;TR;CE;S.RC RC SERV;AR -TRANSACTION HISTORY TO RC;0
;;TR;O;S.RC RC SERV;AR -TRANSACTION HISTORY REQUEST FROM RC;1;RCRCRT
;;CL;CE;S.RC RC SERV;AR -COMMENT LOG TO RC;0
;;CL;O;S.RC RC SERV;AR -COMMENT LOG REQUEST FROM RC;1;RCRCRT
;;RT;O;S.RC RC SERV;AR -RETURN REFERRED BILL FROM RC;1;RCRCRT
;;DA-1;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
;;DA-2;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FORM RC;1;RCRCRT
;;DA-3;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
;;DA-4;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
;;DA-5;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
;;DA-6;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
;;DA-7;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
;;DA-8;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
;;DA-9;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
;;DA-10;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
;;TJ-1;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
;;TJ-2;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
;;TJ-3;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
;;TJ-4;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
;;TJ-5;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
;;EOF
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCRCVAR 3806 printed Dec 13, 2024@01:47:51 Page 2
RCRCVAR ;ALB/CMS - RC SERVER TYPE DRIVER VARIABLES ;
V ;;4.5;Accounts Receivable;**61,63**;Mar 20, 1995
+1 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+2 QUIT
CHK(RCTYP,RCSCE) ;
+1 ;Check for valid message sent to server
+2 ;Input: RCTYP - 4th $ piece of 1st line in server message
+3 ; Server Code (RR1,RR2,OB,PP,FP,TR,...)
+4 ; RCSCE - C;Conf., E;Error, O;ORIG. or UNK
+5 ;
+6 ;Output: DATA - Server Code^(C,E,O)^RCmailGroup^Desc.^SetXTMP,1or0^TaskRoutine
+7 ; or
+8 ; DATA - E;Error message, Server cannot understand the message
+9 ;
+10 NEW DATA,ERR,II,IN,LN,LT
+11 IF ($GET(RCTYP)="DR")!($GET(RCTYP)="RR")
SET RCTYP=RCTYP_"1"
+12 SET ERR="E;Server Code "_$GET(RCTYP,"UNK")_" is not in a valid code."
+13 IF (RCTYP="")!(RCSCE="UNK")!(RCTYP="UNK")
SET DATA=ERR
GOTO CHKQ
+14 SET LT="RCTYP"
SET DATA=""
+15 ;
+16 FOR II=1:1
Begin DoDot:1
+17 SET LN=$TEXT(@LT+II)
+18 IF $PIECE(LN,";",3)="EOF"
QUIT
+19 IF RCTYP'=$PIECE(LN,";",3)
QUIT
+20 IF $PIECE(LN,";",4)'[RCSCE
QUIT
+21 FOR IN=3:1:8
SET $PIECE(DATA,"^",IN-2)=$PIECE(LN,";",IN)
+22 QUIT
End DoDot:1
if ($GET(DATA)]"")!($PIECE(LN,";",3)="EOF")
QUIT
+23 ;
+24 IF DATA=""
SET DATA=ERR
CHKQ QUIT DATA
+1 ;
RCTYP ;Valid RC Server Codes
+1 ; -3nd. piece is Server Code agreed by RC Programmer and CIO Programmer
+2 ; -4rd. piece is Type of message VAMC should receive for Server Code
+3 ; (C)onfirmation, (E)rror or (O) if original data
+4 ; -5th. piece is the RC mail group to send to G. or S.
+5 ; -6th. piece is the mail subj. and/or description for XTMP
+6 ; -7th. piece is a 1 to set up XTMP or 0 not to set up XTMP
+7 ; -8th. piece is set to the DHCP routine for Server Code Type
+8 ;
+9 ; G.RC RC REFERRALS - Mail group for users at RC and VAMC
+10 ; S.RC RC SERV - RC Server No users.
+11 ;
+12 ;;RR1;CE;S.RC RC SERV;AR -REQUEST FOR RC RECONCILIATION (RI);0
+13 ;;RR2;CE;S.RC RC SERV;AR -REQUEST FOR RC RECONCILIATION (WC,NA,TF);0
+14 ;;DR1;O;S.RC RC SERV;AR -REFERRAL ROLLUP FROM RC FOR RECONCILIATION (RI);1;RCRCREC
+15 ;;DR2;O;S.RC RC SERV;AR -REFERRAL ROLLUP FROM RC FOR RECONCILIATION (WC,TF,NA);1;RCRCREC
+16 ;;MR1;CE;G.RC RC REFERRALS;AR -REFERRED BILLS IN VISTA, NOT REFERRED IN RC;0
+17 ;;MR2;CE;G.RC RC REFERRALS;AR -REFERRED BILLS IN RC, NOT REFERRED IN VISTA;0
+18 ;;MR3;CE;G.RC RC REFERRALS;AR -REFERRED BILLS IN VISTA, NOT IN BALANCE WITH RC;0
+19 ;;MR4;CE;G.RC RC REFERRALS;AR -REFERRED BILLS WITH DECREASE BEFORE REFERRAL;0
+20 ;;OB;CE;S.RC RC SERV;AR -ORIG BILL REFERRAL TO RC;0
+21 ;;PP;CE;S.RC RC SERV;AR -PAYMENT IN PART TO RC;0
+22 ;;FP;CE;S.RC RC SERV;AR -PAYMENT IN FULL TO RC;0
+23 ;;IN;CE;S.RC RC SERV;AR -INCREASE ADJUSTMENT TO RC;0
+24 ;;TR;CE;S.RC RC SERV;AR -TRANSACTION HISTORY TO RC;0
+25 ;;TR;O;S.RC RC SERV;AR -TRANSACTION HISTORY REQUEST FROM RC;1;RCRCRT
+26 ;;CL;CE;S.RC RC SERV;AR -COMMENT LOG TO RC;0
+27 ;;CL;O;S.RC RC SERV;AR -COMMENT LOG REQUEST FROM RC;1;RCRCRT
+28 ;;RT;O;S.RC RC SERV;AR -RETURN REFERRED BILL FROM RC;1;RCRCRT
+29 ;;DA-1;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
+30 ;;DA-2;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FORM RC;1;RCRCRT
+31 ;;DA-3;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
+32 ;;DA-4;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
+33 ;;DA-5;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
+34 ;;DA-6;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
+35 ;;DA-7;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
+36 ;;DA-8;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
+37 ;;DA-9;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
+38 ;;DA-10;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
+39 ;;TJ-1;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
+40 ;;TJ-2;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
+41 ;;TJ-3;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
+42 ;;TJ-4;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
+43 ;;TJ-5;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
+44 ;;EOF
+45 QUIT
