source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXSENDD.m@ 1538

OCXSENDD ;SLC/RJS,CLA - BUILD RULE TRANSPORTER ROUTINES (DD and DIC interface) ;1/23/01  11:48
 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,105**;Dec 17,1997
 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
 ;
 Q
 ;
DATE(Y) X ^DD("DD") Q Y
 ;
FIELD(OCXD,OCXF,OCXAT) ;
 ;
 N OCXTGT,OCXMESS
 Q:'$G(OCXD) "" Q:'$G(OCXF) "" Q:'$L($G(OCXAT)) ""
 S OCXTGT(1)="",OCXMESS(1)=""
 D FIELD^DID(+OCXD,+OCXF,"N",OCXAT,"OCXTGT(1)","OCXMESS(1)")
 Q $G(OCXTGT(1,OCXAT))
 ;
FILE(OCXD,OCXAT) ;
 ;
 N OCXTGT,OCXMESS
 Q:'$G(OCXD) "" Q:'$L($G(OCXAT)) ""
 S OCXTGT(1)="",OCXMESS(1)=""
 D FILE^DID(+OCXD,"N",OCXAT,"OCXTGT(1)","OCXMESS(1)")
 Q $G(OCXTGT(1,OCXAT))
 ;
FILENAME(OCXSUB) ;
 ;
 Q:'$G(OCXSUB) ""
 N LINE,TEXT,NAME
 S NAME=""
 F LINE=1:1:9999 S TEXT=$T(FDATA+LINE) Q:($P(TEXT,";",2))  D  Q:$L(NAME)
 .I (+$P(TEXT,";;",2)=OCXSUB) S NAME=$P(TEXT,"^",2)
 S:'$L(NAME) NAME=$$FILE(OCXSUB,"NAME")
 Q NAME
 ;
FILEHDR(OCXSUB) ;
 ;
 Q:'$G(OCXSUB) ""
 N LINE,TEXT,HEADER
 S HEADER=""
 F LINE=1:1:9999 S TEXT=$T(FDATA+LINE) Q:($P(TEXT,";",2))  D  Q:$L(HEADER)
 .I (+$P(TEXT,";;",2)=OCXSUB) S HEADER=$P($P(TEXT,";;",2),"^",1)
 Q HEADER
FDATA ;
 ;;860.1^ORDER CHECK PATIENT ACTIVE DATA
 ;;860.11^ACTIVE ELEMENT
 ;;860.111P^ELEMENT DATA
 ;;860.12D^SCHEDULED EVENT
 ;;860.121P^RULE
 ;;860.2^ORDER CHECK RULE
 ;;860.21I^TRUTH ELEMENTS
 ;;860.22I^RELATION ACTIONS
 ;;860.3^ORDER CHECK ELEMENT
 ;;860.31^CONDITIONAL EXPRESSION
 ;;860.4^ORDER CHECK DATA FIELD
 ;;860.41P^DATA SOURCES
 ;;860.5^ORDER CHECK DATA SOURCE
 ;;860.6^ORDER CHECK DATA CONTEXT
 ;;860.7^ORDER CHECK PATIENT RULE EVENT
 ;;860.71P^RULE EVENT
 ;;860.712^RELATION
 ;;860.7122P^ELEMENTS
 ;;860.71223P^DATA FIELDS
 ;;860.8^ORDER CHECK COMPILER FUNCTIONS
 ;;860.801^CODE
 ;;860.81^DESCRIPTION
 ;;860.9^ORDER CHECK LOCAL TERM
 ;;860.91IA^LOCAL TERM TEXT
 ;;861^ORDER CHECK RAW DATA LOG
 ;;861.01^DATA
 ;;863^OCX MDD CLASS
 ;;863.01P^PARAMETER
 ;;863.02^DESCRIPTION
 ;;863.1^OCX MDD APPLICATION
 ;;863.11P^PARAMETER
 ;;863.12^SYNONYM
 ;;863.13P^PRIMARY SUBJECT
 ;;863.2^OCX MDD SUBJECT
 ;;863.21P^PARAMETER
 ;;863.22^SYNONYM
 ;;863.3^OCX MDD LINK
 ;;863.31^SYNONYMS
 ;;863.32P^PARAMETER
 ;;863.4^OCX MDD ATTRIBUTE
 ;;863.41PI^PARAMETER
 ;;863.5^OCX MDD VALUES
 ;;863.51^VALUES
 ;;863.52^CONTEXT
 ;;863.54^LONG DESCRIPTION
 ;;863.55P^PARAMETER
 ;;863.6^OCX MDD METHOD
 ;;863.61^DESCRIPTION
 ;;863.63P^PARAMETER
 ;;863.7^OCX MDD PUBLIC FUNCTION
 ;;863.72^LONG DESCRIPTION
 ;;863.74P^PARAMETER
 ;;863.8^OCX MDD PARAMETER
 ;;863.81^DESCRIPTION
 ;;863.84P^PARAMETER ATTRIBUTE
 ;;863.9^OCX MDD CONDITION/FUNCTION
 ;;863.91^PARAMETER
 ;;863.92^SYNONYM
 ;;864^OCX MDD SITE PREFERENCES
 ;;864.1^OCX MDD DATATYPE
 ;;864.11P^PARAMETER
 ;1;
 ;