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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^BIPCD

Package: Immunization Tracking

Global: ^BIPCD


Information

FileMan FileNo FileMan Filename Package
9002084.115 BI PATIENT CONTRAINDICATIONS DELETED Immunization Tracking

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Immunization Tracking 1 BIRPC4    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.01]    
Immunization Tracking 1 BI TABLE CONTRA REASON(#9002084.81)[.03]    
Kernel 1 NEW PERSON(#200)[2.01]    
Utility Tables 1 IMMUNIZATION(#9999999.14)[.02]    

Fields, Total: 8

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

  • LAST EDITED:  MAR 10, 1998
  • HELP-PROMPT:  Select the patient whose contraindication you wish to enter.
  • CROSS-REFERENCE:  9002084.115^B
    1)= S ^BIPCD("B",$E(X,1,30),DA)=""
    2)= K ^BIPCD("B",$E(X,1,30),DA)
.02 VACCINE 0;2 POINTER TO IMMUNIZATION FILE (#9999999.14) IMMUNIZATION(#9999999.14)

  • LAST EDITED:  DEC 23, 1998
  • HELP-PROMPT:  Select the vaccine for which this patient has a contraindication.
  • CROSS-REFERENCE:  9002084.115^AC^MUMPS
    1)= S ^BIPCD("AC",+^BIPCD(DA,0),$E(X,1,30),DA)=""
    2)= K ^BIPCD("AC",+^BIPCD(DA,0),$E(X,1,30),DA)
.03 REASON FOR CONTRAINDICATION 0;3 POINTER TO BI TABLE CONTRA REASON FILE (#9002084.81) BI TABLE CONTRA REASON(#9002084.81)

  • LAST EDITED:  FEB 23, 1998
  • HELP-PROMPT:  Select the reason this vaccine is contraindicated for this patient.
.04 DATE NOTED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 27, 1998
  • HELP-PROMPT:  Enter the date on which this Contraindication was noted.
2.01 CONTRAINDICATION DELETED BY 2;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 18, 2013
2.02 DATE/TIME CONTRAIND DELETED 2;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 18, 2013
2.03 REASON CONTRAIND DELETED 2;3 SET
  • 'd' FOR Duplicate;
  • 'e' FOR Entered in Error;
  • 'o' FOR Other;

  • LAST EDITED:  FEB 18, 2013
2.04 REASON IF OTHER 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<2) X
  • LAST EDITED:  FEB 18, 2013
  • HELP-PROMPT:  Answer must be 2-100 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All