Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: OCXBDTD

OCXBDTD.m

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