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

Package: Alcohol Chemical Dependency

Global: ^ACDTITEM


Information

FileMan FileNo FileMan Filename Package
9002171.3 CDMIS REPORT LISTER ITEMS Alcohol Chemical Dependency

Description

Directly Accessed By Routines, Total: 8

Package Total Routines
Alcohol Chemical Dependency 8 ACDRL0    ACDRL01    ACDRL1    ACDRL2    ACDRL4    ACDRLP    ACDRLP1    ACDRLS

Fields, Total: 20

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 01, 1995
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
.01 ITEM 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  NOV 01, 1995
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  9002171.3^B
    1)= S ^ACDTITEM("B",$E(X,1,30),DA)=""
    2)= K ^ACDTITEM("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002171.3^U^MUMPS
    1)= S ^ACDTITEM("U",$$UP^XLFSTR(X),DA)=""
    2)= K ^ACDTITEM("U",$$UP^XLFSTR(X),DA)
.02 PROCESS TYPE 0;2 SET
  • 'Q' FOR QMAN;
  • 'R' FOR READER CALL;
  • 'N' FOR NUMERIC;
  • 'Y' FOR YES/NO;
  • 'F' FOR FREE TEXT;
  • 'D' FOR DATE RANGE;
  • 'W' FOR WORD PROCESSING;

  • LAST EDITED:  JUL 28, 1994
.025 INPUT TX FOR NUMERIC TYPE 25;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  NOV 15, 1995
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
.026 HELP PROMPT FOR NUMERIC TYPE 26;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  NOV 15, 1995
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
.03 QMAN TERM 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  SEP 20, 1993
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
.04 FILE,FIELD FOR DIR/DIQ 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
.05 PRINT/SELECT/SORT 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  JUL 27, 1994
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
.06 COLUMN HEADER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 21, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
.07 SUGGESTED COLUMN WIDTH 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>80)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  Type a Number between 1 and 80, 0 Decimal Digits
.08 MULT LOGIC 0;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 21, 1993
.09 ORDER ON MENU 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."2N.N) X
  • LAST EDITED:  OCT 11, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999, 1 Decimal Digit
  • CROSS-REFERENCE:  9002171.3^C
    1)= S ^ACDTITEM("C",$E(X,1,30),DA)=""
    2)= K ^ACDTITEM("C",$E(X,1,30),DA)
.11 PATIENT/RECORD 0;11 SET
  • 'P' FOR PATIENT;
  • 'V' FOR RECORD/VISIT;
  • 'PV' FOR PATIENT/VISIT/RECORD;

  • LAST EDITED:  AUG 18, 1994
.13 PATIENT/DATE RANGE NECESSARY 0;13 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 01, 1994
.14 PRINT MENU HEADER 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  JUL 28, 1994
  • HELP-PROMPT:  Answer must be 2-20 characters in length.
1 SCREEN LOGIC 1;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  SEP 21, 1993
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
2 TRANSLATION LOGIC 2;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  SEP 09, 1993
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
3 PRINT LOGIC 3;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
4 SPECIAL LOGIC 4;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  NOV 17, 1993
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
5 SORT LOGIC 5;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  OCT 06, 1994
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
Info |  Desc |  Directly Accessed By Routines |  Fields |  All