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  | 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: 3

Package Total Routines
Network Health Exchange 3 AFJXALRT    AFJXPNHX    AFJXPRE    

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
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields  | All