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

Package: Utility Tables

LOCATION(#9999999.06)-->9999999.0611

Sub-Field: 9999999.0611


Information

Parent File Name Number Package
LOCATION(#9999999.06) CLASS 9999999.0611 Utility Tables

Details

Field # Name Loc Type Details
.01 BEGIN DATE 0;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X S:$D(X) DINUM=X
  • LAST EDITED:  OCT 31, 1985
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1937 AND TODAY
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.02 END DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  DEC 30, 1985
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1937 AND TODAY
.03 AFFILIATION 0;3 SET
************************REQUIRED FIELD************************
  • '1' FOR IHS;
  • '2' FOR NON-IHS (638);
  • '3' FOR CHS;
  • '4' FOR URBAN;
  • '5' FOR STATE;
  • '6' FOR TRIBE (NON-638);
  • '9' FOR OTHER;

  • LAST EDITED:  MAR 06, 1990
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.06^.25
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^AUTTLOC(D0,0)):^(0),1:"") S X=$P(Y(1),U,25),X=X S DIU=X K Y X ^DD(9999999.0611,.03,1,1,1.1) X ^DD(9999999.0611,.03,1,1,1.4)
    1.1)= S X=DIV X ^DD(9999999.0611,.03,1,1,49.3) S X=X S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^AUTTLOC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,25)=DIV,DIH=9999999.06,DIG=.25 D ^DICR:$O(^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(^AUTTLOC(D0,0)):^(0),1:"") S X=$P(Y(1),U,25),X=X S DIU=X K Y X ^DD(9999999.0611,.03,1,1,2.1) X ^DD(9999999.0611,.03,1,1,2.4)
    2.1)= S X=DIV X ^DD(9999999.0611,.03,1,1,59.3) S X=X S D0=I(0,0) S D1=I(1,0)
    2.4)= S DIH=$S($D(^AUTTLOC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,25)=DIV,DIH=9999999.06,DIG=.25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),I(1,0)=$S($D(D1):D1,1:"") S Y(103)=$C(59)_$S($D(^DD(9999999.0611,.03,0)):$P(^(0),U,3),1:""),Y(102)=""
    49.3)= X ^DD(9999999.0611,.03,1,1,49.2) X "F D1=0:0 S D1=$O(^AUTTLOC(D0,11,D1)) Q:D1'>0  S Y=$S($D(^(D1,0)):$P(^(0),U,3),1:"""") S:Y'?."" "" Y(102)=Y" S D(1)=D1 S X=Y(102)
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),I(1,0)=$S($D(D1):D1,1:"") S Y(103)=$C(59)_$S($D(^DD(9999999.0611,.03,0)):$P(^(0),U,3),1:""),Y(102)=""
    59.3)= X ^DD(9999999.0611,.03,1,1,59.2) X "F D1=0:0 S D1=$O(^AUTTLOC(D0,11,D1)) Q:D1'>0  S Y=$S($D(^(D1,0)):$P(^(0),U,3),1:"""") S:Y'?."" "" Y(102)=Y" S D(1)=D1 S X=Y(102)
    CREATE VALUE)= LAST(CLASS:AFFILIATION)
    DELETE VALUE)= LAST(CLASS:AFFILIATION)
    FIELD)= CURRENT TYPE
  • CROSS-REFERENCE:  9999999.06^AD^MUMPS
    1)= ;I $D(^AUTTLOC(DA(1),0)),$P(^(0),U,25)'="" S AIHSY=$P(^(0),U,25) Q:AIHSY  S $P(^(0),U,25)=$S(AIHSY="IHS":1,AIHSY["NON":2,AIHSY="CHS":3,AIHSY["URB":4,AIHSY["STA":5,AIHSY["TRI":6,1:9)
    2)= ;I $D(^AUTTLOC(DA(1),0)),$P(^(0),U,25)'="" S AIHSY=$P(^(0),U,25),$P(^(0),U,25)=$S(AIHSY="IHS":1,AIHSY["NON":2,AIHSY="CHS":3,AIHSY["URB":4,AIHSY["STA":5,AIHSY["TRI":6,1:9)
.04 IHS/NON-IHS 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR IHS FAC;
  • '2' FOR NON-IHS FAC;

  • LAST EDITED:  MAR 06, 1990
.05 FACILITY TYPE 0;5 SET
************************REQUIRED FIELD************************
  • '1' FOR HOSPITAL;
  • '2' FOR HEALTH CENTER;
  • '3' FOR SCHOOL HEALTH CENTER;
  • '4' FOR HEALTH STATION;
  • '5' FOR ADMINISTRATION;
  • '6' FOR DENTAL CLINIC;
  • '7' FOR DOCTOR OFFICE;
  • '9' FOR OTHER;

  • LAST EDITED:  DEC 30, 1985
.06 ASUFAC CODE 0;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?6N)!(X?4N2U) X
  • LAST EDITED:  NOV 17, 1988
  • HELP-PROMPT:  ANSWER MUST BE 6 CHARACTERS IN LENGTH
  • CROSS-REFERENCE:  9999999.06^CTOO
    1)= S ^AUTTLOC("CTOO",$E(X,1,30),DA(1),DA)=""
    2)= K ^AUTTLOC("CTOO",$E(X,1,30),DA(1),DA)
.07 CLASS 0;7 POINTER TO PROVIDER TAXONOMY FILE (#99999.01) PROVIDER TAXONOMY(#99999.01)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"",4)=""N""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 10, 2003
  • HELP-PROMPT:  Select the Class for your site.
  • DESCRIPTION:  
    Select the Class from the Provider Taxonomy list produced by the X12 committee.  You will only be shown those entries that are for "Non- Individuals".
  • TECHNICAL DESCR:  
    Field added by AUT*98.1*11.  Modified by AUT*98.1*13 to repoint from Person Class to Provider Taxonomy file.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"",4)=""N"""
  • EXPLANATION:  The taxonomy selected must be for a Non-Individual.
Info |  Details |  All