source: WorldVistAEHR/trunk/r/LIBRARY-LBR-LBRS/LBRYTRN.m@ 1717

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

initial load of WorldVistAEHR
File size: 2.3 KB
RevLine 
[613]1LBRYTRN ;SSI/ALA-CREATE TRANSACTIONS ;[ 10/04/94 4:25 PM ]
2 ;;2.5;Library;;Mar 11, 1996
3TIT ; Move associated title information into transaction file
4 S FX="0;1^0;5^0;6^3;5^3;8^3;1^3;3^3;4",TX="1;1^1;4^2;1^2;2^3;1^3;3^4;2^4;3"
5 F I=1:1:8 S FR=$P(FX,U,I),TO=$P(TX,U,I) D
6 . S ND1=$P(FR,";"),PC1=$P(FR,";",2),ND2=$P(TO,";"),PC2=$P(TO,";",2)
7 . S $P(^LBRY(682.1,LBRYDA,ND2),U,PC2)=$P($G(^LBRY(680.5,LBRYCLS,ND1)),U,PC1)
8 S PF="3;6-680.5^3;7-680.5^3;2-680.1^0;4-680.2^0;3-680.9",PT="2;3^3;2^4;1^4;4^4;5"
9 F I=1:1:5 S FR=$P(PF,U,I),TO=$P(PT,U,I) D
10 . S PO=$P(FR,"-"),GLB=$P(FR,"-",2)
11 . S ND1=$P(PO,";"),PC1=$P(PO,";",2),ND2=$P(TO,";"),PC2=$P(TO,";",2)
12 . N J S J=$P($G(^LBRY(680.5,LBRYCLS,ND1)),U,PC1) Q:'J
13 . I J'?.N Q
14 . S $P(^LBRY(682.1,LBRYDA,ND2),U,PC2)=$P(^LBRY(GLB,J,0),U)
15 I $D(^LBRY(680.5,LBRYCLS,1))>0 S IN=0 F S IN=$O(^LBRY(680.5,LBRYCLS,1,IN)) Q:IN'>0 D
16 . S INP=$P(^LBRY(680.8,^LBRY(680.5,LBRYCLS,1,IN,0),0),U)
17 . S ^LBRY(682.1,LBRYDA,6,IN,0)=INP
18 I $D(^LBRY(680.5,LBRYCLS,2)) S IN=0 F S IN=$O(^LBRY(680.5,LBRYCLS,2,IN)) Q:IN="" S ^LBRY(682.1,LBRYDA,7,IN,0)=^LBRY(680.5,LBRYCLS,2,IN,0)
19 S DA=LBRYDA D ^LBRYX44
20 G EXIT
21PRP ; Move prediction pattern information into transaction file
22 S $P(^LBRY(682.1,LBRYDA,1),U,3)=LBRYCLS
23 S $P(^LBRY(682.1,LBRYDA,4),U,5)=$P(^LBRY(680.9,LBRYCLS,0),U,2)
24 S $P(^LBRY(682.1,LBRYDA,4),U,6)=$P(^LBRY(680.9,LBRYCLS,0),U)
25 S FRX="0;3^3;1^0;4^2;4^2;1^2;3^2;2^0;5",TOX="5;1^5;2^5;3^5;4^5;5^5;6^5;7^5;8"
26 F I=1:1:8 S FR=$P(FRX,U,I),TO=$P(TOX,U,I) D
27 . S ND1=$P(FR,";"),PC1=$P(FR,";",2),ND2=$P(TO,";"),PC2=$P(TO,";",2)
28 . S $P(^LBRY(682.1,LBRYDA,ND2),U,PC2)=$P($G(^LBRY(680.9,LBRYCLS,ND1)),U,PC1)
29 I $D(^LBRY(680.9,LBRYCLS,1)) S N=0 F S N=$O(^LBRY(680.9,LBRYCLS,1,N)) Q:N="" S ^LBRY(682.1,LBRYDA,8,N,0)=^LBRY(680.9,LBRYCLS,1,N,0)
30 G EXIT
31FRQ ; Set frequency data into a transaction
32 S $P(^LBRY(682.1,LBRYDA,1),U,3)=FRQ
33 S $P(^LBRY(682.1,LBRYDA,4),U,4)=$P(^LBRY(680.2,FRQ,0),U)
34 S $P(^LBRY(682.1,LBRYDA,2),U)=$P(^LBRY(680.2,FRQ,0),U,2)
35 Q
36PBL ; Set publisher info into transaction
37 S $P(^LBRY(682.1,LBRYDA,1),U,3)=PUB
38 S $P(^LBRY(682.1,LBRYDA,4),U)=$P(^LBRY(680.1,PUB,0),U)
39 Q
40INX ; Set indexing source into transaction
41 S $P(^LBRY(682.1,LBRYDA,1),U,3)=INP
42 S ^LBRY(682.1,LBRYDA,6,1,0)=^LBRY(680.8,INP,0)_U_INP
43 Q
44EXIT K FX,TX,FR,TO,ND1,PC1,ND2,PC2,PF,PT,PO,GLB,IN,INP,N
45 Q
Note: See TracBrowser for help on using the repository browser.