source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYSRV.m@ 1605

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1LBRYSRV ;SSI/ALA-LIBRARY SERVER PROGRAM ;[ 03/09/94 10:57 AM ]
2 ;;2.5;Library;;Mar 11, 1996
3SERV ;
4 S TTY("TIR")="TITLE RECORD FROM FORUM",TTY("PUR")="PUBLISHER RECORD FROM FORUM"
5 S TTY("FRR")="FREQUENCY RECORD FROM FORUM",TTY("ISR")="INDEXING SOURCE RECORD FROM FORUM"
6 S TTY("PPR")="PREDICTION PATTERN RECORD FROM FORUM",TTY("CTI")="CORRECTED TITLE RECORD"
7 S TTY("CPL")="CORRECTED PREDICTION PATTERN LISTING",TTY("CFR")="CORRECTED FREQUENCY RECORD"
8 S TTY("TIC")="LOCAL TITLE CONFIRMATION",TTY("DLT")="TITLE DELETION"
9 S TTY("CPR")="NEW PREDICTION PATTERN FROM FORUM"
10 F D HDR Q:XMER'=0
11 Q
12HDR ; Receiving transactions to be processed
13 X XMREC Q:XMER'=0 Q:$P(XMRG,U)="$"
14 Q:"LIB"'[$P(XMRG,U)
15TYP S TYP=$P(XMRG,U,4),SSTN=$P(XMRG,U,2)
16 I TYP="CPR"!(TYP="PPR") D PR^LBRYSRV1 Q
17 I TYP="FRR"!(TYP="CFR") D FR^LBRYSRV1 Q
18 I TYP="PUR" D PU^LBRYSRV1 Q
19 I TYP="ISR" D IN^LBRYSRV1 Q
20 D TR
21 Q
22TR ; Put title information into transaction file
23 D TRN^LBRYUTL K X,Y
24TR1 X XMREC
25 I $P(XMRG,U)="$" D BUL:TYP'="LTR",REJ:TYP="LTR" Q
26 I $P(XMRG,U)="TI" S $P(^LBRY(682.1,LBRYDA,0),U,5)=$P(XMRG,U,6) S ND=1 D FIL S TIT=$P(XMRG,U,2)
27 I $P(XMRG,U)="T2" S ND=2 D FIL
28 I $P(XMRG,U)="T3" S ND=3 D FIL
29 I $P(XMRG,U)="T4" S ND=4 D FIL
30 I $P(XMRG,U)="T5" S CT=$P(XMRG,U,2) S ^LBRY(682.1,LBRYDA,6,CT,0)=$P(XMRG,U,3)
31 I $P(XMRG,U)="T6" S CT=$P(XMRG,U,2) S ^LBRY(682.1,LBRYDA,7,CT,0)=$P(XMRG,U,3)
32 I $P(XMRG,U)="T7" S CT=$P(XMRG,U,2) S ^LBRY(682.1,LBRYDA,10,CT,0)=$P(XMRG,U,3)
33 G TR1
34FIL F I=2:1:6 S $P(^LBRY(682.1,LBRYDA,ND),U,I-1)=$P(XMRG,U,I)
35 Q
36BUL ; Send mail message about transaction
37 I TYP="CTI" S TIT="now: "_TIT,OTI=$P(^LBRY(682.1,LBRYDA,1),U,3) I OTI'="" S OTIT=" was: "_$P($G(^LBRY(680.5,OTI,0)),U)
38 S TYP=$G(TTY(TYP)) S:TYP="" TYP="UNKNOWN TRANSACTION"
39 S XMB="LBRYFORUM",XMB(1)=TYP,XMB(2)=TIT,XMY("G.LBRYUPDT")="",XMB(3)=$G(OTIT)
40 S XMDUZ="FORUM LIBRARIANS" D ^XMB K XMY,XMB,TIT
41 Q
42REJ S XMSUB="LOCAL SERIAL TITLE REJECTION",XMTEXT="MSG("
43 S XMY("G.LBRYUPDT")="",XMDUZ="FORUM LIBRARIANS"
44 S MSG(1)="You have received a Local Serial Title Rejection from FORUM for "_TIT_"."
45 S MSG(2)=" "
46 S MSG(3)="Comments: " S I=0 F S I=$O(^LBRY(682.1,LBRYDA,10,I)) Q:I'>0 S MSG(3+I)=^LBRY(682.1,LBRYDA,10,I,0)
47 D ^XMD K MSG,XMY,XMSUB,XMTEXT
48 Q
Note: See TracBrowser for help on using the repository browser.