| 1 | OCXOCMPZ ;SLC/RJS,CLA - ORDER CHECK CODE COMPILER (Convert Link Data) ;8/04/98 16:10
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
|
|---|
| 3 | ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
|
|---|
| 4 | ;
|
|---|
| 5 | EN ;
|
|---|
| 6 | ;
|
|---|
| 7 | N D0,LINK
|
|---|
| 8 | S D0=0 F S D0=$O(^OCXS(863.3,D0)) Q:'D0 D
|
|---|
| 9 | .K LINK M LINK=^OCXS(863.3,D0)
|
|---|
| 10 | .S OCXPVN=$$GETPVAL("OCXO VARIABLE NAME")
|
|---|
| 11 | .S OCXPVP=$$GETPVAL("OCXO VT-BAR PIECE NUMBER")
|
|---|
| 12 | .S OCXPSI=$$GETPVAL("OCXO HL7 SEGMENT ID")
|
|---|
| 13 | .;
|
|---|
| 14 | .I $L(OCXPVN),'$L(OCXPVP),'$L(OCXPSI) D Q
|
|---|
| 15 | ..W !!,$P(LINK(0),U,1)
|
|---|
| 16 | ..W !," OCXO VARIABLE NAME: ",OCXPVN
|
|---|
| 17 | .;
|
|---|
| 18 | .I $L(OCXPVN),$L(OCXPVP),$L(OCXPSI)
|
|---|
| 19 | .E Q
|
|---|
| 20 | .W !!
|
|---|
| 21 | .W !,$P(LINK(0),U,1)
|
|---|
| 22 | .W !," OCXO VARIABLE NAME: ",OCXPVN
|
|---|
| 23 | .W !," OCXO VT-BAR PIECE NUMBER: ",OCXPVP
|
|---|
| 24 | .W !," OCXO HL7 SEGMENT ID: ",OCXPSI
|
|---|
| 25 | .S OCXPVN="OCXODATA("""_OCXPSI_""","_OCXPVP_")",OCXPVP="",OCXPSI=""
|
|---|
| 26 | .W !
|
|---|
| 27 | .W !," OCXO VARIABLE NAME: ",OCXPVN
|
|---|
| 28 | .W !," OCXO VT-BAR PIECE NUMBER: ",OCXPVP
|
|---|
| 29 | .W !," OCXO HL7 SEGMENT ID: ",OCXPSI
|
|---|
| 30 | .D PUTPVAL(D0,"OCXO VARIABLE NAME",OCXPVN)
|
|---|
| 31 | .D PUTPVAL(D0,"OCXO VT-BAR PIECE NUMBER",OCXPVP)
|
|---|
| 32 | .D PUTPVAL(D0,"OCXO HL7 SEGMENT ID",OCXPSI)
|
|---|
| 33 | ;
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | PUTPVAL(LD0,PAR,VAL) ;
|
|---|
| 37 | ;
|
|---|
| 38 | N D0,D1
|
|---|
| 39 | S D0=$O(^OCXS(863.8,"B",PAR,0)) Q:'D0
|
|---|
| 40 | S D1=$O(LINK("PAR","B",D0,0)) Q:'D1
|
|---|
| 41 | S ^OCXS(863.3,LD0,"PAR",D1,"VAL")=VAL
|
|---|
| 42 | Q
|
|---|
| 43 | ;
|
|---|
| 44 | GETPVAL(PNAME) ;
|
|---|
| 45 | ;
|
|---|
| 46 | N D0,D1
|
|---|
| 47 | S D0=$O(^OCXS(863.8,"B",PNAME,0)) Q:'D0 ""
|
|---|
| 48 | S D1=$O(LINK("PAR","B",D0,0)) Q:'D1 ""
|
|---|
| 49 | Q $G(LINK("PAR",D1,"VAL"))
|
|---|
| 50 | ;
|
|---|
