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 |  Fields |  All
Print Page as PDF
Global: ^AZAMEDLG

Package: Local Area Programs

Global: ^AZAMEDLG


Information

FileMan FileNo FileMan Filename Package
1180006 AZA MEDICAID ELIGIBLE DOWNLOAD LOG Local Area Programs

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
Local Area Programs 11 AZAGMED    AZAGNED    AZAMADD    AZAMFALL    AZAMOFFS    AZAMSTIL    AZAMUPDT    AZANADD
AZANOFFS    AZANSTIL    AZANUPDT    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
Local Area Programs 6 AZAMED    AZAMFALL    AZAMLOG    AZAMMED    AZANED    AZANLOG    

Fields, Total: 12

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 02, 2001
  • HELP-PROMPT:  Type a Number between 0 and 1000, 0 Decimal Digits
.01 RUN START DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 02, 2001
  • DESCRIPTION:  This .01 field holds the Date and Time the AZAMED Routine was started. This routine $0's through the ^AZAGMED(Global. The ^AZAGMED Global is created when the AHCCCS file records are read for each record. The RUN STOP
    DATE contains the Date/Time the run completed.
    The file details all activities during the run:
    (1)    Number of Adds, (2)    Number of Updates (3)    Number of SSN Matches but no Match on Name/DOB (4)    Number of records added to the AZA MEDICAID ELIGIBLE (NO SSN) File (5)    Number of Total Records processed,
    regardless of action (6)    Time Length of the Run
  • CROSS-REFERENCE:  1180006^B
    1)= S ^AZAMEDLG("B",$E(X,1,30),DA)=""
    2)= K ^AZAMEDLG("B",$E(X,1,30),DA)





.02
RUN STOP DATE
0;2
DATE 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  S %DT="ESTR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 24, 2001





.03
GRAND TOTAL RECORDS
0;3
NUMBER 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 24, 2001
  • HELP-PROMPT:  Type a Number between 0 and 100000, 0 Decimal Digits





.04
TOTAL ACTION RECORDS PROCESSED
0;4
NUMBER 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 24, 2001
  • HELP-PROMPT:  Type a Number between 0 and 10000, 0 Decimal Digits





.05
TOTAL SSN MATCH ONLY
0;5
NUMBER 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 24, 2001
  • HELP-PROMPT:  Type a Number between 0 and 10000, 0 Decimal Digits





.06
TOTAL ADDED ELIGIBILITY
0;6
NUMBER 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 24, 2001
  • HELP-PROMPT:  Type a Number between 0 and 10000, 0 Decimal Digits





.07
TOTAL UPDATED ELIGIBILITY
0;7
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 24, 2001
  • HELP-PROMPT:  Type a Number between 0 and 10000, 0 Decimal Digits





.08
FILE NAME PROCESSED
0;8
FREE TEXT 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  JAN 24, 2001
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • TECHNICAL DESCR:  File names from AHCCCS come in as follows:
    010100.txt     =       January 1, 2001 010200.txt     =       February 1, 2001
    These monthly files are renamed at the Area Office and forward to each Field Site the first of each month.  The new name will be as follows:
    MED012001.TXT  =       January 2001 MED022001.TXT  =       February 2001
    The Download Routine AZAMLOAD Looks to the AZA MEDICAID ELIGIBLE DOWNLOAD LOG - FOR LAST ENTERED LOG DATE.  GLOBAL ^AZAMEDLG( Field:  #.08 FILE NAME PROCESSED - Subscript 0 - Piece 8
    If last entry name is MED012001.TXT.  Positions 4-5 are $Extracted, and +1 is added (for next month).  If the next month count = 13, then the month count will be set to 01 again.  The year will be extracted (Position 6-9)
    and +1 will be added to create a new year.
    Example:  MED122001.TXT - Last File processed New Name = MED012002.TXT - Position 4-5 = 12 + 1 = 13
    If Nubmer is 13 set to 01 AND
    Extract Position 6-9 - year and add 1
    2001+1 = 2002
    New Name Set to MED_MONTH_YEAR_.TXT
    *****IF FILE DOES NOT EXIST IN UNIX, Quit and write Message....
    "File does not exist in Unix, please call your Area Business Office
    at (602) __________".  Last file processed was __________ on
    _________________.
    END





.09
PROCESS TIME

COMPUTED

  • MUMPS CODE:  X ^DD(1180006,.09,9.2) S X=X S Y=X,X=Y(1180006,.09,2),X=X S X=X-Y S X=$J(X,0,4)
    9.2 = S Y(1180006,.09,1)=$S($D(^AZAMEDLG(D0,0)):^(0),1:"") S X=$P(Y(1180006,.09,1),U,2),X=X S X=X,Y(1180006,.09,2)=X S X=$P(Y(1180006,.09,1),U,1)
  • ALGORITHM:  INTERNAL(RUN STOP DATE)-INTERNAL(RUN START DATE)  (ALWAYS 4 DECIMAL DIGITS)
  • LAST EDITED:  JAN 31, 2001





1
TOTAL KIDS CARE
0;9
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 05, 2001
  • HELP-PROMPT:  Type a Number between 0 and 10000, 0 Decimal Digits





2
TOTAL FALL OFFS
0;10
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 21, 2001
  • HELP-PROMPT:  Type a Number between 0 and 1000000, 0 Decimal Digits







    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Fields | 
All