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: ^AUPNVDEN

Package: IHS Patient

Global: ^AUPNVDEN


Information

FileMan FileNo FileMan Filename Package
9000010.05 V DENTAL IHS Patient

Description

Directly Accessed By Routines, Total: 186

Package Total Routines
IHS GPRA Information System 70 BGP0C12    BGP0C2X    BGP0CU2    BGP0D3A    BGP0D7    BGP0D711    BGP0DHE1    BGP0DPA2
BGP1C12    BGP1C2X    BGP1CU2    BGP1D3A    BGP1D7    BGP1D711    BGP1DHE1    BGP1DPA2
BGP2C12    BGP2C2X    BGP2CU2    BGP2D3A    BGP2D7    BGP2D711    BGP2DHE1    BGP2DPA2
BGP3C12    BGP3C2X    BGP3CU2    BGP3D3A    BGP3D7    BGP3D711    BGP3DPA2    BGP4D3A
BGP4D7    BGP4D711    BGP4DPA2    BGP5D3A    BGP5D7    BGP5D711    BGP5DPA2    BGP6C12
BGP6C2    BGP6D3A    BGP6D7    BGP6D711    BGP6DHE1    BGP6DPA2    BGP7C12    BGP7C2
BGP7D3A    BGP7D7    BGP7D711    BGP7DHE1    BGP7DPA2    BGP8C12    BGP8C2X    BGP8CU2
BGP8D3A    BGP8D7    BGP8D711    BGP8DHE1    BGP8DPA2    BGP9C12    BGP9C2X    BGP9CU2
BGP9D3    BGP9D7    BGP9D711    BGP9DHE1    BGP9DPA2    BGPD13    
Diabetes Registry 61 BDMD011    BDMD017    BDMD01T    BDMD111    BDMD117    BDMD11T    BDMD317    BDMD411
BDMD417    BDMD41T    BDMD511    BDMD516    BDMD517    BDMD611    BDMD616    BDMD617
BDMD711    BDMD716    BDMD717    BDMD811    BDMD816    BDMD817    BDMD911    BDMD917
BDMD91T    BDMDA11    BDMDA17    BDMDA1T    BDMDB11    BDMDB17    BDMDB1T    BDMDC11
BDMDC17    BDMDC1T    BDMDD11    BDMDD17    BDMDD1T    BDMDE17    BDMDE1B    BDMDE1T
BDMDF17    BDMDF1B    BDMDF1T    BDMDG17    BDMDG1B    BDMDG1T    BDMP017    BDMP117
BDMP417    BDMP517    BDMP617    BDMP717    BDMP817    BDMP917    BDMPA17    BDMPB17
BDMPC17    BDMPD17    BDMPE17    BDMPF17    BDMPG17    
Patient Care Component Reports 22 APCLADAP    APCLCH11    APCLD317    APCLD511    APCLD516    APCLD517    APCLD611    APCLD616
APCLD617    APCLD711    APCLD716    APCLD717    APCLD811    APCLD816    APCLD817    APCLOS4
APCLP517    APCLP617    APCLP717    APCLP817    APCLPNP    APCLV05    
IHS Uniform Data System 18 BUD0RPC2    BUD1RPC2    BUD2RPC2    BUD4RPC1    BUD5RPC1    BUD6RPC1    BUD7RPC1    BUD8RPC1
BUD9RPC2    BUDARPC2    BUDBRPC2    BUDCRPC2    BUDDRP6A    BUDDRPC2    BUDERP6A    BUDERPC2
BUDHRP6A    BUDHRPC2    
Local Area Programs 3 AZAMED16    AZANED16    AZAXDPM1    
Patient Care Component 3 APCDR05    APCHS10    APCHS9B6    
Electronic Dental Record 2 BADEHL4    BADEPRV1    
Health Summary Components 2 BHSDM6    BHSPED    
Clinical Scheduling for Windows 1 BSDX41L    
Data Warehouse Export System 1 BDWUTIL    
GUI Objects 1 BGOVCPT    
Patient Care Component Data Transmission 1 APCPUTIL    
Third Party Billing 1 ABMDVST6    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
iCare 2 BQITRCTB    BQITREDU    
Comprehensive Diabetes Management 1 BCDMFLDS    
IHS Dental System 1 ADEAPC2    
IHS HIV Management System 1 BKMIXX    
Patient Care Component 1 BJPC2ENV    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
IHS Patient 1 V DENTAL(#9000010.05)[1208]    
Patient Care Component 1 PCC DATA TRANS LOG(#9001005)[#9001005.05101(.02)]    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    V DENTAL(#9000010.05)[1208]    VISIT(#9000010)[.03]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
IHS Dental System 1 DENTAL OPERATIVE SITE(#9002010.03)[.05]    
Kernel 1 NEW PERSON(#200)[1202, 1204, 1217, 1219]    
Utility Tables 1 ADA CODE(#9999999.31)[.01]    

Fields, Total: 20

Field # Name Loc Type Details
.01 SERVICE CODE 0;1 POINTER TO ADA CODE FILE (#9999999.31)
************************REQUIRED FIELD************************
ADA CODE(#9999999.31)

  • LAST EDITED:  AUG 14, 2012
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTSC")
  • CROSS-REFERENCE:  9000010.05^B
    1)= S ^AUPNVDEN("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVDEN("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.05^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.05^AZ8^MUMPS
    1)= I $D(^AUTTADA(+^AUPNVDEN(DA,0))),$P(^AUTTADA(+^AUPNVDEN(DA,0),0),U,3)]"" S APCDLOOK=$P($$ICDDX^ICDEX($P(^AUTTADA(+^AUPNVDEN(DA,0),0),U,3)),U,2)
    2)= Q
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 05, 1988
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.05^AC
    1)= S ^AUPNVDEN("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVDEN("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.05^AATOO^MUMPS
    1)= I $P(^AUPNVDEN(DA,0),U,3)]"" S ^AUPNVDEN("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVDEN(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVDEN(DA,0),U,3)]"" K ^AUPNVDEN("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVDEN(DA,0),U,3),0),".",1)),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(^AUPNVDEN(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 11, 1986
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVDEN(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.05^AD
    1)= S ^AUPNVDEN("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVDEN("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.05^AA^MUMPS
    1)= Q:$P(^AUPNVDEN(DA,0),U,2)=""  S ^AUPNVDEN("AA",$P(^AUPNVDEN(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVDEN(DA,0),U,2)=""  K ^AUPNVDEN("AA",$P(^AUPNVDEN(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.05^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
.04 NO. OF UNITS 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 04, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTNOU")
.05 OPERATIVE SITE 0;5 POINTER TO DENTAL OPERATIVE SITE FILE (#9002010.03) DENTAL OPERATIVE SITE(#9002010.03)

  • LAST EDITED:  NOV 30, 1989
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTOS")
  • CROSS-REFERENCE:  9000010.05^AO
    1)= S ^AUPNVDEN("AO",$E(X,1,30),DA)=""
    2)= K ^AUPNVDEN("AO",$E(X,1,30),DA)
.06 TOOTH SURFACE 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  SEP 07, 1993
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTSUR")
.07 FEE 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999.99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 20, 2008
  • HELP-PROMPT:  Type a Number between 0 and 999999.99, 2 Decimal Digits
.08 DENTAL INTERFACE VISIT NUMBER 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  JUL 07, 2009
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
1201 EVENT DATE&TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCDT")
1202 ORDERING PROVIDER 12;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPRV")
1203 CLINIC 12;3 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

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

  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEPR")
1208 PARENT 12;8 POINTER TO V DENTAL FILE (#9000010.05) V DENTAL(#9000010.05)

  • LAST EDITED:  JUL 09, 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:  JAN 26, 2009
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEXK")
  • CROSS-REFERENCE:  9000010.05^AXK
    1)= S ^AUPNVDEN("AXK",$E(X,1,30),DA)=""
    2)= K ^AUPNVDEN("AXK",$E(X,1,30),DA)
1210 OUTSIDE PROVIDER NAME 12;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 24, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTOPR")
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.05^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDEN(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.05,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVDEN(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.05,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.05^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDEN(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.05,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVDEN(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.05,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 DENTAL 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 DENTAL File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.05^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDEN(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.05,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVDEN(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.05,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 DENTAL File
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All