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 |  All
Print Page as PDF
Global: ^BDWRBLOG

Package: Data Warehouse Export System

Global: ^BDWRBLOG


Information

FileMan FileNo FileMan Filename Package
90215 BDW REG BACKLOAD LOG Data Warehouse Export System

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Data Warehouse Export System 1 BDWBHL    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Data Warehouse Export System 2 BDW1BLR    BDWBHL    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.04, 8801]    
Utility Tables 1 LOCATION(#9999999.06)[.06]    

Fields, Total: 11

Field # Name Loc Type Details
.01 EXPORT DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 16, 2001
  • CROSS-REFERENCE:  90215^B
    1)= S ^BDWRBLOG("B",$E(X,1,30),DA)=""
    2)= K ^BDWRBLOG("B",$E(X,1,30),DA)
.02 END TIME 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 16, 2001
.029 ELAPSED TIME COMPUTED

  • MUMPS CODE:  X ^DD(90215,.029,9.2) S X1=Y(90215,.029,2) S X=$S(X&X1:X,1:"") Q:'X D H^%DTC S XUS1=%H*86400+%T,X=X1 D H^%DTC S XUS2=%H*86400+%T,X=$S(XUS1>XUS2:XUS1-XUS2,1:XUS2-XUS1)
    9.2 = S Y(90215,.029,1)=$S($D(^BDWRBLOG(D0,0)):^(0),1:"") S X=$P(Y(90215,.029,1),U,1),Y(90215,.029,2)=X S X=$P(Y(90215,.029,1),U,2)
  • ALGORITHM:  XUDELTATIME(#.01,#.02)
.03 REGISTRATIONS PROCESSED 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 30, 2004
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
.04 PERFORMED BY 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  AUG 16, 2001
.05 HL7 MESSAGES GENERATED 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 2001
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
.06 SITE WHERE RUN 0;6 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • LAST EDITED:  MAR 25, 2003
.07 HEADER MESSAGE NUMBER 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 25, 2003
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
.08 TRAILER MESSAGE NUMBER 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 25, 2003
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
.23 HEADER RECORD EXPORT TYPE 0;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  MAR 07, 2007
  • HELP-PROMPT:  Answer must be 3 characters in length.
8801 USER 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 05, 2004
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All