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: ^ACDSERV(-1

Package: Alcohol Chemical Dependency

Global: ^ACDSERV(-1


Information

FileMan FileNo FileMan Filename Package
9002170.6 CDMIS SERVICE Alcohol Chemical Dependency

Description

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Alcohol Chemical Dependency 2 CDMIS CLIENT SVCS(#9002172)[1]    CDMIS CLIENT SVCS COPY SET(#9002172.7)[#9002172.711(.01)]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
CPT Files 1 CPT(#81)[.05]    
DRG Grouper 1 ICD OPERATION/PROCEDURE(#80.1)[.04]    

Fields, Total: 5

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X K X
  • LAST EDITED:  JAN 27, 1998
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DELETE TEST:  .01,0)= I 1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002170.6^B
    1)= S ^ACDSERV("B",$E(X,1,30),DA)=""
    2)= K ^ACDSERV("B",$E(X,1,30),DA)
.04 ICD0 CODE 0;4 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • LAST EDITED:  APR 22, 1995
.05 CPT CODE 0;5 POINTER TO CPT FILE (#81) CPT(#81)

  • LAST EDITED:  MAR 04, 1996
  • DESCRIPTION:  
    This field contains the cpt code for this service.
1 CODE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  FEB 24, 1996
  • HELP-PROMPT:  ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002170.6^C
    1)= S ^ACDSERV("C",$E(X,1,30),DA)=""
    2)= K ^ACDSERV("C",$E(X,1,30),DA)
2 SHORT NAME 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<1) X
  • LAST EDITED:  FEB 24, 1996
  • HELP-PROMPT:  Answer must be 1-14 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
Info |  Desc |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All