Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^LRO(68.999999901

Package: Lab Service

Global: ^LRO(68.999999901


Information

FileMan FileNo FileMan Filename Package
68.999999901 LAB VA-IHS LINK Lab Service

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
IHS Changes To Lab 3 BLRLINK2    BLRLINKP    BLRPCCVM    
Patient Care Component 2 APCDK    APCDKDE    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
IHS Changes To Lab 2 BLRLINK2    BLRPCCVM    
Patient Care Component 2 APCDK    APCDKDE    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 VISIT(#9000010)[.02]    

Fields, Total: 3

Field # Name Loc Type Details
.01 DFN AND COLL DATE 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 29, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999999999999, 0 Decimal Digits
  • CROSS-REFERENCE:  68.999999901^B
    1)= S ^LRO(68.999999901,"B",$E(X,1,30),DA)=""
    2)= K ^LRO(68.999999901,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  68.999999901^AA^MUMPS
    1)= I $P(^LRO(68.999999901,DA,0),U,2)]"" S ^LRO(68.999999901,"AA",X,$P(^LR(68.999999901,DA,0),U,2),DA)=""
    2)= I $P(^LRO(68.999999901,DA,0),U,2)]"" K ^LRO(68.999999901,"AA",X,$P(^LRO(68.999999901,DA,0),U,2),DA)
.02 VISIT 0;2 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  APR 29, 1993
  • CROSS-REFERENCE:  68.999999901^AC
    1)= S ^LRO(68.999999901,"AC",$E(X,1,30),DA)=""
    2)= K ^LRO(68.999999901,"AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  68.999999901^AATOO^MUMPS
    1)= I $P(^LRO(68.999999901,DA,0),U)]"" S ^LRO(68.999999901,"AA",$P(^(0),U),X,DA)=""
    2)= I $P(^LRO(68.999999901,DA,0),U)]"" K ^LRO(68.999999901,"AA",$P(^(0),U),X,DA)
.03 ORDER NO. 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 28, 1993
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All