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

Package: IHS Patient

Global: ^AUPNVBB


Information

FileMan FileNo FileMan Filename Package
9000010.31 V BLOOD BANK IHS Patient

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Patient Care Component 2 APCDKBV    APCHS3F    
IHS Changes To Lab 1 BLRLUAC1    
Local Area Programs 1 AZAXDPM1    
Third Party Billing 1 ABMDVCK3    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V BLOOD BANK(#9000010.31)[1208]    

Pointer To FileMan Files, Total: 11

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    V BLOOD BANK(#9000010.31)[1208]    VISIT(#9000010)[.03]    
Lab Service 3 LABORATORY TEST(#60)[.01]    TOPOGRAPHY FIELD(#61)[1103]    FUNCTION FIELD(#61.3)[.05]    
Kernel 2 INSTITUTION(#4)[1701]    NEW PERSON(#200)[1202, 1204, 1217, 1219]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[1112, 1213]    

Fields, Total: 43

Field # Name Loc Type Details
.01 LAB TEST 0;1 POINTER TO LABORATORY TEST FILE (#60)
************************REQUIRED FIELD************************
LABORATORY TEST(#60)

  • LAST EDITED:  MAR 31, 1997
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTLAB")
  • CROSS-REFERENCE:  9000010.31^B
    1)= S ^AUPNVBB("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVBB("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.31^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.31^AATOO2^MUMPS
    1)= I $P(^AUPNVBB(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVBB("AA",$P(^AUPNVBB(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVBB(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVBB(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVBB("AA",$P(^AUPNVBB(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVBB(DA,0),U,3),0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.31^AETOO^MUMPS
    1)= I $P(^AUPNVBB(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVBB("AE",$P(^AUPNVBB(DA,0),U,2),(9999999-$P(+^AUPNVSIT($P(^AUPNVBB(DA,0),U,3),0),".",1)),X,DA)=""
    2)= I $P(^AUPNVBB(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVBB("AE",$P(^AUPNVBB(DA,0),U,2),(9999999-$P(+^AUPNVSIT($P(^AUPNVBB(DA,0),U,3),0),".",1)),X,DA)
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  JUN 06, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.31^AC
    1)= S ^AUPNVBB("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVBB("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.31^AATOO^MUMPS
    1)= I $P(^AUPNVBB(DA,0),U,3)]"" S ^AUPNVBB("AA",X,+^AUPNVBB(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVBB(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVBB(DA,0),U,3)]"" K ^AUPNVBB("AA",X,+^AUPNVBB(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVBB(DA,0),U,3),0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.31^AETOO2^MUMPS
    1)= I $P(^AUPNVBB(DA,0),U,3)]"" S ^AUPNVBB("AE",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVBB(DA,0),U,3),0),".",1)),+^AUPNVBB(DA,0),DA)=""
    2)= I $P(^AUPNVBB(DA,0),U,3)]"" K ^AUPNVBB("AE",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVBB(DA,0),U,3),0),".",1)),+^AUPNVBB(DA,0),DA)
  • CROSS-REFERENCE:  9000010.31^AOP2^MUMPS
    1)= I $P(^AUPNVBB(DA,0),U,3)]"",$P($G(^AUPNVBB(DA,12)),U,2)]"" S ^AUPNVBB("AOP",$P(^AUPNVBB(DA,12),U,2),X,9999999-$P(+^AUPNVSIT($P(^AUPNVBB(DA,0),U,3),0),"."),DA)=""
    2)= I $P(^AUPNVBB(DA,0),U,3),$P($G(^AUPNVBB(DA,12)),U,2) K ^AUPNVBB("AOP",$P(^AUPNVBB(DA,12),U,2),X,9999999-$P(+^AUPNVSIT($P(^AUPNVBB(DA,0),U,3),0),"."),DA)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVBB(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVBB(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.31^AD
    1)= S ^AUPNVBB("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVBB("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.31^AA^MUMPS
    1)= Q:$P(^AUPNVBB(DA,0),U,2)=""  S ^AUPNVBB("AA",$P(^AUPNVBB(DA,0),U,2),+^AUPNVBB(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVBB(DA,0),U,2)=""  K ^AUPNVBB("AA",$P(^AUPNVBB(DA,0),U,2),+^AUPNVBB(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.31^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
  • CROSS-REFERENCE:  9000010.31^AE^MUMPS
    1)= I $P(^AUPNVBB(DA,0),U,2)]"" S ^AUPNVBB("AE",$P(^AUPNVBB(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),+^AUPNVBB(DA,0),DA)=""
    2)= I $P(^AUPNVBB(DA,0),U,2)]"" K ^AUPNVBB("AE",$P(^AUPNVBB(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),+^AUPNVBB(DA,0),DA)
.04 RESULTS 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 31, 1997
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field contains the free text data of the blood bank test.
  • TECHNICAL DESCR:  
    This field contains the free text data of the tes.  Example: POS NEG  A B AB O etc.
.05 ANTIBODY 0;5 POINTER TO FUNCTION FIELD FILE (#61.3) FUNCTION FIELD(#61.3)

  • LAST EDITED:  MAR 28, 1997
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTABN")
    SOURCE OF DATA:   095/LRLOCE
.06 LR ACCESSION NO. 0;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<7) X
  • LAST EDITED:  DEC 08, 2004
  • HELP-PROMPT:  ANSWER MUST BE 7-14 CHARACTERS IN LENGTH
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTACC")
    SOURCE OF DATA:   095/LRSHVC
  • CROSS-REFERENCE:  9000010.31^ALR^MUMPS
    1)= I $P(^AUPNVBB(DA,0),U,3)]"" S ^AUPNVBB("ALR",$P(^AUPNVBB(DA,0),U,3),X,$P(^AUPNVBB(DA,0),U),DA)=""
    2)= I $P(^AUPNVBB(DA,0),U,3)]"" K ^AUPNVBB("ALR",$P(^AUPNVBB(DA,0),U,3),X,$P(^AUPNVBB(DA,0),U),DA)
  • CROSS-REFERENCE:  9000010.31^ALR0
    1)= S ^AUPNVBB("ALR0",$E(X,1,30),DA)=""
    2)= K ^AUPNVBB("ALR0",$E(X,1,30),DA)
.07 BB TEST NAME 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  MAR 31, 1997
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This field contains the blood bank test name used in the lab package.
  • TECHNICAL DESCR:  
    This field contains the blood bank test name used in the lab package.
1101 UNITS 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 06, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    UNITS OF MEASURE OF THIS PARTICULAR TEST
  • TECHNICAL DESCR:  
    This used to be stored with the results.  APCDALVR Variable = APCDALVR("APCDTUNI")
1102 ORDER 11;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 02, 1990
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTORD")
1103 SITE 11;3 POINTER TO TOPOGRAPHY FIELD FILE (#61) TOPOGRAPHY FIELD(#61)

  • INPUT TRANSFORM:  S:$G(BLRLINK)'=1 DIC("S")="I $D(^LAB(60,+^AUPNVBB(DA,0),1,Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 27, 1997
  • HELP-PROMPT:  Enter site the specimen was taken from for this lab test
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTSTE")
  • SCREEN:  S:$G(BLRLINK)'=1 DIC("S")="I $D(^LAB(60,+^AUPNVBB(DA,0),1,Y))"
  • EXPLANATION:  ALLOWS ONLY SITES ENTERED FOR THIS TEST IN FILE 60
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1104 REFERENCE LOW 11;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 06, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTRFL")
1105 REFERENCE HIGH 11;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 06, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTRFH")
1106 THERAPEUTIC LOW 11;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 06, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTTHL")
1107 THERAPEUTIC HIGH 11;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 06, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTTHH")
1108 SOURCE OF DATA INPUT 11;8 SET
  • '0' FOR NON-LAB;
  • '1' FOR LAB;

  • LAST EDITED:  MAR 24, 1994
  • HELP-PROMPT:  Entered by software only.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTSKI")
1109 CURRENT STATUS FLAG 11;9 SET
  • 'O' FOR ORDERED;
  • 'A' FOR ACCESSIONED;
  • 'R' FOR RESULTED;
  • 'M' FOR MODIFIED;
  • 'D' FOR DELETED;

  • LAST EDITED:  OCT 02, 1996
1110 LAB TEST COST 11;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<1) X
  • LAST EDITED:  OCT 03, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 9999999, 2 Decimal Digits
1111 BILLABLE ITEM 11;11 SET
  • '1' FOR YES;

  • LAST EDITED:  OCT 03, 1996
1112 ICD CODE 11;12 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  FEB 14, 2013
1201 COLLECTION DATE AND TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 04, 1993
  • HELP-PROMPT:  Enter date/time spemimen was collected.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCDT")
1202 ORDERING PROVIDER 12;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 28, 2000
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPRV")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))"
  • EXPLANATION:  Must be a provider.
  • CROSS-REFERENCE:  9000010.31^AOP^MUMPS
    1)= I $P(^AUPNVBB(DA,0),U,2),$P(^(0),U,3) S ^AUPNVBB("AOP",X,$P(^AUPNVBB(DA,0),U,2),9999999-$P(+^AUPNVSIT($P(^AUPNVBB(DA,0),U,3),0),"."),DA)=""
    2)= I $P(^AUPNVBB(DA,0),U,2),$P(^(0),U,3) K ^AUPNVBB("AOP",X,$P(^AUPNVBB(DA,0),U,2),9999999-$P(+^AUPNVSIT($P(^AUPNVBB(DA,0),U,3),0),"."),DA)
1203 CLINIC 12;3 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  APR 29, 1993
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCLN")
1204 ENCOUNTER PROVIDER 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 28, 2000
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEPR")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))"
  • EXPLANATION:  Must be a provider.
1208 PARENT 12;8 POINTER TO V BLOOD BANK FILE (#9000010.31) V BLOOD BANK(#9000010.31)

  • LAST EDITED:  FEB 28, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPNT")
1209 EXTERNAL KEY 12;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  SEP 25, 1996
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEXK")
1210 OUTSIDE PROVIDER NAME 12;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 25, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTOPR")
1211 ORDERING DATE 12;11 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 28, 2003
1213 ANCILLARY POV 12;13 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  SEP 19, 2003
1215 ORDERING LOCATION 12;15 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  FEB 19, 2008
1216 DATE/TIME ENTERED 12;16 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.31^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVBB(D0,12)):^(12),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.31,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVBB(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.31,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.31^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVBB(D0,12)):^(12),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000010.31,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVBB(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.31,DIG=1218 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT
    DELETE VALUE)= NO EFFECT
    FIELD)= #1218
1217 ENTERED BY 12;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the V BLOOD BANK File
1218 DATE/TIME LAST MODIFIED 12;18 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the V BLOOD BANK File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.31^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVBB(D0,12)):^(12),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.31,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVBB(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.31,DIG=1219 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1219
1219 LAST MODIFIED BY 12;19 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME LAST MODIFIED field of the V BLOOD BANK File
1301 COMMENT1 13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  SEP 29, 1994
  • HELP-PROMPT:  Answer must be 1-70 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTLC1")
1302 COMMENT2 13;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  SEP 29, 1994
  • HELP-PROMPT:  Answer must be 1-70 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTLC2")
1303 COMMENT3 13;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  SEP 29, 1994
  • HELP-PROMPT:  Answer must be 1-70 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTLC3")
1401 CPT PTR 14;1 POINTER TO IHS LAB CPT CODE FILE (#68.999999902)

  • LAST EDITED:  OCT 03, 1996
1402 CPT - BILLABLE ITEMS 14;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  OCT 03, 1996
  • HELP-PROMPT:  Answer must be 1-240 characters in length.
1601 LAB POV 16;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  FEB 14, 2013
  • HELP-PROMPT:  Answer must be 1-240 characters in length.
1701 RELEASING SITE 17;1 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAR 25, 2013
1702 SPECIMEN CONDITION 17;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  MAR 25, 2013
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
2601 SNOMED CT 26;0 Multiple #9000010.3126 9000010.3126
2701 LOINC CODES 27;0 Multiple #9000010.3127 9000010.3127
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All