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: ^DVB(396.2

Package: Automated Medical Information Exchange

Global: ^DVB(396.2


Information

FileMan FileNo FileMan Filename Package
396.2 AMIE REPORT Automated Medical Information Exchange

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
Automated Medical Information Exchange 10 ^DVB(396.2    ^DVB(396.95    DVBAALRT    DVBAB82    DVBADSCK    DVBADSNT    DVBADSR1    DVBADSRP
DVBANDCU    DVBARPUR    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Automated Medical Information Exchange 5 DVBADSCK    DVBADSNT    DVBADSR1    DVBANDCU    DVBARPUR    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[5]    
Registration 1 PATIENT(#2)[.01]    

Fields, Total: 7

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

  • HELP-PROMPT:  Pointer to patient file for DFN
  • DESCRIPTION:  
    Name of the Patient.
  • TECHNICAL DESCR:  
    Pointer to the Patient File.
  • CROSS-REFERENCE:  396.2^B
    1)= S ^DVB(396.2,"B",$E(X,1,30),DA)=""
    2)= K ^DVB(396.2,"B",$E(X,1,30),DA)
1 7132 ADMISSION DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 18, 1992
  • HELP-PROMPT:  This field is generated by the Notice of Discharge program.
  • DESCRIPTION:  
    This field holds the date of admission for a veteran. It is used when printing Notices of Discharge.
  • TECHNICAL DESCR:  
    Entered by the routine DVBADSCK.
  • CROSS-REFERENCE:  396.2^D^MUMPS
    1)= S DVBADFN=$P(^DVB(396.2,DA,0),U,1) S ^DVB(396.2,"D",$E(X,1,30),DVBADFN,DA)="" K DVBADFN
    2)= S DVBADFN=$P(^DVB(396.2,DA,0),U,1) K ^DVB(396.2,"D",$E(X,1,30),DVBADFN,DA),DVBADFN
    This cross reference orders 7132 Admission Dates by date then patient.
2 7132 ADMISSION POINTER 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 22, 1991
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    Pointer to the Patient Movement file.
3 7132 STATUS 0;4 SET
  • 'P' FOR PRINTED;
  • 'R' FOR READY TO PRINT;

  • HELP-PROMPT:  Status of the notice of discharge.
  • DESCRIPTION:  
    The print status of the Notice of Discharge Record.
  • TECHNICAL DESCR:  
    Set by the Notice of Discharge checking routine and the Notice of Discharge print routine.
  • CROSS-REFERENCE:  396.2^C^MUMPS
    1)= S DVBADFN=$P(^DVB(396.2,DA,0),U,1),XLOC=$P(^(0),U,7) Q:XLOC="" S ^DVB(396.2,"C",XLOC,$E(X,1,30),DA)="" K DVBADFN,XLOC
    2)= S DVBADFN=$P(^DVB(396.2,DA,0),U,1),XLOC=$P(^(0),U,7) Q:XLOC="" K ^DVB(396.2,"C",XLOC,$E(X,1,30),DA),XLOC,DVBADFN
    This cross reference orders 7132s by routing location and status.
3.5 7132 ROUTING LOCATION 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3)!'(X?3N.AN) X
  • LAST EDITED:  MAY 03, 2011
  • HELP-PROMPT:  This field contains the patient's claim folder location (i.e. station number).
  • DESCRIPTION:  
    Holds the Patient File Claim Folder Location from which a Notice of Discharge was generated for the patient.
  • TECHNICAL DESCR:  
    This field value must match the user's Station Number from the Institution file for the user to be able to print the Notice of Discharge.
4 DATE 7132 PRINTED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Date printed by the RO.
  • DESCRIPTION:  
    This field contains the date the Notice of Discharge was originally printed.
  • TECHNICAL DESCR:  
    Set by the routine DVBADSNT.
5 7132 PRINTED BY 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 28, 1993
  • HELP-PROMPT:  Name of person who printed the notice of discharge.
  • DESCRIPTION:  
    Indicates the name of the person who originally printed the Notice of Discharge.
  • TECHNICAL DESCR:  
    Contains the DUZ of the person who printed the Notice of Discharge with the routine DVBADSNT.

External References

Name Field # of Occurrence
^%DT 1+1, 4+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DVB(396.2 - [#396.2] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 3(XREF 1S), 3(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 1+1*, 4+1*
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K)
DVBADFN 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K)
U 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K)
X .01(XREF 1S), .01(XREF 1K), 1+1*!, 1(XREF 1S), 1(XREF 1K), 2+1!, 3(XREF 1S), 3(XREF 1K), 3.5+1!, 4+1*!
XLOC 3(XREF 1S), 3(XREF 1K)
>> Y 1+1, 4+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