source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOCMPZ.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1OCXOCMPZ ;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 ;
5EN ;
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 ;
36PUTPVAL(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 ;
44GETPVAL(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 ;
Note: See TracBrowser for help on using the repository browser.