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

Package: IHS Patient

Global: ^AUPNVLI


Information

FileMan FileNo FileMan Filename Package
9000010.99 V LINE ITEM (GOODS&SERVICES) IHS Patient

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
IHS Patient 1 AUPNVLI    
Local Area Programs 1 AZAXDPM1    
Patient Care Component 1 APCDALI    
Third Party Billing 1 ABMCPTCK    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V LINE ITEM (GOODS&SERVICES)(#9000010.99)[1208]    

Pointer To FileMan Files, Total: 12

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    V LINE ITEM (GOODS&SERVICES)(#9000010.99)[1208]    VISIT(#9000010)[.03]    
Utility Tables 3 COST CENTER(#9999999.58)[.12]    LINE ITEM TYPE(#9999999.86)[.01]    REVENUE CODES(#9999999.72)[.07]    
CPT Files 1 CPT(#81)[.15]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[9000]    
IHS Dental System 1 DENTAL OPERATIVE SITE(#9002010.03)[1101]    
Kernel 1 NEW PERSON(#200)[1202120412171219]    
Scheduling 1 CLINIC STOP(#40.7)[1203]    
VA Fileman 1 FILE(#1)[1301]    

Fields, Total: 35

Field # Name Loc Type Details
.01 TYPE OF ITEM 0;1 POINTER TO LINE ITEM TYPE FILE (#9999999.86)
************************REQUIRED FIELD************************
LINE ITEM TYPE(#9999999.86)

  • LAST EDITED:  SEP 16, 1996
  • HELP-PROMPT:  Enter the type of item.
  • DESCRIPTION:  
    This is the entry in the Exam file that represents what type of exam was done at the encounter.
  • CROSS-REFERENCE:  9000010.99^B
    1)= S ^AUPNVLI("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVLI("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.99^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.99^.04
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(9000010.99,.01,1,3,2.4)
    2.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9000010.99,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= #.04
    Clears out the #.04 field value when the .01 is changed.
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.99^.05
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(9000010.99,.01,1,4,2.4)
    2.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.99,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= #.05
    Clears out the #.05 field when the .01 is edited/deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.99^.06
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(9000010.99,.01,1,5,2.4)
    2.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9000010.99,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= #.06
    Clears out the .06 value when the .01 is edited/deleted.
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 05, 1988
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.99^AC
    1)= S ^AUPNVLI("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVLI("AC",$E(X,1,30),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(^AUPNVLI(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 11, 1986
  • HELP-PROMPT:  Enter the visit date/time for the encounter where the exam was done.
  • DESCRIPTION:  
    This is the encounter in the Visit file that represents when and where the exam was done.
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVLI(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.99^AD
    1)= S ^AUPNVLI("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVLI("AD",$E(X,1,30),DA)
    This cross-reference is used for searches by the visit pointer and internal entry number.
    "AD",VISIT,DA
  • CROSS-REFERENCE:  9000010.99^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
    This cross-reference adds and subtracts from the dependent entry count in the VISIT file.
.04 GOOD/SERVICE 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:'$$VAL^AUPNVLI(X,DA) X
  • LAST EDITED:  SEP 16, 1996
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the TYPE OF ITEM field of the V LINE ITEM (GOODS&SERVICES) File
    TRIGGERED by the IEN OF ITEM field of the V LINE ITEM (GOODS&SERVICES) File
.05 IEN OF ITEM 0;5 NUMBER

  • INPUT TRANSFORM:  K:'$$FIND1^DIC($P(^AUPNVLI(DA,0),U),"","MX","`"_X) X
  • LAST EDITED:  SEP 16, 1996
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the TYPE OF ITEM field of the V LINE ITEM (GOODS&SERVICES) File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.99^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9000010.99,.05,1,1,1.1) X ^DD(9000010.99,.05,1,1,1.4)
    1.1)= S X=DIV S X=$$VAL^XBDIQ1($P(^AUPNVLI(DA,0),U),X,.01)
    1.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9000010.99,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(9000010.99,.05,1,1,2.4)
    2.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9000010.99,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$$VAL^XBDIQ1($P(^AUPNVLI(DA,0),U),X,.01)
    DELETE VALUE)= @
    FIELD)= #.04
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.99^.06
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9000010.99,.05,1,2,1.1) X ^DD(9000010.99,.05,1,2,1.4)
    1.1)= S X=DIV S X=$$VAL^XBDIQ1($P(^AUPNVLI(DA,0),U),X,$P($G(^AUTTLIT($P(^AUPNVLI(DA,0),U),0)),U,3))
    1.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9000010.99,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(9000010.99,.05,1,2,2.4)
    2.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9000010.99,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$$VAL^XBDIQ1($P(^AUPNVLI(DA,0),U),X,$P($G(^AUTTLIT($P(^AUPNVLI(DA,0),U),0)),U,3))
    DELETE VALUE)= @
    FIELD)= #.06
.06 DESCRIPTION 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  SEP 16, 1996
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the TYPE OF ITEM field of the V LINE ITEM (GOODS&SERVICES) File
    TRIGGERED by the IEN OF ITEM field of the V LINE ITEM (GOODS&SERVICES) File
.07 REVENUE CODE 0;7 POINTER TO REVENUE CODES FILE (#9999999.72) REVENUE CODES(#9999999.72)

  • LAST EDITED:  JAN 17, 1980
.08 COST (TRUE COST) 0;8 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
  • LAST EDITED:  JAN 17, 1980
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
.09 CHARGE (FROM 3PB) 0;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
  • LAST EDITED:  JAN 17, 1980
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
.11 AMT COLLECTED 0;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
  • LAST EDITED:  JAN 17, 1980
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
.12 COST CENTER 0;12 POINTER TO COST CENTER FILE (#9999999.58) COST CENTER(#9999999.58)

  • LAST EDITED:  JAN 17, 1980
.13 COST (NOT BUNDLED) 0;13 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
  • LAST EDITED:  JAN 17, 1980
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
.14 QUANTITY 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 16, 1996
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
.15 HCPCS 0;15 POINTER TO CPT FILE (#81) CPT(#81)

  • LAST EDITED:  APR 21, 1997
.16 CAN # 0;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<7) X
  • LAST EDITED:  APR 21, 1997
  • HELP-PROMPT:  Answer must be 7 characters in length.
1101 TOOTH NUMBER 11;1 POINTER TO DENTAL OPERATIVE SITE FILE (#9002010.03) DENTAL OPERATIVE SITE(#9002010.03)

  • LAST EDITED:  JAN 17, 1980
1102 TOOTH SURFACE 11;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  JAN 17, 1980
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
1103 NDC # 11;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  JAN 17, 1980
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
1104 PRESCRIPTION # 11;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  JAN 17, 1980
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
1105 START TIME FOR ANESTHESIOLOGY 11;5 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 17, 1980
1106 STOP TIME FOR ANESTHESIOLOGY 11;6 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 17, 1980
1201 EVENT DATE AND TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 08, 1994
  • HELP-PROMPT:  Enter the date and time the exam was given.
  • DESCRIPTION:  This is the date and time the exam was given by the provider. This date and time may be different from the visit date and time. For example, for clinic appointment visits, the visit date and time is the date and time of
    the appointment, not the time the provider performed the clinical event.  The date may be an imprecise date.
    Date and time may be within 30 days before or after the visit date, with the restriction the date cannot be a future date.
  • TECHNICAL DESCR:  The PCE User Interface, which allows manual entry of data, will be the primary source of the event date and time. The event date prompt defaults to the visit date, and the time is entered to reflect the actual time the
    measurement was done.  The event date does not have to be the visit date, future date.
    If a user wants to enter a historical measurement, the user should use the Historical Encounter entry action to document the historical measurement.  Historical entries will not be eligible for credit.
    PCE Data Sources for automatic (scanning) data capture will be blank unless the event date and time are passed to PCE for filing.
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(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 08, 1994
  • HELP-PROMPT:  Enter the provider who ordered this exam.
  • DESCRIPTION:  
    This field can be used to document the provider who ordered the exam.
  • TECHNICAL DESCR:  
    The person entered here must hold the "AK.PROVIDER" security key.
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
  • EXPLANATION:  Select ordering provider
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1203 CLINIC 12;3 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  JUL 09, 1996
1204 ENCOUNTER PROVIDER 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 19, 1994
  • HELP-PROMPT:  Enter the provider who gave the exam.
  • DESCRIPTION:  
    This is the provider who gave the exam.
  • TECHNICAL DESCR:  
    This person can be any person in the new person file.  The person does not have to hold the "AK.PROVIDER" security key.
1208 PARENT 12;8 POINTER TO V LINE ITEM (GOODS&SERVICES) FILE (#9000010.99) V LINE ITEM (GOODS&SERVICES)(#9000010.99)

  • LAST EDITED:  JUL 09, 1996
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.99^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(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.99,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVLI(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.99,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.99^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(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.99,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVLI(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.99,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 LINE ITEM (GOODS&SERVICES) 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 LINE ITEM (GOODS&SERVICES) File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.99^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(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.99,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVLI(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.99,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 LINE ITEM (GOODS&SERVICES) File
1301 FILE CREATED FROM 13;1 POINTER TO FILE FILE (#1) FILE(#1)

  • LAST EDITED:  SEP 16, 1996
1302 IEN OF ENTRY CREATED BY 13;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 16, 1996
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
4100 CPT MODIFIER 41;0 Multiple #9000010.9941 9000010.9941
8000 CPT MODIFIER 80;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  JAN 17, 1980
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
9000 CORRESPONDING DIAGNOSIS (MULT) 90;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  JAN 17, 1980
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All