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 |  Found Entries |  All
Print Page as PDF
Global: ^BYIMEXP

Package: IHS Immunizations Interface

Global: ^BYIMEXP


Information

FileMan FileNo FileMan Filename Package
90480.1 IZ EXPORTS IHS Immunizations Interface

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
IHS Immunizations Interface 2 BYIMD    BYIMIMM2    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
IHS Immunizations Interface 2 BYIMIMM2    BYIMIMM4    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IHS Patient 1 V IMMUNIZATION(#9000010.11)[.03]    
Registration 1 VA PATIENT(#2)[.01]    

Fields, Total: 4

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

  • LAST EDITED:  DEC 15, 2006
  • HELP-PROMPT:  Enter the name of the patient.
  • CROSS-REFERENCE:  90480.1^B
    1)= S ^BYIMEXP("B",$E(X,1,30),DA)=""
    2)= K ^BYIMEXP("B",$E(X,1,30),DA)
.02 EXPORT DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 21, 2007
  • HELP-PROMPT:  Enter the EXPORT DATE.
  • CROSS-REFERENCE:  90480.1^C
    1)= S ^BYIMEXP("C",$E(X,1,30),DA)=""
    2)= K ^BYIMEXP("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90480.1^AC^MUMPS
    1)= I $G(DA),X,+$G(^BYIMEXP(DA,0)) S ^BYIMEXP("AC",+^(0),X,DA)=""
    2)= I $G(DA),X,+$G(^BYIMEXP(DA,0)) K ^BYIMEXP("AC",+^(0),X,DA)
.03 V IMMUNIZATION 0;3 POINTER TO V IMMUNIZATION FILE (#9000010.11) V IMMUNIZATION(#9000010.11)

  • LAST EDITED:  APR 30, 2012
  • HELP-PROMPT:  Enter the V IMMUNIZATION entry.
  • CROSS-REFERENCE:  90480.1^D^MUMPS
    1)= I $G(DA),$P($G(^BYIMEXP(DA,0)),U,4)="E" S ^BYIMEXP("D",X,DA)=""
    2)= I $G(DA),$P($G(^BYIMEXP(DA,0)),U,4)="E" K ^BYIMEXP("D",X,DA)
.04 EXPORT OR IMPORT 0;4 SET
  • 'E' FOR EXPORT;
  • 'I' FOR IMPORT;

  • LAST EDITED:  OCT 30, 2012
  • CROSS-REFERENCE:  90480.1^DT00^MUMPS
    1)= I X="E",$G(DA),$P($G(^BYIMEXP(DA,0)),U,3) S ^BYIMEXP("D",$P(^(0),U,3),DA)=""
    2)= I X="E",$G(DA),$P($G(^BYIMEXP(DA,0)),U,3) K ^BYIMEXP("D",$P(^(0),U,3),DA)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All