source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCRCVAR.m@ 1714

Last change on this file since 1714 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.6 KB
Line 
1RCRCVAR ;ALB/CMS - RC SERVER TYPE DRIVER VARIABLES ;
2V ;;4.5;Accounts Receivable;**61,63**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 Q
5CHK(RCTYP,RCSCE) ;
6 ;Check for valid message sent to server
7 ;Input: RCTYP - 4th $ piece of 1st line in server message
8 ; Server Code (RR1,RR2,OB,PP,FP,TR,...)
9 ; RCSCE - C;Conf., E;Error, O;ORIG. or UNK
10 ;
11 ;Output: DATA - Server Code^(C,E,O)^RCmailGroup^Desc.^SetXTMP,1or0^TaskRoutine
12 ; or
13 ; DATA - E;Error message, Server cannot understand the message
14 ;
15 N DATA,ERR,II,IN,LN,LT
16 I ($G(RCTYP)="DR")!($G(RCTYP)="RR") S RCTYP=RCTYP_"1"
17 S ERR="E;Server Code "_$G(RCTYP,"UNK")_" is not in a valid code."
18 I (RCTYP="")!(RCSCE="UNK")!(RCTYP="UNK") S DATA=ERR G CHKQ
19 S LT="RCTYP",DATA=""
20 ;
21 F II=1:1 D Q:($G(DATA)]"")!($P(LN,";",3)="EOF")
22 .S LN=$T(@LT+II)
23 .I $P(LN,";",3)="EOF" Q
24 .I RCTYP'=$P(LN,";",3) Q
25 .I $P(LN,";",4)'[RCSCE Q
26 .F IN=3:1:8 S $P(DATA,"^",IN-2)=$P(LN,";",IN)
27 .Q
28 ;
29 I DATA="" S DATA=ERR
30CHKQ Q DATA
31 ;
32RCTYP ;Valid RC Server Codes
33 ; -3nd. piece is Server Code agreed by RC Programmer and CIO Programmer
34 ; -4rd. piece is Type of message VAMC should receive for Server Code
35 ; (C)onfirmation, (E)rror or (O) if original data
36 ; -5th. piece is the RC mail group to send to G. or S.
37 ; -6th. piece is the mail subj. and/or description for XTMP
38 ; -7th. piece is a 1 to set up XTMP or 0 not to set up XTMP
39 ; -8th. piece is set to the DHCP routine for Server Code Type
40 ;
41 ; G.RC RC REFERRALS - Mail group for users at RC and VAMC
42 ; S.RC RC SERV - RC Server No users.
43 ;
44 ;;RR1;CE;S.RC RC SERV;AR -REQUEST FOR RC RECONCILIATION (RI);0
45 ;;RR2;CE;S.RC RC SERV;AR -REQUEST FOR RC RECONCILIATION (WC,NA,TF);0
46 ;;DR1;O;S.RC RC SERV;AR -REFERRAL ROLLUP FROM RC FOR RECONCILIATION (RI);1;RCRCREC
47 ;;DR2;O;S.RC RC SERV;AR -REFERRAL ROLLUP FROM RC FOR RECONCILIATION (WC,TF,NA);1;RCRCREC
48 ;;MR1;CE;G.RC RC REFERRALS;AR -REFERRED BILLS IN VISTA, NOT REFERRED IN RC;0
49 ;;MR2;CE;G.RC RC REFERRALS;AR -REFERRED BILLS IN RC, NOT REFERRED IN VISTA;0
50 ;;MR3;CE;G.RC RC REFERRALS;AR -REFERRED BILLS IN VISTA, NOT IN BALANCE WITH RC;0
51 ;;MR4;CE;G.RC RC REFERRALS;AR -REFERRED BILLS WITH DECREASE BEFORE REFERRAL;0
52 ;;OB;CE;S.RC RC SERV;AR -ORIG BILL REFERRAL TO RC;0
53 ;;PP;CE;S.RC RC SERV;AR -PAYMENT IN PART TO RC;0
54 ;;FP;CE;S.RC RC SERV;AR -PAYMENT IN FULL TO RC;0
55 ;;IN;CE;S.RC RC SERV;AR -INCREASE ADJUSTMENT TO RC;0
56 ;;TR;CE;S.RC RC SERV;AR -TRANSACTION HISTORY TO RC;0
57 ;;TR;O;S.RC RC SERV;AR -TRANSACTION HISTORY REQUEST FROM RC;1;RCRCRT
58 ;;CL;CE;S.RC RC SERV;AR -COMMENT LOG TO RC;0
59 ;;CL;O;S.RC RC SERV;AR -COMMENT LOG REQUEST FROM RC;1;RCRCRT
60 ;;RT;O;S.RC RC SERV;AR -RETURN REFERRED BILL FROM RC;1;RCRCRT
61 ;;DA-1;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
62 ;;DA-2;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FORM RC;1;RCRCRT
63 ;;DA-3;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
64 ;;DA-4;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
65 ;;DA-5;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
66 ;;DA-6;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
67 ;;DA-7;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
68 ;;DA-8;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
69 ;;DA-9;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
70 ;;DA-10;O;S.RC RC SERV;AR -DECREASE ADJUSTMENT FROM RC;1;RCRCRT
71 ;;TJ-1;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
72 ;;TJ-2;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
73 ;;TJ-3;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
74 ;;TJ-4;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
75 ;;TJ-5;O;S.RC RC SERV;AR -WRITE OFF ADJUSTMENT FROM RC;1;RCRCRT
76 ;;EOF
77 Q
Note: See TracBrowser for help on using the repository browser.