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

Package: IHS Patient

Global: ^AUPNVAMB


Information

FileMan FileNo FileMan Filename Package
9000006.02 VAMB ELIGIBLE IHS Patient

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Third Party Billing 4 ABMDE2XA    ABMDLCK4    ABMMUEL1    ABMMUELG    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Utility Tables 3 INSURER(#9999999.18)[1]    COVERAGE TYPE(#9999999.65)[#9000006.21101(.03)]    RELATIONSHIP(#9999999.36)[4]    
IHS Patient 1 PATIENT(#9000001)[.01]    

Fields, Total: 9

Field # Name Loc Type Details
.01 PATIENT NAME 0;1 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • LAST EDITED:  MAR 12, 2013
  • HELP-PROMPT:  ENTER PATIENT'S NAME (EXAMPLE: MORGAN,JAMES PAUL,JR (no space after comma))
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000006.02^B
    1)= S ^AUPNVAMB("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVAMB("B",$E(X,1,30),DA)
1 INSURER 0;2 POINTER TO INSURER FILE (#9999999.18) INSURER(#9999999.18)

  • INPUT TRANSFORM:  S DIC("S")="I $$ITS^AUTINS(Y,""V"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 02, 2016
  • SCREEN:  S DIC("S")="I $$ITS^AUTINS(Y,"V")"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 DATE OF LAST UPDATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAR 13, 2013
  • HELP-PROMPT:  (No range limit on date)
    UNEDITABLE
3 VETERAN NAME 0;4 FREE TEXT

  • INPUT TRANSFORM:  D NAME^AUPNPED
  • LAST EDITED:  MAR 13, 2013
  • HELP-PROMPT:  Enter in the format LASTNAME,FIRSTNAME MI
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 RELATIONSHIP TO VETERAN 0;5 POINTER TO RELATIONSHIP FILE (#9999999.36) RELATIONSHIP(#9999999.36)

  • LAST EDITED:  MAR 13, 2013
  • HELP-PROMPT:  ENTER RELATIONSHIP IN NARRATIVE FORM SUCH AS SPOUSE, SON, ETC.
5 VETERAN VMBP ENROLLMENT NUMBER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9)!'(X?9N) X
  • LAST EDITED:  APR 08, 2013
  • HELP-PROMPT:  Answer must be 9 characters in length.
6 VETERAN DOB 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  APR 08, 2013
  • HELP-PROMPT:  Enter veteran's date of birth (mm/dd/yyyy).
7 VETERAN GENDER 0;8 SET
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  APR 08, 2013
  • HELP-PROMPT:  Enter 'M' for MALE, 'F' for FEMALE, or 'U' if UNKNOWN.
1101 ELIGIBILITY DATES 11;0 DATE Multiple #9000006.21101 9000006.21101
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All