1 | LBRYFINP ;SSI/ALA-FORUM INPUT CHECKS ;[ 07/22/97 3:23 PM ]
|
---|
2 | ;;2.5;Library;**2**;Mar 11, 1996
|
---|
3 | PP ; Prediction Pattern Input
|
---|
4 | Q:$G(LBRYNEW)=1
|
---|
5 | NEW DIC,DIE,DR,DA
|
---|
6 | S TY=$S(OPP="":"ADDED",NPP="":"DELETED",1:"CHANGED")
|
---|
7 | S TYP="CPT" NEW X D FTRN^LBRYUTL S $P(^LBRY(682.1,LBRYDA,0),U,8)=TY
|
---|
8 | S $P(^LBRY(682.1,LBRYDA,1),U)=$P(^LBRY(680.5,LBRYCLS,0),U)
|
---|
9 | I OPP'="" NEW X,LBRYCLS S LBRYCLS=OPP D PRP^LBRYTRN
|
---|
10 | K OPP,NPP,TY,TYP,LBRYDA
|
---|
11 | Q
|
---|
12 | FR ; Frequency Input
|
---|
13 | Q:$G(LBRYNEW)=1
|
---|
14 | NEW DIC,DIE,DR,DA
|
---|
15 | S TY=$S(OFR="":"ADDED",NFR="":"DELETED",1:"CHANGED")
|
---|
16 | S TYP="CFQ" NEW X D FTRN^LBRYUTL S $P(^LBRY(682.1,LBRYDA,0),U,8)=TY
|
---|
17 | S $P(^LBRY(682.1,LBRYDA,1),U)=$P(^LBRY(680.5,LBRYCLS,0),U)
|
---|
18 | I OFR'="" NEW X S FRQ=OFR D FRQ^LBRYTRN
|
---|
19 | K OFR,NFR,TY,TYP,LBRYDA
|
---|
20 | Q
|
---|
21 | LS ; Last Issue Input
|
---|
22 | Q:$G(LBRYNEW)=1
|
---|
23 | NEW DIC,DIE,DR,DA
|
---|
24 | Q:$P($G(^LBRY(680.5,LBRYCLS,3)),U,4)=""
|
---|
25 | S TYP="TCP" NEW X D FTRN^LBRYUTL S $P(^LBRY(682.1,LBRYDA,0),U,8)="CEASED"
|
---|
26 | S $P(^LBRY(682.1,LBRYDA,1),U)=$P(^LBRY(680.5,LBRYCLS,0),U)
|
---|
27 | S $P(^LBRY(682.1,LBRYDA,4),U,3)=$P(^LBRY(680.5,LBRYCLS,3),U,4)
|
---|
28 | K OLS,NLS,TYP,LBRYDA
|
---|
29 | Q
|
---|
30 | TCN ; SERLINE Unique Identifier input check
|
---|
31 | I $D(X) I $L(X)>9!($L(X)<9) K X Q
|
---|
32 | I $E(X,1,2)="SR",$E(X,3,9)?.N Q
|
---|
33 | I $E(X,1,1)?.A,$E(X,2,9)?.N Q
|
---|
34 | S TXT="SERLINE Title Control Number format is: SR####### or A-Z followed by all numbers"
|
---|
35 | D EN^DDIOL(TXT,"","!!")
|
---|
36 | K X,TCN
|
---|
37 | Q
|
---|