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

Package: IHS Patient

Global: ^AUPNVMIC


Information

FileMan FileNo FileMan Filename Package
9000010.25 V MICROBIOLOGY IHS Patient

Description

Directly Accessed By Routines, Total: 61

Package Total Routines
IHS GPRA Information System 45 BGP0C3X    BGP0CU3    BGP0D53    BGP0D83    BGP0D84    BGP1C3X    BGP1CU3    BGP1D53
BGP1D83    BGP1D84    BGP2C3X    BGP2CU3    BGP2D53    BGP2D83    BGP2D84    BGP3C3X
BGP3CU3    BGP3D53    BGP3D83    BGP3D84    BGP4D53    BGP4D83    BGP4D84    BGP5D53
BGP5D83    BGP5D84    BGP6C3    BGP6D53    BGP6D83    BGP6D84    BGP7C3    BGP7D53
BGP7D83    BGP7D84    BGP8C3X    BGP8CU3    BGP8D53    BGP8D83    BGP8D84    BGP9C3X
BGP9CU3    BGP9D53    BGP9D83    BGP9D84    BGPMUUT5    
iCare 8 BQICAEXP    BQICAHLO    BQICAUTL    BQICAVAL    BQITDLAB    BQITRUT1    BQITRUT2    BQITRUTL
IHS Changes To Lab 2 BLRLUAC1    BLRREFLA    
Patient Care Component 2 APCDKMV    APCHS3E    
Local Area Programs 1 AZAXDPM1    
Mental Health Social Services 1 AMHSC1    
Patient Chart 1 BPCSC1    
Third Party Billing 1 ABMDVCK3    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
IHS Changes To ADT 1 BDGCPT    
IHS Changes To Lab 1 BLRREFLA    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V MICROBIOLOGY(#9000010.25)[1208]    

Pointer To FileMan Files, Total: 15

Package Total FileMan Files
Lab Service 6 LABORATORY TEST(#60)[.01]    TOPOGRAPHY FIELD(#61)[1103]    ETIOLOGY FIELD(#61.2)[.04]    COLLECTION SAMPLE(#62)[.08]    ANTIMICROBIAL SUSCEPTIBILITY(#62.06)[.05]    LAB LOINC(#95.3)[1113]    
IHS Patient 3 PATIENT(#9000001)[.02]    V MICROBIOLOGY(#9000010.25)[1208]    VISIT(#9000010)[.03]    
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]    
IHS Changes To Lab 1 IHS LAB CPT CODE(#9009021)[1401]    

Fields, Total: 48

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

  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTLAB")
  • CROSS-REFERENCE:  9000010.25^B
    1)= S ^AUPNVMIC("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVMIC("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.25^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.25^AATOO2^MUMPS
    1)= I $P(^AUPNVMIC(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVMIC("AA",$P(^AUPNVMIC(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVMIC(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVMIC(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVMIC("AA",$P(^AUPNVMIC(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVMIC(DA,0),U,3),0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.25^AETOO^MUMPS
    1)= I $P(^AUPNVMIC(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVMIC("AE",$P(^AUPNVMIC(DA,0),U,2),(9999999-$P(+^AUPNVSIT($P(^AUPNVMIC(DA,0),U,3),0),".",1)),X,DA)=""
    2)= I $P(^AUPNVMIC(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVMIC("AE",$P(^AUPNVMIC(DA,0),U,2),(9999999-$P(+^AUPNVSIT($P(^AUPNVMIC(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.25^AC
    1)= S ^AUPNVMIC("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVMIC("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.25^AATOO^MUMPS
    1)= I $P(^AUPNVMIC(DA,0),U,3)]"" S ^AUPNVMIC("AA",X,+^AUPNVMIC(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVMIC(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVMIC(DA,0),U,3)]"" K ^AUPNVMIC("AA",X,+^AUPNVMIC(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVMIC(DA,0),U,3),0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.25^AETOO2^MUMPS
    1)= I $P(^AUPNVMIC(DA,0),U,3)]"" S ^AUPNVMIC("AE",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVMIC(DA,0),U,3),0),".",1)),+^AUPNVMIC(DA,0),DA)=""
    2)= I $P(^AUPNVMIC(DA,0),U,3)]"" K ^AUPNVMIC("AE",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVMIC(DA,0),U,3),0),".",1)),+^AUPNVMIC(DA,0),DA)
  • CROSS-REFERENCE:  9000010.25^AOP2^MUMPS
    1)= I $P(^AUPNVMIC(DA,0),U,3)]"",$P($G(^AUPNVMIC(DA,12)),U,2)]"" S ^AUPNVMIC("AOP",$P(^AUPNVMIC(DA,12),U,2),X,9999999-$P(+^AUPNVSIT($P(^AUPNVMIC(DA,0),U,3),0),"."),DA)=""
    2)= I $P(^AUPNVMIC(DA,0),U,3),$P($G(^AUPNVMIC(DA,12)),U,2) K ^AUPNVMIC("AOP",$P(^AUPNVMIC(DA,12),U,2),X,9999999-$P(+^AUPNVSIT($P(^AUPNVMIC(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(^AUPNVMIC(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(^AUPNVMIC(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.25^AD
    1)= S ^AUPNVMIC("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVMIC("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.25^AA^MUMPS
    1)= Q:$P(^AUPNVMIC(DA,0),U,2)=""  S ^AUPNVMIC("AA",$P(^AUPNVMIC(DA,0),U,2),+^AUPNVMIC(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVMIC(DA,0),U,2)=""  K ^AUPNVMIC("AA",$P(^AUPNVMIC(DA,0),U,2),+^AUPNVMIC(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.25^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
  • CROSS-REFERENCE:  9000010.25^AE^MUMPS
    1)= I $P(^AUPNVMIC(DA,0),U,2)]"" S ^AUPNVMIC("AE",$P(^AUPNVMIC(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),+^AUPNVMIC(DA,0),DA)=""
    2)= I $P(^AUPNVMIC(DA,0),U,2)]"" K ^AUPNVMIC("AE",$P(^AUPNVMIC(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),+^AUPNVMIC(DA,0),DA)
.04 ORGANISM 0;4 POINTER TO ETIOLOGY FIELD FILE (#61.2) ETIOLOGY FIELD(#61.2)

  • LAST EDITED:  OCT 03, 1996
.05 ANTIBIOTIC 0;5 POINTER TO ANTIMICROBIAL SUSCEPTIBILITY FILE (#62.06) ANTIMICROBIAL SUSCEPTIBILITY(#62.06)

  • LAST EDITED:  OCT 03, 1996
  • 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:  JAN 29, 1996
  • HELP-PROMPT:  ANSWER MUST BE 7-14 CHARACTERS IN LENGTH
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTACC")
    SOURCE OF DATA:   095/LRSHVC
  • CROSS-REFERENCE:  9000010.25^ALR^MUMPS
    1)= S ^AUPNVMIC("ALR",$P(^AUPNVMIC(DA,0),U,3),X,$P(^AUPNVMIC(DA,0),U),DA)=""
    2)= K ^AUPNVMIC("ALR",$P(^AUPNVMIC(DA,0),U,3),X,$P(^AUPNVMIC(DA,0),U),DA)
  • CROSS-REFERENCE:  9000010.25^ALR0
    1)= S ^AUPNVMIC("ALR0",$E(X,1,30),DA)=""
    2)= K ^AUPNVMIC("ALR0",$E(X,1,30),DA)
.07 RESULT 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  OCT 02, 2006
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
.08 COLLECTION SAMPLE 0;8 POINTER TO COLLECTION SAMPLE FILE (#62) COLLECTION SAMPLE(#62)

  • LAST EDITED:  AUG 13, 1998
.09 COMPLETE DATE 0;9 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 13, 1998
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,+^AUPNVMIC(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,+^AUPNVMIC(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
1113 LOINC CODE 11;13 POINTER TO LAB LOINC FILE (#95.3) LAB LOINC(#95.3)

  • LAST EDITED:  MAR 10, 2004
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.25^AOP^MUMPS
    1)= I $P(^AUPNVMIC(DA,0),U,2),$P(^(0),U,3) S ^AUPNVMIC("AOP",X,$P(^AUPNVMIC(DA,0),U,2),9999999-$P(+^AUPNVSIT($P(^AUPNVMIC(DA,0),U,3),0),"."),DA)=""
    2)= I $P(^AUPNVMIC(DA,0),U,2),$P(^(0),U,3) K ^AUPNVMIC("AOP",X,$P(^AUPNVMIC(DA,0),U,2),9999999-$P(+^AUPNVSIT($P(^AUPNVMIC(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 MICROBIOLOGY FILE (#9000010.25) V MICROBIOLOGY(#9000010.25)

  • 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.25^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMIC(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.25,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVMIC(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.25,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.25^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMIC(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.25,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVMIC(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.25,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 MICROBIOLOGY 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 MICROBIOLOGY File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.25^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMIC(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.25,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVMIC(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.25,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 MICROBIOLOGY 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 (#9009021) IHS LAB CPT CODE(#9009021)

  • LAST EDITED:  MAR 26, 2010
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 PROVIDER NARRATIVE 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.
1703 COLONY COUNT 17;3 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.
1704 ABNORMAL 17;4 SET
  • 'A' FOR ABNORMAL;

  • LAST EDITED:  MAR 25, 2013
2601 SNOMED CT 26;0 Multiple #9000010.2526 9000010.2526
2701 LOINC CODES 27;0 Multiple #9000010.2527 9000010.2527
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All