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

Package: Patient Care Component

Global: ^APCLVSTS


Information

FileMan FileNo FileMan Filename Package
9001003.7 PCC MAN REPORTS VISIT SORT Patient Care Component

Description

Directly Accessed By Routines, Total: 27

Package Total Routines
Patient Care Component Reports 18 APCLFPC1    APCLFPCP    APCLFPR1    APCLFPRP    APCLGV    APCLRPL1    APCLTEN1    APCLTENP
APCLVL0    APCLVL01    APCLVL1    APCLVL4    APCLVL5    APCLVL6    APCLVLP    APCLVLP1
APCLVLP8    APCLVLS    
Patient Care Component 7 BJPC2ENP    BJPC2P1    BJPC2P11    BJPC2P3    BJPC2P5    BJPC2P6    BJPC2P7    
IHS Designated Provider 1 BDPNODP    
iCare 1 BQIPLADR    

Accessed By FileMan Db Calls, Total: 16

Package Total Routines
Patient Care Component Reports 9 APCL3P21    APCLP13    APCLP14    APCLP15    APCLP16    APCLP17    APCLP18    APCLP19
APCLP20    
Patient Care Component 7 BJPC1EC1    BJPC2ENP    BJPC2P1    BJPC2P11    BJPC2P3    BJPC2P5    BJPC2P7    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Patient Care Component 1 PCC MAN REPORTS VISIT REPORT TEMP(#9001003.8)[.07, #9001003.81101(.01), #9001003.81102(.01)]

Pointer To FileMan Files, Total: 11

Package Total FileMan Files
Utility Tables 5 CONTRACEPTIVE METHODS(#99999.11)[999925]    EXAM(#9999999.15)[999921]    HEALTH FACTORS(#9999999.64)[99991, 99992, 99993, 99994, 99997, 99998, 99999, 999910, 999911, 999917, 999924]
IMMUNIZATION LOT(#9999999.41)[999913]    LANGUAGES(#9999999.99)[999923]    
Case Management System 1 CMS REGISTER TYPE(#9002241.1)[999912]    
Patient Care Component 1 PCC MAN REPORTS GEN GROUPS(#9001201)[.15]    
Registration 1 RACE(#10)[999926]    
Scheduling 1 HOSPITAL LOCATION(#44)[999916]    
Text Integration Utility 1 TIU DOCUMENT DEFINITION(#8925.1)[999919]    
VA Fileman 1 FILE(#1)[90182.2]    

Fields, Total: 58

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 08, 1993
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
.01 ITEM 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 02, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  9001003.7^B
    1)= S ^APCLVSTS("B",$E(X,1,30),DA)=""
    2)= K ^APCLVSTS("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9001003.7^U^MUMPS
    1)= S ^APCLVSTS("U",$$UP^XLFSTR(X),DA)=""
    2)= K ^APCLVSTS("U",$$UP^XLFSTR(X),DA)
.02 TYPE 0;2 SET
  • 'Q' FOR QMAN;
  • 'R' FOR READER;
  • 'D' FOR DATE RANGE;
  • 'N' FOR NUMERIC;
  • 'F' FOR FREE TEXT RANGE;
  • 'Y' FOR YES/NO;
  • 'W' FOR WORD PROCESSING;
  • 'J' FOR JUST A HIT, NO INTERACTION;
  • 'T' FOR TEXT, ONE ENTRY;
  • 'C' FOR CONTAINS;
  • 'S' FOR SPECIAL;

  • LAST EDITED:  JUN 21, 2005
.021 INPUT TX FOR FREE TEXT 21;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  AUG 10, 1994
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
.022 HELP PROMPT FOR FREE TEXT 22;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  AUG 10, 1994
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
.025 INPUT TX FOR NUMERIC 25;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  AUG 10, 1994
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
.026 HELP PROMPT FOR NUMERIC 26;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  AUG 10, 1994
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
.027 DIR ? FOR NUMERIC 27;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  OCT 27, 2003
  • HELP-PROMPT:  Answer must be 1-70 characters in length.
.028 PROMPT FOR NUMERIC 28;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  OCT 27, 2003
  • HELP-PROMPT:  Answer must be 1-70 characters in length.
.03 QMAN TERM 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  SEP 20, 1993
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
.04 FILE,FIELD FOR DIR/DIQ 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
.05 PRINT/SELECT/SORT 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  MAY 09, 1994
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
.06 COLUMN HEADER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 21, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
.07 SUGGESTED COLUMN WIDTH 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>80)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  Type a Number between 1 and 80, 0 Decimal Digits
.08 MULT LOGIC 0;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 21, 1993
.09 ORDER ON MENU 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<1)!(X?.E1"."3N.N) X
  • LAST EDITED:  APR 14, 2003
  • HELP-PROMPT:  Type a Number between 1 and 999.99, 2 Decimal Digits
  • CROSS-REFERENCE:  9001003.7^C
    1)= S ^APCLVSTS("C",$E(X,1,30),DA)=""
    2)= K ^APCLVSTS("C",$E(X,1,30),DA)
.11 PATIENT/VISIT 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  DEC 29, 1993
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
.12 PRINT MENU HEADER 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>21!($L(X)<3) X
  • LAST EDITED:  JAN 31, 2002
  • HELP-PROMPT:  Answer must be 3-21 characters in length.
.13 MULT ITEM SELECT/PRINT 0;13 SET
  • '1' FOR YES;

  • LAST EDITED:  OCT 13, 2003
.14 LAB/LOINC? 0;14 SET
  • '1' FOR YES;

  • LAST EDITED:  JUN 21, 2005
.15 GROUP 0;15 POINTER TO PCC MAN REPORTS GEN GROUPS FILE (#9001201) PCC MAN REPORTS GEN GROUPS(#9001201)

  • LAST EDITED:  AUG 11, 2008
1 SCREEN LOGIC 1;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  SEP 21, 1993
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
2 TRANSLATION LOGIC 2;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  SEP 09, 1993
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
3 PRINT LOGIC 3;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
4 SORT LOGIC 4;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  OCT 04, 1994
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
5 SPECIAL TYPE 5;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  JUN 21, 2005
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
1100 HELP FOR ITEM 11;0 WORD-PROCESSING #9001003.711
90182.1 CANNOT BE USED QSC 90182;1 SET
  • '1' FOR CANNOT BE USED;

  • LAST EDITED:  MAR 29, 2001
90182.2 UNIQUE ID FILE 90182;2 POINTER TO FILE FILE (#1) FILE(#1)

  • LAST EDITED:  MAR 29, 2001
90182.3 UNIQUE ID FIELD 90182;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAR 29, 2001
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
90182.4 XREF FOR LOOKUP 90182;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  APR 06, 2001
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
90192.5 QMAN TAXONOMY ITEM 90182;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 04, 2001
99991 Tobacco (Smoking) HF 9999;1 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AUTTHF(Y,0),U,10)=""F"",$P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)[""TOBACCO (""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 01, 2010
  • SCREEN:  S DIC("S")="I $P(^AUTTHF(Y,0),U,10)=""F"",$P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)[""TOBACCO ("""
  • EXPLANATION:  Must be a health factor in the one of the categories TOBACCO (SMOKING), TOBACCO (SMOKELESS - CHEWING/DIP) or TOBACCO (EXPOSURE).
99992 TB Status Health Factor 9999;2 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""TB STATUS""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 06, 2002
  • SCREEN:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""TB STATUS"""
  • EXPLANATION:  Must be a TB STATUS health factor.
99993 ALCOHOL/DRUG Health Factor 9999;3 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""ALCOHOL/DRUG""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 06, 2002
  • SCREEN:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""ALCOHOL/DRUG"""
  • EXPLANATION:  Must be a ALCOHOL/DRUG health factor.
99994 STAGED DIABETES MANAGEMENT HF 9999;4 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""STAGED DIABETES MANAGEMENT""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 06, 2002
  • SCREEN:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""STAGED DIABETES MANAGEMENT"""
  • EXPLANATION:  Must be a STAGED DIABETES MANAGEMENT health factor.
99995 VETERAN Y/N? 9999;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 20, 2002
99996 DAY OF WEEK 9999;6 SET
  • '0' FOR SUNDAY;
  • '1' FOR MONDAY;
  • '2' FOR TUESDAY;
  • '3' FOR WEDNESDAY;
  • '4' FOR THURSDAY;
  • '5' FOR FRIDAY;
  • '6' FOR SATURDAY;

  • LAST EDITED:  FEB 11, 2005
99997 Barriers to Learning HF 9999;7 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""BARRIERS TO LEARNING""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 04, 2005
  • SCREEN:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""BARRIERS TO LEARNING"""
  • EXPLANATION:  Must be a Barriers to Learning Health Factor.
99998 Learning Preference HF 9999;8 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""LEARNING PREFERENCE""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 04, 2005
  • SCREEN:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""LEARNING PREFERENCE"""
  • EXPLANATION:  Must be a Learning Preference Health Factor.
99999 Barriers to Learning HF 9999;9 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""READINESS TO LEARN""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 04, 2005
  • SCREEN:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""READINESS TO LEARN"""
  • EXPLANATION:  Must be a Readiness to Learn Health Factor.
999910 Rubella Status Health Factor 9999;10 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3)=$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""RUBELLA IMMUNITY STATUS""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 04, 2005
  • SCREEN:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3)=$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""RUBELLA IMMUNITY STATUS"""
  • EXPLANATION:  Must be a Rubella Immunity Status Health Factor.
999911 HEALTH FACTOR CATEGORY 9999;11 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^AUTTHF(Y,0),U,13),$P(^AUTTHF(Y,0),U,10)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 01, 2010
  • SCREEN:  S DIC("S")="I '$P(^AUTTHF(Y,0),U,13),$P(^AUTTHF(Y,0),U,10)=""C"""
  • EXPLANATION:  Must be a health factor category.
999912 CMS REGISTER 9999;12 POINTER TO CMS REGISTER TYPE FILE (#9002241.1) CMS REGISTER TYPE(#9002241.1)

  • LAST EDITED:  AUG 13, 2007
999913 IMMUNIZATION LOT 9999;13 POINTER TO IMMUNIZATION LOT FILE (#9999999.41) IMMUNIZATION LOT(#9999999.41)

  • LAST EDITED:  OCT 02, 2007
999914 PCC RELATIONSHIP 9999;14 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  JUN 03, 2008
  • SCREEN:  S DIC("S")="I $P($G(^(21)),U,1)"
  • EXPLANATION:  Must be a family history relationship.
999916 APPOINTMENT CLINIC 9999;16 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^SC(Y,0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 24, 2008
  • SCREEN:  S DIC("S")="I $P(^SC(Y,0),U,3)=""C"""
  • EXPLANATION:  Must be a clinic type of hospital location.
999917 ACTIVITY LEVEL Health Factor 9999;17 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""ACTIVITY LEVEL""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 18, 2009
  • SCREEN:  S DIC("S")="I $P(^AUTTHF(Y,0),U,3),$P(^AUTTHF($P(^AUTTHF(Y,0),U,3),0),U)=""ACTIVITY LEVEL"""
  • EXPLANATION:  Must be an ACTIVITY LEVEL health factor.
999918 STAGE 9999;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 11, 2009
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
999919 TIU DOCUMENT TITLE 9999;19 POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1) TIU DOCUMENT DEFINITION(#8925.1)

  • LAST EDITED:  JUN 19, 2009
999920 IMMUNIZATION REGISTER STATUS 9999;20 SET
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVE;

  • LAST EDITED:  SEP 17, 2009
999921 EXAM 9999;21 POINTER TO EXAM FILE (#9999999.15) EXAM(#9999999.15)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)'=40" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 12, 2009
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)'=40"
  • EXPLANATION:  Any exam except Nutrition Screening. Nutrition screening has it's own item.
999922 INDIAN BLOOD QUANTUM 9999;22 FREE TEXT

  • INPUT TRANSFORM:  D QUANTUM^AUPNPED
  • LAST EDITED:  DEC 14, 2009
  • HELP-PROMPT:  Enter fraction of Indian blood, in the form numerator / denominator, or enter F, FULL, N, NONE, UNK, UNKNOWN, UNS, UNSPECIFIED.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
999923 LANGUAGE 9999;23 POINTER TO LANGUAGES FILE (#9999999.99) LANGUAGES(#9999999.99)

  • LAST EDITED:  JUN 10, 2010
999924 Tobacco (Smokeless) HF 90182;6 POINTER TO HEALTH FACTORS FILE (#9999999.64) HEALTH FACTORS(#9999999.64)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AUTTHF(Y,0),U,10)=""F"",$$VAL^XBDIQ1(9999999.64,Y,.01)=""TOBACCO (SMOKELESS - CHEWING/DIP)""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 01, 2010
  • SCREEN:  S DIC("S")="I $P(^AUTTHF(Y,0),U,10)=""F"",$$VAL^XBDIQ1(9999999.64,Y,.01)=""TOBACCO (SMOKELESS - CHEWING/DIP)"""
  • EXPLANATION:  Must be a health factor in the TOBACCO (SMOKELESS - CHEWING/DIP) category.
999925 CONTRACEPTIVE METHOD 9999;25 POINTER TO CONTRACEPTIVE METHODS FILE (#99999.11) CONTRACEPTIVE METHODS(#99999.11)

  • LAST EDITED:  AUG 09, 2011
999926 RACE 9999;26 POINTER TO RACE FILE (#10) RACE(#10)

  • LAST EDITED:  JUN 19, 2013
999927 HOMELESS 9999;27 SET
  • 'H' FOR HOMELESS;
  • 'N' FOR NOT HOMELESS;
  • 'R' FOR NOT RECORDED;

  • LAST EDITED:  JAN 19, 2017
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All