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: 9002003.43

Package: IHS Dental System

DENTAL DEFERRED SVCS REGISTER(#9002003.4)-->9002003.43

Sub-Field: 9002003.43


Information

Parent File Name Number Package
DENTAL DEFERRED SVCS REGISTER(#9002003.4) DEFERRED NEEDS 9002003.43 IHS Dental System

Details

Field # Name Loc Type Details
.01 TYPE OF NEED 0;1 POINTER TO DENTAL DEFERRED NEED TYPES FILE (#9002003.3) DENTAL DEFERRED NEED TYPES(#9002003.3)

  • HELP-PROMPT:  Enter the number of the deferred need from the list above.
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID TYPE OF NEED
  • CROSS-REFERENCE:  9002003.43^B
    1)= S ^ADEDSR(DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^ADEDSR(DA(1),1,"B",$E(X,1,30),DA)
.02 UNITS 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>32)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 32, 0 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID UNITS
  • CROSS-REFERENCE:  ^^TRIGGER^9002003.43^1
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ADEDSR(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002003.43,.02,1,1,1.1) X ^DD(9002003.43,.02,1,1,1.4)
    1.1)= S X=DIV X ^DD(9002003.43,.02,1,1,49.2) S Y(101)=$S($D(^ADEDNT(D0,0)):^(0),1:"") S X=$P(Y(101),U,4),Y=X,X=Y(1),X=X*Y S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^ADEDSR(DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002003.43,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ADEDSR(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(9002003.43,.02,1,1,2.4)
    2.4)= S DIH=$S($D(^ADEDSR(DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002003.43,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    49.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),Y(2)=$S($D(^ADEDSR(D0,1,D1,0)):^(0),1:"") S X=DIV,Y(1)=X,D0=$P(Y(2),U,1) S:'$D(^ADEDNT(+D0,0)) D0=-1
    CREATE VALUE)= UNIT*(.01:FEE EST)
    DELETE VALUE)= @
    FIELD)= TYPE FEE
1 TYPE FEE 0;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999, 2 Decimal Digits
  • DESCRIPTION:  
    FIELD WILL CONTAIN VALID TYPE FEE
  • NOTES:  TRIGGERED by the UNITS field of the DEFERRED NEEDS sub-field of the DENTAL DEFERRED SVCS REGISTER File
  • CROSS-REFERENCE:  ^^TRIGGER^9002003.4^5
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^ADEDSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(9002003.43,1,1,1,1.4)
    1.4)= S DIH=$S($D(^ADEDSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9002003.4,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^ADEDSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(9002003.43,1,1,1,2.4)
    2.4)= S DIH=$S($D(^ADEDSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9002003.4,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TOTAL COST+TYPE FEE
    DELETE VALUE)= TOTAL COST-OLD TYPE FEE
    FIELD)= TOTAL COST
Info |  Details |  All