| [613] | 1 | PRCPSMS0 ;WISC/RFJ-isms trans, build segments: control, line count ;21 Oct 91
|
|---|
| 2 | ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | CONTROL(V1,V2,V3) ; build control segment
|
|---|
| 8 | ; v1=station number, v2=transaction code, v3=reference number
|
|---|
| 9 | ; returns 'string' of segment
|
|---|
| 10 | I 'V1!(V2="") S STRING="" Q
|
|---|
| 11 | N %,%H,%I,DATE,NOW,TIME,X,Y
|
|---|
| 12 | D NOW^%DTC S NOW=%,Y=%_"000000" D DD^%DT S TIME=$TR($P(Y,"@",2),":"),X1=$P(NOW,"."),X2=$E(NOW,1,3)_"0101" D ^%DTC S X=X+1,X=$E("000",$L(X)+1,3)_X,DATE=($E(NOW)+17)_$E(NOW,2,3)_X
|
|---|
| 13 | S V3=V3_$E(" ",$L(V3)+1,11)
|
|---|
| 14 | S STRING="ISM^"_V1_"^^"_V2_"^"_DATE_"^"_TIME_"^"_V3_"^001^001^040^|"
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | ;
|
|---|
| 18 | LINECNT(V1,V2) ; line count segment
|
|---|
| 19 | ; v1=line count, v2=reference number
|
|---|
| 20 | ; returns 'string("lc")' of data
|
|---|
| 21 | I $L(V1)>3!($L(V2)>11) S STRING("LC")="" Q
|
|---|
| 22 | S STRING("LC")="LC^"_V1_"^"_V2_"^|"
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | ;
|
|---|
| 26 | DELETE(DATA) ; delete segment
|
|---|
| 27 | ; data=itemda
|
|---|
| 28 | ; returns 'string("id")' of data
|
|---|
| 29 | N NSN S NSN=$$NSN^PRCPUX1(DATA) I NSN="" S STRING("ID")="" Q
|
|---|
| 30 | S STRING("ID")="ID^"_$TR(NSN,"-")_"^|"
|
|---|
| 31 | Q
|
|---|
