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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^DGPR(408.13

Package: Registration

Global: ^DGPR(408.13


Information

FileMan FileNo FileMan Filename Package
408.13 INCOME PERSON Registration

Description

Directly Accessed By Routines, Total: 24

Package Total Routines
Registration 11 ^DGPR(408.13    DG53358D    DG53P624    DGDEP0    DGDEP3    DGLOCK2    DGMTDD1    DGMTUTL2
DGPSEU2    DGRPEIS    DGSSNRP2    
Enrollment Application System 7 EASEC100    EASECED1    EASEZF3    EASEZF4    EASEZU6    EASUM7    EASUM9    
Income Verification Match 4 IVM2174F    IVMCMD    IVMUM2    IVMUM7    
Integrated Billing 1 IBCNEHLQ    
Scheduling 1 SDPPMT2    

Accessed By FileMan Db Calls, Total: 18

Package Total Routines
Income Verification Match 7 IVMCM2    IVMCM9    IVMCMD    IVMUM2    IVMUM7    IVMUM8    IVMUM9    
Registration 6 DG53358D    DG53618    DGMTDD1    DGPSEU2    DGRPCE    DGRPEIS1    
Enrollment Application System 4 EASECED1    EASUM7    EASUM8    EASUM9    
Integrated Billing 1 IBCNBCD5    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Registration 2 MEANS TEST CHANGES(#408.41)[.1]    PATIENT RELATION(#408.12)[.03]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 STATE(#5)[1.6]    

Fields, Total: 15

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X'?1U.ANP)!(X'[",") X I $D(X) D UP^DGHELP S Y=", " F I=0:0 Q:$F(X,Y)<1 S X=$E(X,1,($F(X,Y)-2))_$E(X,$F(X,Y),99)
  • LAST EDITED:  SEP 13, 2005
  • HELP-PROMPT:  Answer must be 3-30 characters in length. The name must be in the format LASTNAME,FIRSTNAME MIDDLENAME where middlename is optional. The name must not begin with punctuation.
  • DESCRIPTION:  Enter the name of the relative of the veteran. The name should be entered in the same format as that for the veteran: LASTNAME,FIRSTNAME MIDDLENAME. If a space is entered between the comma and the first name, it will
    automatically be removed.  The relation's full name should be used to avoid potential duplicates.
  • DELETE TEST:  1,0)= I 1 W !,*7,"Relations cannot be deleted, they must be inactivated!!"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  408.13^B
    1)= S ^DGPR(408.13,"B",$E(X,1,30),DA)=""
    2)= K ^DGPR(408.13,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  408.13^AENR01^MUMPS
    1)= D E40813^DGRTRIG(DA)
    2)= D E40813^DGRTRIG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.02 SEX 0;2 SET
************************REQUIRED FIELD************************
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;

  • LAST EDITED:  SEP 13, 2005
  • DESCRIPTION:  
    Enter the sex of the relative.  This question must be answered in order for this relative to remain on file.  Enter M or Male for male or F or FEMALE for female.
  • TECHNICAL DESCR:  This field is used to screen the allowable relationships as selectable from the PATIENT RELATION file. Entry of FEMALE will, for example, screen out relationships such as BROTHER, FATHER, etc. which allowing entries such
    as SISTER and MOTHER.
  • CROSS-REFERENCE:  408.13^AENR02^MUMPS
    1)= D E40813^DGRTRIG(DA)
    2)= D E40813^DGRTRIG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.03 DATE OF BIRTH 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EP" D ^%DT S X=Y K:1701231>X!((($E(DT,1,3)-1)_1231)
  • OUTPUT TRANSFORM:  NUMDATE4(DOB)
  • LAST EDITED:  SEP 13, 2005
  • HELP-PROMPT:  Enter the date this dependent was born. The date must not be during the current calendar year. Only persons that were dependents before the current year may be entered.
  • DESCRIPTION:  Enter the date on which this relative was born. This information is necessary for use in the income screening and means test portions of MAS.
    The date entered must not be during the current calendar year.  That is, it must be on or before December 31 or the prior calendar year.  The reason for this is that this data is used for collecting income information for
    the purposes of comparing this data with the Internal Revenue Service (IRS).  Children born during the current calendar year can not be entered until next year.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  408.13^ADOB
    1)= S ^DGPR(408.13,"ADOB",$E(X,1,30),DA)=""
    2)= K ^DGPR(408.13,"ADOB",$E(X,1,30),DA)
  • CROSS-REFERENCE:  408.13^AENR03^MUMPS
    1)= D E40813^DGRTRIG(DA)
    2)= D E40813^DGRTRIG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.09 SOCIAL SECURITY NUMBER 0;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) D SSN^DGMTDD1
  • LAST EDITED:  JUL 12, 2006
  • HELP-PROMPT:  Answer with the individual's social security number. Answer must be 9 numbers in length or a "P" or a pseudo SSN.
  • DESCRIPTION:  Answer with the individual's social security number. Answer must be 9 numbers in length. The SSN will be sent to the SSA for verification. This status will be displayed next to the SSN. Once an SSN has received a status
    of Verified, it is locked from user updating and a "VERIFIED" will be displayed by the SSN field.  Only HEC staff are able to change a Spouse or Dependents verified SSN.  If SSA indicates the SSN is invalid, "INVALID" will
    appear next to the invalid SSN of the individual. Facilities should make every effort to obtain the accurate SSN from the individual for any invalid or pseudo SSN.
    If a valid SSN is not known, then a "P" will be entered at the SSN prompt for the system to automatically assign a Pseudo-SSN.  If a Pseudo SSN is entered, a Reason for entering it will be required.
  • TECHNICAL DESCR:  
    This contains the SSN of the veteran's dependents.  This is not required.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  408.13^BS^MUMPS
    1)= S ^DGPR(408.13,"BS",$E(X,6,9),DA)=""
    2)= K ^DGPR(408.13,"BS",$E(X,6,9),DA)
  • CROSS-REFERENCE:  408.13^BS5^MUMPS
    1)= S ^DGPR(408.13,"BS5",$E(^DGPR(408.13,DA,0),1)_$E(X,6,9),DA)=""
    2)= K ^DGPR(408.13,"BS5",$E(^DGPR(408.13,DA,0),1)_$E(X,6,9),DA)
  • CROSS-REFERENCE:  408.13^SSN
    1)= S ^DGPR(408.13,"SSN",$E(X,1,30),DA)=""
    2)= K ^DGPR(408.13,"SSN",$E(X,1,30),DA)
  • CROSS-REFERENCE:  408.13^AIVM^MUMPS
    1)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T SPSSN^IVMPXFR S X=IVMX K IVMX
    2)= S IVMX=X,X="IVMPXFR" X ^%ZOSF("TEST") D:$T SPSSN^IVMPXFR S X=IVMX K IVMX
    This cross-reference will check the IVM PATIENT file to see if a change to this field will require transmission to the IVM Center.  If it does, the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and the
    nightly background job will transmit the updated information.
  • CROSS-REFERENCE:  408.13^AENR09^MUMPS
    1)= D E40813^DGRTRIG(DA)
    1.4)= S DIH=$G(^DGPR(408.13,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=408.13,DIG=.1 D ^DICR
    2)= D E40813^DGRTRIG(DA)
    3)=  DO NOT DELETE
    CREATE CONDITION)= #.09'["P"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= PSEUDO SSN REASON
    This cross-reference is used to notify HEC of changes that may affect enrollment.
  • CROSS-REFERENCE:  ^^TRIGGER^408.13^.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)'["P" I X S X=DIV S Y(1)=$S($D(^DGPR(408.13,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" X ^DD(408.13,.09,1,6,1.4)
    1.4)= S DIH=$G(^DGPR(408.13,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=408.13,DIG=.1 D ^DICR
    2)= Q
    3)= DO NOT DELETE
    CREATE CONDITION)= #.09'["P"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= PSEUDO SSN REASON
    Pseudo SSN Reason will have a value only if SSN is a Pseudo SSN.
.1 PSEUDO SSN REASON 0;10 SET
************************REQUIRED FIELD************************
  • 'R' FOR REFUSED TO PROVIDE;
  • 'S' FOR SSN UNKNOWN/FOLLOW-UP REQUIRED;
  • 'N' FOR NO SSN ASSIGNED;

  • LAST EDITED:  SEP 30, 2005
  • DESCRIPTION:  This field is used to document the reason the individual was assigned a pseudo SSN. Based on your selection, the Pseudo SSN Report (Dependent) option located in the Means Test Menu can provide you a current report of the
    reasons entered at this prompt.  The following reasons are available for selection:
    Refused to Provide - use this reason when the individual was asked for his/her SSN and refused to provide the number.
    SSN Unknown/Follow-up required - use this reason when the individual is not available to ask/answer the request for SSN.  The facility should initiate Follow-up activity to obtain the SSN.
    No SSN Assigned - use this reason when the individual has not been assigned an SSN.  This generally applies to spouses or dependents of veterans who are not US citizens and infrequently, non-citizen beneficiaries.
  • NOTES:  TRIGGERED by the SOCIAL SECURITY NUMBER field of the INCOME PERSON File
    TRIGGERED by the SOCIAL SECURITY NUMBER field of the INCOME PERSON File
  • CROSS-REFERENCE:  408.13^AENR1^MUMPS
    1)= D E40813^DGRTRIG(DA)
    2)= D E40813^DGRTRIG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
.11 SSN VERIFICATION STATUS 0;11 SET
  • '4' FOR VERIFIED;
  • '2' FOR INVALID;

  • LAST EDITED:  APR 06, 2006
  • DESCRIPTION:  
    This field designates whether or not the SSN has been verified. This field will be received in the HL7 record.  It is not editable by the user.  Once the SSN is verified by the SSA, it is no longer editable.
1.1 MAIDEN NAME 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<2) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35,,2,,1) K:'$L(X) X,DG20NAME
  • LAST EDITED:  SEP 13, 2005
  • HELP-PROMPT:  Answer must be 2-35 characters in length.
  • DESCRIPTION:  Enter the spouse's maiden name in 'LAST,FIRST MIDDLE SUFFIX' format. Entry of the LAST name only is permitted and the comma may be omitted. If the response contains no comma, one will be appended to the value. Including
    the comma, the value must be at least 3 characters in length.
  • TECHNICAL DESCR:  This field was added via patch DG*5.3*597, distributed with EAS*1.0*51.
    The purpose of this field is to store in the INCOME PERSON file the maiden name of the Veteran's spouse as reported on the 1010EZ application.
    However, the field may be used to add the maiden name of any dependent of the Veteran.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  408.13^AENR11^MUMPS
    1)= D E40813^DGRTRIG(DA)
    2)= D E40813^DGRTRIG(DA)
    3)=  DO NOT DELETE
    This cross-reference is used to notify HEC of changes that may affect enrollment.
1.2 STREET ADDRESS [LINE 1] 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 18, 2008
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    The first line of the spouse's residence street address.
  • EXECUTABLE HELP:  D HELPSA1^DGRPEIS3
  • DELETE TEST:  1,0)= D SDD^DGLOCK2 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  408.13^AC^MUMPS
    1)= D TRIGGER^IVMCM9(DA) Q
    2)= D TRIGGER^IVMCM9(DA) Q
    Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update DT/TM with trigger.
1.3 STREET ADDRESS [LINE 2] 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 18, 2008
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    The second line of the spouse's residence street address.
  • EXECUTABLE HELP:  D HELPSA2^DGRPEIS3
  • DELETE TEST:  1,0)= D SDD^DGLOCK2 I '$D(X)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  408.13^AD^MUMPS
    1)= D TRIGGER^IVMCM9(DA) Q
    2)= D TRIGGER^IVMCM9(DA) Q
    Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update DT/TM with trigger.
1.4 STREET ADDRESS [LINE 3] 1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 18, 2008
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    The third line of the spouse's residence street address.
  • EXECUTABLE HELP:  D HELPSA3^DGRPEIS3
  • DELETE TEST:  1,0)= D SDD^DGLOCK2 I '$D(X)
  • CROSS-REFERENCE:  408.13^AE^MUMPS
    1)= D TRIGGER^IVMCM9(DA) Q
    2)= D TRIGGER^IVMCM9(DA) Q
    Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update DT/TM with trigger.
1.5 CITY 1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 18, 2008
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    The city where the spouse's residence is located.
  • EXECUTABLE HELP:  D HELPCITY^DGRPEIS3
  • DELETE TEST:  1,0)= D SDD^DGLOCK2 I '$D(X)
  • CROSS-REFERENCE:  408.13^AF^MUMPS
    1)= D TRIGGER^IVMCM9(DA) Q
    2)= D TRIGGER^IVMCM9(DA) Q
    Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update DT/TM with trigger.
1.6 STATE 1;6 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  AUG 18, 2008
  • DESCRIPTION:  
    The state where the spouse's residence is located.
  • EXECUTABLE HELP:  D HELPSTAT^DGRPEIS3
  • DELETE TEST:  1,0)= D SDD^DGLOCK2 I '$D(X)
  • CROSS-REFERENCE:  408.13^AG^MUMPS
    1)= D TRIGGER^IVMCM9(DA) Q
    2)= D TRIGGER^IVMCM9(DA) Q
    Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update DT/TM with trigger.
1.7 ZIP 1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5)!'((X?5N)!(X?5N1"-"4N)) X
  • LAST EDITED:  AUG 18, 2008
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
  • DESCRIPTION:  
    The zip code where the spouse's residence is located.
  • EXECUTABLE HELP:  D HELPZIP^DGRPEIS3
  • CROSS-REFERENCE:  408.13^AH^MUMPS
    1)= D TRIGGER^IVMCM9(DA) Q
    2)= D TRIGGER^IVMCM9(DA) Q
    Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update DT/TM with trigger.
1.8 TELEPHONE NUMBER 1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  AUG 18, 2008
  • HELP-PROMPT:  Answer must be 4-20 characters in length.
  • DESCRIPTION:  
    The telephone number for the spouse's residence.
  • TECHNICAL DESCR:  May be exactly 10 digits or may be formatted up to 13 characters as:
    (nnn)nnn-nnnn
    i.e., ()-
    or
    nnn.nnn.nnnn
    i.e., ..
  • EXECUTABLE HELP:  D HELPPHON^DGRPEIS3
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  408.13^AI^MUMPS
    1)= D TRIGGER^IVMCM9(DA) Q
    2)= D TRIGGER^IVMCM9(DA) Q
    Sets the Spouse Address Last Updated DT/TM field (1.9). If $D(IVMSPFLG) - ORU~Z10 - don't update DT/TM with trigger.
1.9 SPOUSE ADDR LAST DT/TM UPDATED 1;9 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  AUG 14, 2008
  • DESCRIPTION:  This field will contain the date and time of the last update to the Spouse's address.
    VistA shall upload all of the Spouse Address fields during the HL7 Z10 receiver process if 1. the Address Line 1 (field 1.2) is NOT null 2. the received Changed Date/Time is greater than the Spouse Address Last
    Date/Time Updated that is on VistA.
    Any change to the following Spouse Address fields will trigger an update: Street Address [Line 1], Street Address [Line 2], Street Address [Line 3], City, State, Zip, and Telephone Number

ICR, Total: 3

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #970
  • INCOME VERIFICATION MATCH
  • NAME (.01).
    Access: Both R/W w/Fileman

    SEX (.02).
    Access: Both R/W w/Fileman

    DATE OF BIRTH (.03).
    Access: Both R/W w/Fileman

    SOCIAL SECURITY NUMBER (.09).
    Access: Both R/W w/Fileman

    These fields are updated when a new income person isadded to file #408.13 or when IVM data is different then VAMC data.
    ICR #3329
  • ENROLLMENT APPLICATION SYSTEM
  • NAME (.01).
    Access: Both R/W w/Fileman

    SEX (.02).
    Access: Both R/W w/Fileman

    DATE OF BIRTH (.03).
    Access: Both R/W w/Fileman

    SOCIAL SECURITY NUMBER (.09).
    Access: Both R/W w/Fileman

    MAIDEN NAME (1.1).
    Access: Both R/W w/Fileman

    STREET ADDRESS 1 (1.2).
    Access: Both R/W w/Fileman

    STREET ADDRESS 2 (1.3).
    Access: Both R/W w/Fileman

    STREET ADDRESS 3 (1.4).
    Access: Both R/W w/Fileman

    CITY (1.5).
    Access: Both R/W w/Fileman

    STATE (1.6).
    Access: Both R/W w/Fileman

    ZIP (1.7).
    Access: Both R/W w/Fileman

    TELEPHONE NUMBER (1.8).
    Access: Read w/Fileman

    ICR #4243
  • INTEGRATED BILLING
  • SEX (2).
    Access: Read w/Fileman

    DATE OF BIRTH (3).
    Access: Read w/Fileman

    PATIENT (4).
    Access: Read w/Fileman

    SOCIAL SECURITY NUMBER (9).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .03+1, 1.9+1
    UP^DGHELP .01+1
    SDD^DGLOCK2 1.2DEL1+1, 1.3DEL1+1, 1.4DEL1+1, 1.5DEL1+1, 1.6DEL1+1
    SSN^DGMTDD1 .09+1
    HELPCITY^DGRPEIS3 1.5(HELP )
    HELPPHON^DGRPEIS3 1.8(HELP )
    HELPSA1^DGRPEIS3 1.2(HELP )
    HELPSA2^DGRPEIS3 1.3(HELP )
    HELPSA3^DGRPEIS3 1.4(HELP )
    HELPSTAT^DGRPEIS3 1.6(HELP )
    HELPZIP^DGRPEIS3 1.7(HELP )
    E40813^DGRTRIG .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 2S), .03(XREF 2K), .09(XREF 5S), .09(XREF 5K), .1(XREF 1S), .1(XREF 1K)
    1.1(XREF 1S), 1.1(XREF 1K)
    ^DICR .09(XREF 5n1.4), .09(XREF 6n1.4)
    TRIGGER^IVMCM9 1.2(XREF 1S), 1.2(XREF 1K), 1.3(XREF 1S), 1.3(XREF 1K), 1.4(XREF 1S), 1.4(XREF 1K), 1.5(XREF 1S), 1.5(XREF 1K), 1.6(XREF 1S), 1.6(XREF 1K)
    1.7(XREF 1S), 1.7(XREF 1K), 1.8(XREF 1S), 1.8(XREF 1K)
    SPSSN^IVMPXFR .09(XREF 4S), .09(XREF 4K)
    $$FORMAT^XLFNAME7 1.1+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" .09(XREF 4S), .09(XREF 4K)
    ^DD(408.13 .09(XREF 6S)
    ^DGPR(408.13 - [#408.13] .01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K), .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K), .09(XREF 3S), .09(XREF 3K)
    .09(XREF 5n1.4), .09(XREF 6S), .09(XREF 6n1.4)

    Naked Globals

    Name Field # of Occurrence
    ^(0 .09(XREF 5n1.4), .09(XREF 6S), .09(XREF 6n1.4)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .03+1*, 1.9+1*
    >> D0 .09(XREF 6S)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)
    .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K), .09(XREF 3S), .09(XREF 3K), .09(XREF 5S), .09(XREF 5K), .09(XREF 6S), .1(XREF 1S)
    .1(XREF 1K), 1.1(XREF 1S), 1.1(XREF 1K), 1.2(XREF 1S), 1.2(XREF 1K), 1.3(XREF 1S), 1.3(XREF 1K), 1.4(XREF 1S), 1.4(XREF 1K), 1.5(XREF 1S)
    1.5(XREF 1K), 1.6(XREF 1S), 1.6(XREF 1K), 1.7(XREF 1S), 1.7(XREF 1K), 1.8(XREF 1S), 1.8(XREF 1K)
    DG20NAME 1.1+1*!
    >> DIG .09(XREF 5n1.4), .09(XREF 6n1.4)
    >> DIH .09(XREF 5n1.4), .09(XREF 6n1.4)
    >> DIU .09(XREF 6S)
    DIV .09(XREF 5n1.4), .09(XREF 6S), .09(XREF 6n1.4)
    DIV(0 .09(XREF 5n1.4), .09(XREF 6S), .09(XREF 6n1.4)
    DT .03+1
    >> I .01+1*
    IVMX .09(XREF 4S), .09(XREF 4K)
    U .09(XREF 5n1.4), .09(XREF 6S), .09(XREF 6n1.4)
    X .01+1!*, .01(XREF 1S), .01(XREF 1K), .03+1*!, .03OT+1*, .03(XREF 1S), .03(XREF 1K), .09+1!, .09(XREF 1S), .09(XREF 1K)
    .09(XREF 2S), .09(XREF 2K), .09(XREF 3S), .09(XREF 3K), .09(XREF 4S), .09(XREF 4K), .09(XREF 5n1.4), .09(XREF 6S), .09(XREF 6n1.4), 1.1+1!*
    , 1.2+1!, 1.2DEL1+1, 1.3+1!, 1.3DEL1+1, 1.4+1!, 1.4DEL1+1, 1.5+1!, 1.5DEL1+1, 1.6DEL1+1, 1.7+1!
    , 1.8+1!, 1.9+1*!
    Y .01+1*, .03+1, .03OT+1*, .09(XREF 6S), 1.9+1
    Y(0 .03OT+1*, .09(XREF 6S)
    Y(1 .09(XREF 6S)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All