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

Package: Local Area Programs

Global: ^AZAMASTR


Information

FileMan FileNo FileMan Filename Package
1180007 AZA MEDICAID MASTER LIST Local Area Programs

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Local Area Programs 4 AZAMFALL    AZAMSTR    AZANSTR    AZAXDPM2    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Local Area Programs 10 AZAMADD    AZAMOFFS    AZAMSTIL    AZAMSTR    AZAMUPDT    AZANADD    AZANOFFS    AZANSTIL
AZANSTR    AZANUPDT    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Registration 1 VA PATIENT(#2)[.01]    

Fields, Total: 6

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

  • LAST EDITED:  FEB 01, 2001
  • CROSS-REFERENCE:  1180007^B
    1)= S ^AZAMASTR("B",$E(X,1,30),DA)=""
    2)= K ^AZAMASTR("B",$E(X,1,30),DA)
.02 NEW ADD DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 01, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^1180007^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AZAMASTR(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(1180007,.02,1,1,1.4)
    1.4)= S DIH=$S($D(^AZAMASTR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=1180007,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= NEW ADD DATE
    DELETE VALUE)= NO EFFECT
    FIELD)= STILL ELIGIBLE DATE
.03 UPDATE DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 01, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^1180007^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AZAMASTR(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(1180007,.03,1,1,1.4)
    1.4)= S DIH=$S($D(^AZAMASTR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=1180007,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= UPDATE DATE
    DELETE VALUE)= NO EFFECT
    FIELD)= STILL ELIGIBLE DATE
  • CROSS-REFERENCE:  ^^TRIGGER^1180007^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^AZAMASTR(D0,0)):^(0),1:"") S X=$P(Y(1),U,5)'="" I X S X=DIV S Y(1)=$S($D(^AZAMASTR(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(1180007,.03,1,2,1.
    4)
    1.4)= S DIH=$S($D(^AZAMASTR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=1180007,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= FALL OFF DATE'=""
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= FALL OFF DATE
.04 STILL ELIGIBLE DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 21, 2001
  • NOTES:  TRIGGERED by the NEW ADD DATE field of the AZA MEDICAID MASTER LIST File
    TRIGGERED by the UPDATE DATE field of the AZA MEDICAID MASTER LIST File
  • CROSS-REFERENCE:  1180007^AC
    1)= S ^AZAMASTR("AC",$E(X,1,30),DA)=""
    2)= K ^AZAMASTR("AC",$E(X,1,30),DA)
    This cross reference is utilized by the AZAMFALL Routine which provides a listing of all Fall Off Patients.  (Those on the previous Month's Roster, but not on the current Month's Roster).  The Still eligible date is
    compared to the current Month's Download date.  If they differ, the patient was not on the current Month's Roster and has, therefore, Fallen Off.
  • CROSS-REFERENCE:  ^^TRIGGER^1180007^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AZAMASTR(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(1180007,.04,1,2,1.4)
    1.4)= S DIH=$S($D(^AZAMASTR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=1180007,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= FALL OFF DATE
.05 FALL OFF DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 01, 2001
  • NOTES:  TRIGGERED by the UPDATE DATE field of the AZA MEDICAID MASTER LIST File
    TRIGGERED by the STILL ELIGIBLE DATE field of the AZA MEDICAID MASTER LIST File
.06 END ELIGIBLE DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 06, 2003
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All