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

Package: Emergency Room

Global: ^AMER(2.6


Information

FileMan FileNo FileMan Filename Package
9009082.6 ER EXPORT MAP Emergency Room

Description

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Emergency Room 1 ER HER FILE(#9009082.7)[.03]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Emergency Room 1 ER HER FILE(#9009082.7)[.02]    

Fields, Total: 8

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  MAR 29, 2000
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  9009082.6^B
    1)= S ^AMER(2.6,"B",$E(X,1,30),DA)=""
    2)= K ^AMER(2.6,"B",$E(X,1,30),DA)
.02 HER FILE 0;2 POINTER TO ER HER FILE FILE (#9009082.7) ER HER FILE(#9009082.7)

  • LAST EDITED:  APR 05, 2000
  • CROSS-REFERENCE:  9009082.6^AHER
    1)= S ^AMER(2.6,"AHER",$E(X,1,30),DA)=""
    2)= K ^AMER(2.6,"AHER",$E(X,1,30),DA)
.03 INJURY DEPENDENT 0;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 05, 2000
.04 ER VISIT FIELD 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 05, 2000
  • HELP-PROMPT:  Type a Number between 0 and 99, 3 Decimal Digits
.05 ER VIST SUBFIELD INFO 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  APR 06, 2000
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
.06 MAX LENGTH 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>255)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 29, 2000
  • HELP-PROMPT:  Type a Number between 1 and 255, 0 Decimal Digits
.07 UNK NOT ALLOWED 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 05, 2000
1 TRANSFORM 1;E1,245 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  MAR 29, 2000
  • HELP-PROMPT:  Answer must be 1-240 characters in length.
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All