Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 9002010.21

Package: IHS Dental System

DENTAL PATIENT(#9002010.2)-->9002010.21

Sub-Field: 9002010.21


Information

Parent File Name Number Package
DENTAL PATIENT(#9002010.2) PREVIOUS FOLLOWUP 9002010.21 IHS Dental System

Details

Field # Name Loc Type Details
.01 TYPE 0;1 POINTER TO DENTAL FOLLOWUP CATEGORY FILE (#9002003.1) DENTAL FOLLOWUP CATEGORY(#9002003.1)

  • HELP-PROMPT:  ENTER A VALID TYPE
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID TYPE
  • CROSS-REFERENCE:  9002010.21^B
    1)= S ^ADEPAT(DA(1),"FOL","B",$E(X,1,30),DA)=""
    2)= K ^ADEPAT(DA(1),"FOL","B",$E(X,1,30),DA)
1 CATEGORY COMPUTED

  • MUMPS CODE:  X ^DD(9002010.21,1,9.3) S Y(9002010.21,1,101)=$S($D(^ADETYP(D0,0)):^(0),1:"") S X=$P($P(Y(9002010.21,1,102),$C(59)_$P(Y(9002010.21,1,101),U,4)_":",2),$C(59),1) S D0=Y(9002010.21,1,80) S D1=Y(9002010.21,1,81)
    9.2 = S Y(9002010.21,1,81)=$S($D(D1):D1,1:""),Y(9002010.21,1,80)=$S($D(D0):D0,1:""),Y(9002010.21,1,1)=$S($D(^ADEPAT(D0,"FOL",D1,0)):^(0),1:"")
    9.3 = X ^DD(9002010.21,1,9.2) S D0=$P(Y(9002010.21,1,1),U,1) S:'$D(^ADETYP(+D0,0)) D0=-1 S Y(9002010.21,1,102)=$C(59)_$S($D(^DD(9002003.1,3,0)):$P(^(0),U,3),1:"")
  • ALGORITHM:  .01:TYPE
2 DATE ADDED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  ENTER A VALID DATE ADDED
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID DATE ADDED
3 DATE REMOVED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  ENTER A VALID DATE REMOVED
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID DATE REMOVED
Info |  Details |  All