Global: ^AUTNINS

1)= S ^AUTNINS("B",$E(X,1,30),DA)=""

2)= K ^AUTNINS("B",$E(X,1,30),DA)

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^AUTNINS(D0,4)):^(4),1:"") S X=$P(Y(1),U,1)="" I X S X=DIV S Y(1)=$S($D(^AUTNINS(D0,4)):^(4),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9999999.18,.

01,1,2,1.4)

1.4)= S DIH=$S($D(^AUTNINS(DIV(0),4)):^(4),1:""),DIV=X S $P(^(4),U,1)=DIV,DIH=9999999.18,DIG=.41 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= #.41=""

CREATE VALUE)= #.01

DELETE VALUE)= NO EFFECT

FIELD)= #.41

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(9999999.18,.01,1,4,69.2) S X=X="" I X S X=DIV S Y(1)=$S($D(^AUTNINS(D0,1)):^(1),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(9999999.18,.01,1,4,1.4)

1.4)= S DIH=$S($D(^AUTNINS(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,7)=DIV,DIH=9999999.18,DIG=.17 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

69.2)= S Y(2)=$C(59)_$S($D(^DD(9999999.18,.17,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^AUTNINS(D0,1)):^(1),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_":",2),$C(59),1)

CREATE CONDITION)= #.17=""

CREATE VALUE)= S X=1

DELETE VALUE)= NO EFFECT

FIELD)= #.17

This field was modified by patch AUT*98.1*13 to change the length from 5 to 15 characters.

1)= S ^AUTNINS("E",$E(X,1,30),DA)=""

2)= K ^AUTNINS("E",$E(X,1,30),DA)

fields.   Field created 9/4/03.

This field is introduced by patch AUT*98.1*13.

1)= S ^AUTNINS("H",$E(X,1,30),DA)=""

2)= K ^AUTNINS("H",$E(X,1,30),DA)

1)= S ^AUTNINS("D",$E(X,1,30),DA)=""

2)= K ^AUTNINS("D",$E(X,1,30),DA)

TRIGGERED by the NAME field of the INSURER File

1)= S ^AUTNINS("AS",$E(X,1,30),DA)=""

2)= K ^AUTNINS("AS",$E(X,1,30),DA)

"MC" added to codeset for "MCR PART C" by AUT*98.1*24.  "MMC" added to codeset for "MCR MANAGED CARE" by AUT*98.1*24.  "TSI" added to codeset for "TRIBAL SELF INSURED" by AUT*98.1*24.  "SEP" added to codeset for "STATE

EXCHANGE PLAN" by AUT*98.1*24.  "FPL" added to codeset for "FPL 133 PERCENT" by AUT*98.1*24.

Removed required flag and trigger with AUT*98.1*28.

considered obsolete, and its use will be phased out over the next year or so.

Entry to the field may be accomplished either through direct edit, or via trigger by entry in the soon-to-be-deprecated TYPE OF INSURER field.

Phase out process implemented with AUT*98.1*28, AUPN*99.1*25, and AG*7.1*12.

Code "U" means drugs are not billable.

Code "O" means only outpatient drugs are billable.

Code "P" means the drugs are billable through Point Of Sale.

P:BILLED POINT OF SALE

The addition was done at the request of the 3rd Party Billing development, support, and maintenance team.

1)= S ^AUTNINS("AO",$E(X,1,30),DA)=""

2)= K ^AUTNINS("AO",$E(X,1,30),DA)

1)= S ^AUTNINS("AI",$E(X,1,30),DA)=""

2)= K ^AUTNINS("AI",$E(X,1,30),DA)

This is the number of this Insurer that is from a system external to RPMS, and is kept here for accurate mapping of insurers from the external system to RPMS.

Creation of this field was at the request of a contract supporter of the Viking pharmacy system, and will be used to store the identification number kept in Viking's external system to identify this Insurer.  This will

ensure a good map of Insurers between the two systems, and will help the business office and billers. [ Original, April 1999. ]

1)= S ^AUTNINS("F",$E(X,1,30),DA)=""

2)= K ^AUTNINS("F",$E(X,1,30),DA)

3)= This helps find the ID.

This x-ref was added at the request of developers supporting Viking.  AUT*98.1*12.

Enter the external identification for this insurer

This field is available for systems external to RPMS to store the identification number of this insurer, as created in the external system.  To eliminate possible collisions with any external systems, reservation of this

field with the RPMS DBA is recommended. [ Original April 1999 ] NOTE:  Reserved for Viking.

1)= S ^AUTNINS("G",$E(X,1,30),DA)=""

2)= K ^AUTNINS("G",$E(X,1,30),DA)

3)= Prevents duplicates.

Enter the name of this insurer that is in the external system.

Creation of this field was at the request of a contract supporter of the Viking pharmacy system, and will be used to store the name of this insurer that is kept in Viking's external system to identify this Insurer.  This

will ensure a good map of Insurers between the two systems, and will help the business office and billers.

This field is required by some HIPAA EDI transactions.

This field added by AUT*98.1*12.  AUT*98.1*11 mistakenly overwrote a previously allocated field number .28, which is corrected with AUT*98.1*12.

This field is introduced by patch AUT*98.1*13.

1)= S ^AUTNINS("I",$E(X,1,30),DA)=""

2)= K ^AUTNINS("I",$E(X,1,30),DA)

This field is introduced by patch AUT*98.1*13.

If this is a Medicaid insurer, is coverage required?

If this is a Medicaid insurer, is the rate code required?

If the insurer is Railroad or Medicaid, is the plan name required?

Do you want the KIDSCARE entered as Medicaid or Private insurance?

Is this insurer a network provider?

1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^AUTNINS("C",I,DA)=""

2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^AUTNINS("C",I,DA)

Envoy assigned Medical Payer ID

Envoy assigned Hospital Payer ID

ENVOY assigned Dental Payer ID

Field created 9/3/03

This field is introduced by patch AUT*98.1*13.

created 9/3/03

This field is introduced by AUT*98.1*13.

created 9/3/03

This field is introduced by AUT*98.1*13.

9/3/03

This field is introduced by AUT*98.1*13.

created 9/3/03

This field is introduced by AUT*98.1*13.