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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^FBAA(162.8

Package: Fee Basis

Global: ^FBAA(162.8


Information

FileMan FileNo FileMan Filename Package
162.8 FEE BASIS UNAUTHORIZED CLAIMS PENDING INFO Fee Basis

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Fee Basis 7 FBUCUTL5    ^FBAA(162.8    FBUCED1    FBUCLET1    FBUCPEND    FBUCUTL    FISCAL YEAR    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Fee Basis 2 FBUCED1    FBUCPEND    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Fee Basis 2 FEE BASIS UNAUTHORIZED REQUESTED INFORMATION(#162.93)[.03]    FEE BASIS UNAUTHORIZED CLAIMS(#162.7)[.02]    
Kernel 1 NEW PERSON(#200)[.06.07]    

Fields, Total: 7

Field # Name Loc Type Details
.01 DATE INFORMATION REQUESTED 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 12, 1993
  • HELP-PROMPT:  Enter the date information was requested for completion of an unauthorized claim.
  • DESCRIPTION:  
    Date information was requested for completion of an unauthorized claim.
  • CROSS-REFERENCE:  162.8^B
    1)= S ^FBAA(162.8,"B",$E(X,1,30),DA)=""
    2)= K ^FBAA(162.8,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  162.8^ACD^MUMPS
    1)= S:$P(^FBAA(162.8,DA,0),U,2)&('$P(^(0),U,5)) ^FBAA(162.8,"ACD",$P(^(0),U,2),X,DA)=""
    2)= K:$P(^FBAA(162.8,DA,0),U,2) ^FBAA(162.8,"ACD",$P(^(0),U,2),X,DA)
    Cross reference by claim number and request date, only if date information received is null.
.02 UNAUTHORIZED CLAIM 0;2 POINTER TO FEE BASIS UNAUTHORIZED CLAIMS FILE (#162.7)
************************REQUIRED FIELD************************
FEE BASIS UNAUTHORIZED CLAIMS(#162.7)

  • INPUT TRANSFORM:  S DIC("S")="S FBDFN=+$P($G(^FB583(DA,0)),U,4) I +$P(^FB583(Y,0),U,4)=FBDFN,'$P(^FB583(+Y,0),U,11) K FBDFN" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 16, 1993
  • HELP-PROMPT:  Select unauthorized claim for veteran.
  • DESCRIPTION:  
    The unauthorized claim associated with the requested information. Claim must not have been dispostioned.
  • SCREEN:  S DIC("S")="S FBDFN=+$P($G(^FB583(DA,0)),U,4) I +$P(^FB583(Y,0),U,4)=FBDFN,'$P(^FB583(+Y,0),U,11) K FBDFN"
  • EXPLANATION:  Display only those claims which have not been dispositioned.
  • CROSS-REFERENCE:  162.8^AC
    1)= S ^FBAA(162.8,"AC",$E(X,1,30),DA)=""
    2)= K ^FBAA(162.8,"AC",$E(X,1,30),DA)
    Cross reference by unauthorized claim.
  • CROSS-REFERENCE:  162.8^ACD1^MUMPS
    1)= S:'$P(^FBAA(162.8,DA,0),U,5) ^FBAA(162.8,"ACD",X,$P(^(0),U),DA)=""
    2)= K ^FBAA(162.8,"ACD",X,$P(^FBAA(162.8,DA,0),U),DA)
    Cross reference by claim number and request date, if date information received is null.
  • CROSS-REFERENCE:  162.8^AUI^MUMPS
    1)= S:$P(^FBAA(162.8,DA,0),U,3) ^FBAA(162.8,"AUI",X,$P(^FBAA(162.8,DA,0),U,3),DA)=""
    2)= K:$P(^FBAA(162.8,DA,0),U,3) ^FBAA(162.8,"AUI",X,$P(^FBAA(162.8,DA,0),U,3),DA)
    Group pending information by unauthorized claim.
.03 INFORMATION REQUESTED 0;3 POINTER TO FEE BASIS UNAUTHORIZED REQUESTED INFORMATION FILE (#162.93)
************************REQUIRED FIELD************************
FEE BASIS UNAUTHORIZED REQUESTED INFORMATION(#162.93)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 16, 1993
  • HELP-PROMPT:  Select the information which is requested.
  • DESCRIPTION:  
    The information which is being requested. Only active ones may be selected.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)"
  • EXPLANATION:  Allow selection of active requested information.
  • CROSS-REFERENCE:  162.8^AQ
    1)= S ^FBAA(162.8,"AQ",$E(X,1,30),DA)=""
    2)= K ^FBAA(162.8,"AQ",$E(X,1,30),DA)
    Cross-reference used to determine if information already requested.
  • CROSS-REFERENCE:  162.8^AUI1^MUMPS
    1)= S:$P(^FBAA(162.8,DA,0),U,2) ^FBAA(162.8,"AUI",$P(^FBAA(162.8,DA,0),U,2),X,DA)=""
    2)= K:$P(^FBAA(162.8,DA,0),U,2) ^FBAA(162.8,"AUI",$P(^FBAA(162.8,DA,0),U,2),X,DA)
    Group pending information by unauthorized claim.
.04 COMMENTS 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>65!($L(X)<3) X
  • LAST EDITED:  FEB 24, 1993
  • HELP-PROMPT:  Answer must be 3-65 characters in length.
  • DESCRIPTION:  
    The elaborated reason why information is being requested. Should only be entered/displayed when information requested is OTHER.
  • TECHNICAL DESCR:  
    This field will be prompted to the user whenever the reason is OTHER.
.05 DATE INFORMATION RECEIVED 0;5 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 13, 1993
  • HELP-PROMPT:  Enter date the requested information was received.
  • DESCRIPTION:  
    The date the requested information was received.
    UNEDITABLE
  • CROSS-REFERENCE:  162.8^ACD2^MUMPS
    1)= K:$P(^FBAA(162.8,DA,0),U,2) ^FBAA(162.8,"ACD",$P(^(0),U,2),$P(^(0),U),DA)
    2)= S:$P(^FBAA(162.8,DA,0),U,2) ^FBAA(162.8,"ACD",$P(^(0),U,2),$P(^(0),U),DA)=""
    Cross reference by claim number and request date, if date information received is null. If it is not null, kill previously set cross-reference. Cross reference is to determine if there are any pending information for a
    claim.
.06 RECEIVED BY 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 24, 1993
  • HELP-PROMPT:  Enter user who received the information.
  • DESCRIPTION:  
    The user who received the information.
.07 REQUESTED BY 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 24, 1993
  • HELP-PROMPT:  Enter the user who requested the information.
  • DESCRIPTION:  
    The user who requested the information.

External References

Name Field # of Occurrence
^%DT .01+1, .05+1
^DIC .02+1, .03+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAA(162.8 - [#162.8] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K)
.03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .05(XREF 1S), .05(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .05(XREF 1S), .05(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, .05+1*
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K)
.03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .05(XREF 1S), .05(XREF 1K)
DIC .02+1!*, .03+1!*
DIC("S" .02+1*, .02SCR+1*, .03+1*, .03SCR+1*
>> DIE .02+1, .03+1
U .01(XREF 2S), .01(XREF 2K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .03(XREF 2S), .03(XREF 2K), .05(XREF 1S), .05(XREF 1K)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1*!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K)
.02(XREF 3S), .02(XREF 3K), .03+1*!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04+1!, .05+1*!
>> Y .01+1, .02+1, .03+1, .05+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All