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: ^AMER(2.3

Package: Emergency Room

Global: ^AMER(2.3


Information

FileMan FileNo FileMan Filename Package
9009082.3 ER INPUT MAP Emergency Room

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Emergency Room 7 AMER    AMER0    AMER3P08    AMER4    AMERD    AMERSAV    AMERSAV1    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Emergency Room 3 AMER    AMERD    AMERPRE    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Emergency Room 1 ER CATEGORIES(#9009082)[.08]    

Fields, Total: 13

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

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • CROSS-REFERENCE:  9009082.3^B
    1)= S ^AMER(2.3,"B",$E(X,1,30),DA)=""
    2)= K ^AMER(2.3,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9009082.3^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMER(2.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9009082.3,.01,1,2,1.1) X ^DD(9009082.3,.01,1,2,1.4)
    1.1)= S X=DIV S X=DIV,Y(1)=X S X=2,X=$E(Y(1),X)
    1.4)= S DIH=$S($D(^AMER(2.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9009082.3,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= $E(QUERY TAG,2)
    DELETE VALUE)= NO EFFECT
    FIELD)= QUERY TYPE
  • CROSS-REFERENCE:  ^^TRIGGER^9009082.3^.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMER(2.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9009082.3,.01,1,3,1.1) X ^DD(9009082.3,.01,1,3,1.4)
    1.1)= S X=DIV S X=DIV,Y(1)=X S X=3,Y(2)=X S X=99,X=$E(Y(1),Y(2),X)
    1.4)= S DIH=$S($D(^AMER(2.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9009082.3,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= $E(QUERY TAG,3,99)
    DELETE VALUE)= NO EFFECT
    FIELD)= QUERY ID
  • CROSS-REFERENCE:  ^^TRIGGER^9009082.3^.06
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMER(2.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIV,X=$E(X) X ^DD(9009082.3,.01,1,4,1.4)
    1.4)= S DIH=$S($D(^AMER(2.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9009082.3,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= $E(QUERY TAG)
    DELETE VALUE)= NO EFFECT
    FIELD)= QUERY MET
.02 QUERY TYPE 0;2 SET
  • 'A' FOR ADMISSION;
  • 'D' FOR DISCHARGE;

  • LAST EDITED:  JAN 07, 1996
  • NOTES:  TRIGGERED by the QUERY TAG field of the ER INPUT MAP File
  • CROSS-REFERENCE:  9009082.3^AC
    1)= S ^AMER(2.3,"AC",$E(X,1,30),DA)=""
    2)= K ^AMER(2.3,"AC",$E(X,1,30),DA)
.03 ID NUMBER 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 11, 1996
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • NOTES:  TRIGGERED by the QUERY TAG field of the ER INPUT MAP File
.04 A FIELD 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JAN 07, 1996
  • HELP-PROMPT:  Type a Number between 0 and 99, 2 Decimal Digits
.05 V FIELD 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  JAN 07, 1996
  • HELP-PROMPT:  Type a Number between 0 and 99, 2 Decimal Digits
.06 QUERY METHOD 0;6 SET
  • 'Q' FOR QUERY;
  • 'A' FOR AUTOMATIC;

  • LAST EDITED:  JAN 07, 1996
  • NOTES:  TRIGGERED by the QUERY TAG field of the ER INPUT MAP File
.07 V SUBFIELD 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999.99999)!(X<0)!(X?.E1"."5N.N) X
  • LAST EDITED:  JAN 07, 1996
  • HELP-PROMPT:  Type a Number between 0 and 999999999.99999, 4 Decimal Digits
.08 REPORT CATEGORY 0;8 POINTER TO ER CATEGORIES FILE (#9009082) ER CATEGORIES(#9009082)

  • LAST EDITED:  JAN 09, 1996
  • CROSS-REFERENCE:  9009082.3^AD
    1)= S ^AMER(2.3,"AD",$E(X,1,30),DA)=""
    2)= K ^AMER(2.3,"AD",$E(X,1,30),DA)
.09 OUTPUT TRANSFORM 0;9 SET
  • '1' FOR DATE;
  • '2' FOR ER OPTION;
  • '3' FOR LOCATION;
  • '4' FOR PATIENT;
  • '5' FOR PERSON;
  • '6' FOR YESNO;
  • '7' FOR ICD DX;

  • LAST EDITED:  JAN 11, 1996
.11 NO LINE 0;11 SET
  • '1' FOR OMIT QUERY SEPARATOR LINE;
  • '0' FOR PRINT QUERY SEPERATOR LINE;

  • LAST EDITED:  JAN 12, 1996
.12 OPTIONAL 0;12 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 06, 1996
1 ATTRIBUTE COMPUTED

  • MUMPS CODE:  N %,Z S %=^AMER(2.3,D0,0),Z=($P(%,U,2)=$C(65)),X=$P($G(^DD((9009080+Z),+$P(%,U,5-Z),0)),U)
  • ALGORITHM:  S X="HI MOM"
2 PRINT HEADER 2;E1,245 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  JAN 09, 1996
  • HELP-PROMPT:  Answer must be 1-240 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All