Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^AUTTPIC

Package: Utility Tables

Global: ^AUTTPIC


Information

FileMan FileNo FileMan Filename Package
9999999.65 COVERAGE TYPE Utility Tables

Description

Directly Accessed By Routines, Total: 53

Package Total Routines
Third Party Billing 17 ABMDE23P    ABMDE2E    ABMDE2X1    ABMDE2XA    ABMDE4X    ABMDLCK1    ABMDLCK2    ABMDLCK3
ABMDMDB2    ABMDREL1    ABMDRSU2    ABMDUTL    ABMDVST2    ABMKIDS    ABMPPAD2    ABMPPADJ
ABMPTSMT    
IHS Patient Registration 14 AGED42    AGED62    AGED7B    AGEDPRVB    AGEL0    AGEL2    AGELA    AGINS
AGINSUPD    AGRPTINS    AGRPTPRV    AGTMCOV    AGTMPC    AGTXALL    
Contract Health Management Information System 8 ACHSMD0A    ACHSRP31    ACHSRP3D    ACHSRPFU    ACHSRPI    ACHSRPIN    ACHSRPU    ACHSTX3C
IHS GPRA Information System 6 BGP0CPU    BGP1CPU    BGP2CPU    BGP3CPU    BGP8CPU    BGP9CPU    
IHS Generic Interface System 4 IS00011B    IS00011D    IS00029B    IS00029E    
Patient Registration GUI 2 AGGPTPVI    AGGWTBLK    
Data Warehouse Export System 1 BDWDWPX    
Pharmacy Point of Sale 1 ABSPOS25    

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
IHS Patient Registration 4 AGAGERP2    AGTMCOV    AGTMIMRG    AGUPCHK    
Third Party Billing 4 ABMDE2X    ABMDE2XA    ABMDTCOV    ABMDTIMR    

Pointed To By FileMan Files, Total: 5

Package Total FileMan Files
IHS Patient 3 POLICY HOLDER(#9000003.1)[.05]    PRIVATE INSURANCE ELIGIBLE(#9000006)[#9000006.11(.03)]    VAMB ELIGIBLE(#9000006.02)[#9000006.21101(.03)]    
Third Party Billing 2 3P BILL(#9002274.4)[#9002274.401311(.01)]    3P CLAIM DATA(#9002274.3)[#9002274.301311(.01)]    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
DRG Grouper 2 ICD OPERATION/PROCEDURE(#80.1)[#9999999.65152(.01), #9999999.65152(.02)]    ICD DIAGNOSIS(#80)[#9999999.6513(.01), #9999999.65153(.01), #9999999.65153(.02)]
Utility Tables 2 INSURER(#9999999.18)[.02]    ADA CODE(#9999999.31)[#9999999.6517(.02)]    
CPT Files 1 CPT(#81)[#9999999.65151(.01), #9999999.65151(.02)]    
Kernel 1 PROVIDER CLASS(#7)[#9999999.6515(.01)]    
Scheduling 1 CLINIC STOP(#40.7)[#9999999.6511(.01)]    

Fields, Total: 11

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  JAN 24, 1991
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  9999999.65^B
    1)= S ^AUTTPIC("B",$E(X,1,30),DA)=""
    2)= K ^AUTTPIC("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9999999.65^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $D(AGELP("INS")) I X S X=DIV S Y(1)=$S($D(^AUTTPIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=AGELP("INS") X ^DD(9999999.65,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^AUTTPIC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9999999.65,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= I $D(AGELP("INS"))
    CREATE VALUE)= S X=AGELP("INS")
    DELETE VALUE)= NO EFFECT
    FIELD)= #.02
.02 INSURER 0;2 POINTER TO INSURER FILE (#9999999.18)
************************REQUIRED FIELD************************
INSURER(#9999999.18)

  • LAST EDITED:  FEB 02, 1991
  • SCREEN:  S DIC("S")="I $D(AGELP(""INS"")),$P(^(0),U,2)=AGELP(""INS"")"
  • EXPLANATION:  COVERAGE TYPE IS INSURER TYPE SPECIFIC
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the NAME field of the COVERAGE TYPE File
  • CROSS-REFERENCE:  9999999.65^C
    1)= S ^AUTTPIC("C",$E(X,1,30),DA)=""
    2)= K ^AUTTPIC("C",$E(X,1,30),DA)
.03 PLAN CODE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  AUG 18, 1990
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • CROSS-REFERENCE:  9999999.65^AC^MUMPS
    1)= I $P(^AUTTPIC(DA,0),U,2)]"" S ^AUTTPIC("AC",$P(^(0),U,2),X,DA)=""
    2)= K ^AUTTPIC("AC",$P(^AUTTPIC(DA,0),U,2),X,DA)
  • CROSS-REFERENCE:  9999999.65^D
    1)= S ^AUTTPIC("D",$E(X,1,30),DA)=""
    2)= K ^AUTTPIC("D",$E(X,1,30),DA)
.04 PLAN TYPE 0;4 SET
  • 'S' FOR SELF;
  • 'F' FOR FAMILY;

  • LAST EDITED:  AUG 15, 1990
  • HELP-PROMPT:  What is the PLAN type for this COVERAGE?
  • DESCRIPTION:  
    Enter "S" for SELF or "F" for FAMILY.
.05 SUPPLEMENTAL TO MEDICARE (Y/N) 0;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 01, 1991
  • HELP-PROMPT:  Is this COVERAGE TYPE a supplement to MediCare?
  • DESCRIPTION:  Enter "1" for YES. Enter "0" for NO.
    A YES value indicates that the insurer is private in nature and should be billed secondary to Medicare.





.06
INACTIVE DATE
0;6
DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 07, 2004





11
CLINICS UNBILLABLE
11;0
POINTER Multiple #9999999.6511
9999999.6511




13
DIAGNOSIS UNBILLABLE
13;0
POINTER Multiple #9999999.6513
9999999.6513




15
PROV CLASS (UN)BILLABLE
15;0
POINTER Multiple #9999999.6515
9999999.6515
  • LAST EDITED:  MAY 21, 1997





17
DENTAL CATEGORIES UNBILLABLE
17;0
SET Multiple #9999999.6517
9999999.6517




19
CO-PAY/DED RATES
19;0
DATE Multiple #9999999.6519
9999999.6519






    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
All