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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AUPNICP

Package: IHS Patient

Global: ^AUPNICP


Information

FileMan FileNo FileMan Filename Package
9000035 CATEGORY PRIORITIZING IHS Patient

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
IHS Changes To Lab 3 BLRRLEDI    BLRRLHL    BLRSHPML    
IHS Patient Registration 3 AG9924    AGCAT    AGED4A2    
IHS Patient 1 AUPNSEQ    
Local Area Programs 1 AZAXDPM1    
Patient Registration GUI 1 AGGPTDMG    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
IHS Patient Registration 3 AGAPIS    AGCAT    AGED4A2    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[.14]    
Utility Tables 1 INSURER(#9999999.18)[.03, .12]    

Fields, Total: 14

Field # Name Loc Type Details
.01 DATE/TIME OF ENTRY 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 02, 2002
  • TECHNICAL DESCR:  
    Created 7/1/2002 for V7.0 of AG.  Distributed in AUPN*99.1*8
  • CROSS-REFERENCE:  9000035^B
    1)= S ^AUPNICP("B",$E(X,1,30),DA)=""
    2)= K ^AUPNICP("B",$E(X,1,30),DA)
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  JUL 02, 2002
  • TECHNICAL DESCR:  
    Created 7/1/2002 for V7.0 of AG.  Distributed in AUPN*99.1*8
  • CROSS-REFERENCE:  9000035^C
    1)= S ^AUPNICP("C",$E(X,1,30),DA)=""
    2)= K ^AUPNICP("C",$E(X,1,30),DA)
.03 INSURER 0;3 POINTER TO INSURER FILE (#9999999.18)
************************REQUIRED FIELD************************
INSURER(#9999999.18)

  • LAST EDITED:  JUL 02, 2002
  • TECHNICAL DESCR:  
    Created 7/1/2002 for V7.0 of AG.  Distributed in AUPN*99.1*8
.04 CATEGORY 0;4 SET
************************REQUIRED FIELD************************
  • 'M' FOR MEDICAL;
  • 'D' FOR DENTAL;
  • 'O' FOR OPTOMETRY;
  • 'R' FOR PHARMACY;
  • 'P' FOR MENTAL HEALTH;
  • 'A' FOR AUTO ACCIDENT/TORT;
  • 'W' FOR WORKMAN'S COMP;

  • LAST EDITED:  JUL 02, 2002
  • TECHNICAL DESCR:  
    Created 7/1/2002 for V7.0 of AG.  Distributed in AUPN*99.1*8
.05 PRIORITY 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 05, 2003
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
.06 EFFECTIVE DATE OF PRIORITY 0;6 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 02, 2003
  • CROSS-REFERENCE:  9000035^EFF^MUMPS
    1)= S ^AUPNICP("EFF",$P(^AUPNICP(DA,0),"^",2),$P(^(0),"^",4),X,DA)=""
    2)= K ^AUPNICP("EFF",$P(^AUPNICP(DA,0),"^",2),$P(^(0),"^",4),X,DA)
  • CROSS-REFERENCE:  9000035^D^MUMPS
    1)= S ^AUPNICP("EFF2",$P(^AUPNICP(DA,0),U,2),X,$P(^(0),U,4),DA)=""
    2)= K ^AUPNICP("EFF2",$P(^AUPNICP(DA,0),U,2),X,$P(^(0),U,4),DA)
.07 COVERAGE TYPE 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 29, 2003
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
.08 ELIG BEGIN DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 29, 2003
.09 ELIG END DATE 0;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 29, 2003
.11 POLICY NUMBER 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  AUG 08, 2006
  • HELP-PROMPT:  Answer must be 1-30 characters in length
.12 PLAN POINTER 0;11 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • LAST EDITED:  NOV 19, 2003
.13 POLICY HOLDER 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<2) X
  • LAST EDITED:  NOV 21, 2003
  • HELP-PROMPT:  Answer must be 2-8 characters in length.
  • TECHNICAL DESCR:  This field is used as a means to find the policy holder for this record. The first position will be an "M","D","R", or "P" to indicate which eligibility file has the policy holder name. "M" = Medicare, "D" = Medicaid, "R"
    = Railroad Retired and "P" = Private insurance. Since the Medicare Name, Medicaid Name, and Railroad Name fields are used as the policy holder in those files, positions 2 through 8 of this field will be used as a pointer
    to the corresponding eligibility file. In the case of private insurance, position 2 through 8 will be used as a pointer to the policy holder file.
.14 USER 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 30, 2004
  • DESCRIPTION:  
    This is the person that set this sequence
.15 RECORD PTR 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 26, 2005
  • HELP-PROMPT:  Answer must be 1-40 characters in length
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All