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: ^AGELUPLG

Package: IHS Patient Registration

Global: ^AGELUPLG


Information

FileMan FileNo FileMan Filename Package
9009062.02 AG ELIGIBILITY UPLOAD LOG IHS Patient Registration

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
IHS Patient Registration 4 AG6P17A    AGELUP1    AGELUP7    AGELUPR    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
IHS Patient Registration 3 AG6P17B    AGELUPR    AGELUPUT    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[#9009062.021(.01), #9009062.022(.01)]    
IHS Patient Registration 1 AG ELIGIBILITY UPLOAD TEMPLATE(#9009062.01)[.02]    
Kernel 1 NEW PERSON(#200)[.05]    

Fields, Total: 13

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

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 20, 2001
  • CROSS-REFERENCE:  9009062.02^B
    1)= S ^AGELUPLG("B",$E(X,1,30),DA)=""
    2)= K ^AGELUPLG("B",$E(X,1,30),DA)
.02 UPLOAD TEMPLATE 0;2 POINTER TO AG ELIGIBILITY UPLOAD TEMPLATE FILE (#9009062.01) AG ELIGIBILITY UPLOAD TEMPLATE(#9009062.01)

  • LAST EDITED:  JUN 20, 2001
.03 FILE NAME 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  MAR 11, 2002
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • CROSS-REFERENCE:  9009062.02^C
    1)= S ^AGELUPLG("C",$E(X,1,30),DA)=""
    2)= K ^AGELUPLG("C",$E(X,1,30),DA)
.04 RECORD COUNT 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 20, 2001
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
.05 RUN BY 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 20, 2001
.06 MCR ELIG BEFORE 0;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 22, 2001
  • HELP-PROMPT:  Enter the number of entries in the MEDICARE ELIGIBLE file.
.07 MCR ELIG AFTER 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 22, 2001
  • HELP-PROMPT:  Enter the number of entries in the MEDICARE ELIGIBLE file after the run.
.08 RRE ELIG BEFORE 0;8 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 22, 2001
  • HELP-PROMPT:  Enter the number of entries in the RAILROAD ELIGIBLE file before the run.
.09 RRE ELIG AFTER 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 22, 2001
  • HELP-PROMPT:  Enter the number of entries in the RAILROAD ELIGIBLE file after the run.
.11 MCD ELIG BEFORE 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 29, 2002
  • HELP-PROMPT:  Ente the number of entries in the MEDICAID ELIGIBLE file before the run.
.12 MCD ELIG AFTER 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 29, 2002
  • HELP-PROMPT:  Enter the number of entries in the MEDICAID ELIGIBLE file after the run.
1 PATIENTS ADDED 1;0 POINTER Multiple #9009062.021 9009062.021
2 PATIENTS EDITED 2;0 POINTER Multiple #9009062.022 9009062.022
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All