Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries
Print Page as PDF
Global: ^OCXS(863.1

Package: Order Entry Results Reporting

Global: ^OCXS(863.1


Information

FileMan FileNo FileMan Filename Package
863.1 OCX MDD APPLICATION Order Entry Results Reporting

Description

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Order Entry Results Reporting 2 OCX MDD SUBJECT(#863.2)[#863.13(.01)]    OCX MDD PARAMETER(#863.8)[#863.11(.01)]    

Fields, Total: 6

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  OCT 03, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  863.1^B
    1)= S ^OCXS(863.1,"B",$E(X,1,30),DA)=""
    2)= K ^OCXS(863.1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^863.1^4
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863.1,D0,"UID")):^("UID"),1:"") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(863.1,.01,1,2,1.1) X ^DD(863.1,.01,1,2,1.4)
    1.1)= S X=DIV S X="" I $T(UID^OCXFMGR)]"",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)
    1.4)= S DIH=$S($D(^OCXS(863.1,DIV(0),"UID")):^("UID"),1:""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^("UID")=$J("",$S(DE>0:DE,1:0))_DIV_$S(Y?." ":"",1:$J("",245-$L(DIV))_Y),DIH=863.1,DIG=4 D ^DICR:$O(^DD(D
    IH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= S X="" I $T(UID^OCXFMGR)]"",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)
    DELETE VALUE)= NO EFFECT
    FIELD)= U
    Triggers a unique ID for this object
.02 MENU TEXT 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<1) X
  • LAST EDITED:  AUG 25, 1994
  • HELP-PROMPT:  Answer must be 1-100 characters in length.
1 PARAMETER PAR;0 POINTER Multiple #863.11 863.11
2 SYNONYM AKA;0 Multiple #863.12 863.12
3 PRIMARY SUBJECT SUBJ;0 POINTER Multiple #863.13 863.13
4 UNIQUE OBJECT IDENTIFIER UID;E1,245 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  OCT 03, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Contains the unique object ID for this entry
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the NAME field of the OCX MDD APPLICATION File
  • CROSS-REFERENCE:  863.1^UID
    1)= S ^OCXS(863.1,"UID",$E(X,1,30),DA)=""
    2)= K ^OCXS(863.1,"UID",$E(X,1,30),DA)
    Enables rapid lookup of an object by its unique ID

Found Entries, Total: 1

NAME: CLINICAL QUERIES    
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries