Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Fields |  All
Print Page as PDF
Global: ^ADEOCON

Package: IHS Dental System

Global: ^ADEOCON


Information

FileMan FileNo FileMan Filename Package
1114008 DENTAL CONSTANT IHS Dental System

Description

Fields, Total: 5

Field # Name Loc Type Details
.01 DY 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>79)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 11, 1988
  • HELP-PROMPT:  Type a Number between 1 and 79, 0 Decimal Digits
  • CROSS-REFERENCE:  1114008^B
    1)= S ^ADEOCON("B",$E(X,1,30),DA)=""
    2)= K ^ADEOCON("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  1114008^AD^MUMPS
    1)= I $D(DA),$D(^ADEOCON(DA,0)) S ADENOD=^ADEOCON(DA,0) I $P(ADENOD,U,4)]"",$P(ADENOD,U,2)]"",$P(ADENOD,U,5)]"" S ^ADEOCON("AC",$P(ADENOD,U,4),$P(ADENOD,U),$P(ADENOD,U,2))=$P(ADENOD,U,5)_U_$P(ADENOD,U,3)
    2)= I $D(DA),$D(^ADEOCON(DA,0)) S ADENOD=^ADEOCON(DA,0) I $P(ADENOD,U,4)]"",$P(ADENOD,U,2)]"",$P(ADENOD,U,5)]"" K ^ADEOCON("AC",$P(ADENOD,U,4),$P(ADENOD,U),$P(ADENOD,U,2)),ADENOD
1 DX 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>79)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 11, 1988
  • HELP-PROMPT:  Type a Number between 1 and 79, 0 Decimal Digits
2 TEXT 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>79!($L(X)<1) X
  • LAST EDITED:  OCT 11, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-79 CHARACTERS IN LENGTH
3 SCREEN NAME 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  OCT 11, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
4 VIDEO ATTRIBUTE 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>99!($L(X)<1) X
  • LAST EDITED:  OCT 11, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-99 CHARACTERS IN LENGTH
Info |  Desc |  Fields |  All