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 |  Pointed To By FileMan Files |  Fields |  All
Print Page as PDF
Global: ^BIELIG

Package: Immunization Tracking

Global: ^BIELIG


Information

FileMan FileNo FileMan Filename Package
9002084.83 BI TABLE ELIGIBILITY CODES Immunization Tracking

Description

Directly Accessed By Routines, Total: 6

Package Total Routines
Immunization Tracking 4 BIELIG    BIELIG1    BIREPE3    BIUTL8    
GUI Objects 1 BGOVIMM2    
IHS Electronic Health Record 1 BEHOENP1    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
GUI Objects 1 BGOVIMM    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
IHS Patient 1 V IMMUNIZATION(#9000010.11)[.14]    
Immunization Tracking 1 BI V IMMUNIZATIONS DELETED(#9002084.118)[.14]    

Fields, Total: 5

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

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X
  • LAST EDITED:  AUG 08, 2012
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • CROSS-REFERENCE:  9002084.83^B
    1)= S ^BIELIG("B",$E(X,1,30),DA)=""
    2)= K ^BIELIG("B",$E(X,1,30),DA)
.02 LABEL-TEXT OF CODE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  AUG 30, 2012
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • CROSS-REFERENCE:  9002084.83^C
    1)= S ^BIELIG("C",$E(X,1,30),DA)=""
    2)= K ^BIELIG("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002084.83^U^MUMPS
    1)= D UPXREF^BIUTL5(X,"^BIELIG(")
    2)= D KUPXREF^BIUTL5(X,"^BIELIG(")
.03 ACTIVE 0;3 SET
  • '0' FOR ACTIVE;
  • '1' FOR INACTIVE;

  • LAST EDITED:  SEP 05, 2012
  • HELP-PROMPT:  Enter A for Active if this code should available when adding immunizations. If not, enter I for Inactive.
  • CROSS-REFERENCE:  9002084.83^AC^MUMPS
    1)= S ^BIELIG("AC",X,$P(^BIELIG(DA,0),"^",1),DA)=""
    2)= K ^BIELIG("AC",X,$P(^BIELIG(DA,0),"^",1),DA)
.04 LOCAL TEXT 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  SEP 05, 2012
  • HELP-PROMPT:  Enter a locally meaningful Label for this Eligibility Code (up to 20 characters).
  • CROSS-REFERENCE:  9002084.83^D
    1)= S ^BIELIG("D",$E(X,1,30),DA)=""
    2)= K ^BIELIG("D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9002084.83^E^MUMPS
    1)= D UPXREF^BIUTL5(X,"^BIELIG(")
    2)= D KUPXREF^BIUTL5(X,"^BIELIG(")
.05 REPORT ABBREVIATION 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  SEP 13, 2012
  • HELP-PROMPT:  Enter an abbreviation for this Code that will display on the Report (up to 9 characters).
  • CROSS-REFERENCE:  9002084.83^F
    1)= S ^BIELIG("F",$E(X,1,30),DA)=""
    2)= K ^BIELIG("F",$E(X,1,30),DA)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  All