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 FBUCED1    FBUCLET1    FBUCPEND    FBUCUTL    ^FBAA(163.98    FBUCUTL5    ^FBAA(162.8    

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