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: ^AFJ(537000

Package: Network Health Exchange

Global: ^AFJ(537000


Information

FileMan FileNo FileMan Filename Package
537000 VAMC NETWORK HEALTH EXCHANGE Network Health Exchange

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Network Health Exchange 5 AFJXPNHX    ^AFJ(537000    AFJXALRT    AFJXPRE    ^AFJ(537025    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Network Health Exchange 5 AFJXALRT    AFJXPNHX    AFJXPRE    AFJXWCLI    AFJXWCP1    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
MailMan 1 DOMAIN(#4.2)[8]    

Fields, Total: 11

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  JAN 11, 1993
  • HELP-PROMPT:  MAIL MESSAGE NUMBER OF REQUESTING FACILITY
  • DESCRIPTION:  
    This is the message number from the requesting facility.
  • CROSS-REFERENCE:  537000^B
    1)= S ^AFJ(537000,"B",$E(X,1,30),DA)=""
    2)= K ^AFJ(537000,"B",$E(X,1,30),DA)
1 DATE/TIME RECEIVED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 27, 1994
  • DESCRIPTION:  
    DATE REQUEST WAS MADE.
  • CROSS-REFERENCE:  537000^D
    1)= S ^AFJ(537000,"D",$E(X,1,30),DA)=""
    2)= K ^AFJ(537000,"D",$E(X,1,30),DA)
    DATE OF REQUEST
2 REQUEST TYPE 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  MAY 07, 1993
  • HELP-PROMPT:  ALL DATA OR JUST PHARMACY AND BRIEF
  • DESCRIPTION:  
    TYPE OF REQUEST: TOTAL (ALL) OR PHARMACY DATA AND ALSO BRIEF DISPLAY OF DATA
3 PATIENT SSN 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<9) X
  • LAST EDITED:  MAY 10, 1993
  • HELP-PROMPT:  SSN, ALLOWS FOR DASHES
  • DESCRIPTION:  
    PATIENT'S SSN. MUST BE IN YOUR PATIENT FILE
  • CROSS-REFERENCE:  537000^F
    1)= S ^AFJ(537000,"F",$E(X,1,30),DA)=""
    2)= K ^AFJ(537000,"F",$E(X,1,30),DA)
    SSN
6 REQUESTOR DUZ 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  JAN 11, 1993
  • HELP-PROMPT:  REQUESTOR'S DUZ
  • DESCRIPTION:  
    DUZ OF REQUESTOR
7 REQUESTOR NAME 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  MAR 16, 1995
  • HELP-PROMPT:  NAME OF REQUESTOR
  • DESCRIPTION:  
    NAME OF REQUESTOR
  • CROSS-REFERENCE:  537000^E
    1)= S ^AFJ(537000,"E",$E(X,1,30),DA)=""
    2)= K ^AFJ(537000,"E",$E(X,1,30),DA)
8 REQUESTING PLACE 1;1 POINTER TO DOMAIN FILE (#4.2) DOMAIN(#4.2)

  • LAST EDITED:  NOV 15, 2001
  • HELP-PROMPT:  Enter the domain where the request originated.
  • DESCRIPTION:  
    FACILITY REQUESTING DATA
  • CROSS-REFERENCE:  537000^C
    1)= S ^AFJ(537000,"C",$E(X,1,30),DA)=""
    2)= K ^AFJ(537000,"C",$E(X,1,30),DA)
    REQUESTING PLACE FOR PATIENT DATA
9 PATIENT DATA FOUND? 1;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 01, 1994
  • HELP-PROMPT:  WAS THE DATA FOUND?
  • DESCRIPTION:  
    WAS THIS DATA FOUND SUCESSFULLY. AUDITED
10 SENSITIVE PATIENT? 1;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 31, 1993
  • HELP-PROMPT:  WAS THIS SENSITIVE PATIENT, IF SO SENDS BULLETIN TO ISO
  • DESCRIPTION:  
    IS THIS A SENSITIVE PATIENT? IF SO, SENDS BULLETIN TO SECURITY OFFICER.
11 OUTGOING REQUEST? 1;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  SEP 07, 1993
12 DATE/TIME COMPLETED 1;6 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 27, 1994

External References

Name Field # of Occurrence
^%DT 1+1, 12+1
EN^DDIOL IDW1+1, IDW3+1, IDW7+1, IDW8+1
$$GET1^DIQ IDW8+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AFJ(537000 - [#537000] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 8(XREF 1S), 8(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 IDW1+1, IDW3+1, IDW7+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 1+1*, 12+1*
AX IDW1+1~*
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 7(XREF 1S), 7(XREF 1K), 8(XREF 1S), 8(XREF 1K)
U IDW1+1, IDW3+1, IDW7+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1*!, 1(XREF 1S), 1(XREF 1K), 2+1!, 3+1!, 3(XREF 1S), 3(XREF 1K)
, 6+1!, 7+1!, 7(XREF 1S), 7(XREF 1K), 8(XREF 1S), 8(XREF 1K), 12+1*!
>> Y IDW8+1, 1+1, 12+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