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

Package: Order Entry Results Reporting

Global: ^OCXS(863.2


Information

FileMan FileNo FileMan Filename Package
863.2 OCX MDD SUBJECT Order Entry Results Reporting

Description

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Order Entry Results Reporting 2 OCX MDD APPLICATION(#863.1)[#863.13(.01)]    OCX MDD LINK(#863.3)[.02, .03]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Order Entry Results Reporting 1 OCX MDD PARAMETER(#863.8)[#863.21(.01)]    

Fields, Total: 4

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

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  OCT 03, 1995
  • HELP-PROMPT:  Answer must be 3-100 characters in length.
  • CROSS-REFERENCE:  863.2^B
    1)= S ^OCXS(863.2,"B",$E(X,1,30),DA)=""
    2)= K ^OCXS(863.2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^863.2^3
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863.2,D0,"UID")):^("UID"),1:"") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(863.2,.01,1,2,1.1) X ^DD(863.2,.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.2,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.2,DIG=3 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.
1 PARAMETER PAR;0 POINTER Multiple #863.21 863.21

  • LAST EDITED:  MAY 12, 1995
2 SYNONYM AKA;0 Multiple #863.22 863.22
3 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:  
    The unique identifier for this object.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the NAME field of the OCX MDD SUBJECT File
  • CROSS-REFERENCE:  863.2^UID
    1)= S ^OCXS(863.2,"UID",$E(X,1,30),DA)=""
    2)= K ^OCXS(863.2,"UID",$E(X,1,30),DA)
    Enables rapid lookup of an object by its UID.

Found Entries, Total: 3

NAME: PATIENT    NAME: PHYSICIANS    NAME: VISIT    
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All