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

Package: IHS Patient

Global: ^AUPNVCPT


Information

FileMan FileNo FileMan Filename Package
9000010.18 V CPT IHS Patient

Description

Directly Accessed By Routines, Total: 654

Package Total Routines
IHS GPRA Information System 364 BGP0C11    BGP0C2X    BGP0C31    BGP0C3X    BGP0CPU2    BGP0CPU4    BGP0CU    BGP0CU1
BGP0CU2    BGP0CU3    BGP0CU4    BGP0D22    BGP0D24    BGP0D26    BGP0D3    BGP0D33
BGP0D34    BGP0D35    BGP0D36    BGP0D3A    BGP0D4    BGP0D5    BGP0D51    BGP0D55
BGP0D729    BGP0D8    BGP0D85    BGP0D86    BGP0D87    BGP0DHE1    BGP0DPA2    BGP0DU
BGP0EL3    BGP0EO1    BGP1C11    BGP1C2X    BGP1C31    BGP1C3X    BGP1CPU2    BGP1CPU4
BGP1CU    BGP1CU1    BGP1CU2    BGP1CU3    BGP1CU4    BGP1D22    BGP1D24    BGP1D26
BGP1D27    BGP1D33    BGP1D34    BGP1D35    BGP1D36    BGP1D37    BGP1D38    BGP1D3A
BGP1D4    BGP1D5    BGP1D51    BGP1D55    BGP1D729    BGP1D8    BGP1D85    BGP1D86
BGP1D87    BGP1D88    BGP1DHE1    BGP1DPA2    BGP1DU    BGP1EL3    BGP1EO1    BGP2C11
BGP2C2X    BGP2C31    BGP2C3X    BGP2CPU2    BGP2CPU4    BGP2CU    BGP2CU1    BGP2CU2
BGP2CU3    BGP2CU4    BGP2D22    BGP2D24    BGP2D26    BGP2D27    BGP2D33    BGP2D34
BGP2D35    BGP2D36    BGP2D37    BGP2D38    BGP2D3A    BGP2D4    BGP2D5    BGP2D51
BGP2D55    BGP2D729    BGP2D8    BGP2D811    BGP2D86    BGP2D87    BGP2D88    BGP2DHE1
BGP2DPA2    BGP2DU    BGP2EL3    BGP2EO1    BGP3C11    BGP3C2X    BGP3C31    BGP3C3X
BGP3CPU2    BGP3CPU4    BGP3CU    BGP3CU1    BGP3CU2    BGP3CU3    BGP3CU4    BGP3D22
BGP3D24    BGP3D26    BGP3D27    BGP3D33    BGP3D34    BGP3D35    BGP3D36    BGP3D37
BGP3D38    BGP3D3A    BGP3D4    BGP3D5    BGP3D51    BGP3D55    BGP3D729    BGP3D8
BGP3D811    BGP3D812    BGP3D86    BGP3D87    BGP3D88    BGP3D91    BGP3DPA2    BGP3DU
BGP3EL3    BGP4C11    BGP4CU    BGP4CU1    BGP4D22    BGP4D24    BGP4D26    BGP4D27
BGP4D33    BGP4D34    BGP4D35    BGP4D36    BGP4D37    BGP4D38    BGP4D3A    BGP4D4
BGP4D5    BGP4D51    BGP4D55    BGP4D729    BGP4D8    BGP4D811    BGP4D812    BGP4D86
BGP4D87    BGP4D88    BGP4D91    BGP4DPA2    BGP4DU    BGP4EL3    BGP5C11    BGP5C2
BGP5C3    BGP5CU    BGP5CU1    BGP5D22    BGP5D24    BGP5D26    BGP5D27    BGP5D33
BGP5D34    BGP5D35    BGP5D36    BGP5D37    BGP5D38    BGP5D3A    BGP5D4    BGP5D5
BGP5D51    BGP5D55    BGP5D729    BGP5D8    BGP5D811    BGP5D812    BGP5D86    BGP5D87
BGP5D88    BGP5D91    BGP5DPA2    BGP5DU    BGP5EL3    BGP6C11    BGP6C2    BGP6C3
BGP6C31    BGP6CU    BGP6CU1    BGP6D212    BGP6D22    BGP6D24    BGP6D26    BGP6D27
BGP6D33    BGP6D34    BGP6D35    BGP6D36    BGP6D37    BGP6D38    BGP6D3A    BGP6D4
BGP6D51    BGP6D55    BGP6D714    BGP6D729    BGP6D8    BGP6D811    BGP6D812    BGP6D86
BGP6D87    BGP6D88    BGP6D91    BGP6DPA2    BGP6DU    BGP6EL3    BGP7C2    BGP7C3
BGP7C31    BGP7CU1    BGP7D212    BGP7D22    BGP7D24    BGP7D26    BGP7D27    BGP7D33
BGP7D34    BGP7D35    BGP7D36    BGP7D37    BGP7D38    BGP7D3A    BGP7D4    BGP7D51
BGP7D55    BGP7D714    BGP7D729    BGP7D8    BGP7D811    BGP7D812    BGP7D86    BGP7D87
BGP7D88    BGP7DPA2    BGP7DU    BGP8C2X    BGP8C31    BGP8C3X    BGP8CPU2    BGP8CPU4
BGP8CU1    BGP8CU2    BGP8CU3    BGP8CU4    BGP8D212    BGP8D21A    BGP8D22    BGP8D24
BGP8D27    BGP8D33    BGP8D34    BGP8D35    BGP8D36    BGP8D37    BGP8D38    BGP8D3A
BGP8D3C    BGP8D4    BGP8D51    BGP8D53    BGP8D55    BGP8D714    BGP8D715    BGP8D729
BGP8D8    BGP8D811    BGP8D812    BGP8D86    BGP8D87    BGP8D88    BGP8DHE1    BGP8DPA2
BGP8DU    BGP8EO1    BGP8PC10    BGP8PC12    BGP8PC13    BGP8PC14    BGP8PC15    BGP8PC16
BGP8PC2    BGP8PC4    BGP8PC6    BGP8PC61    BGP8PC62    BGP8PC63    BGP8PC64    BGP8PC65
BGP8PC66    BGP8PC67    BGP8PC68    BGP8PC69    BGP8PC7    BGP8PC8    BGP8PC9    BGP9C11
BGP9C2X    BGP9C31    BGP9C3X    BGP9CPU2    BGP9CPU4    BGP9CU    BGP9CU1    BGP9CU2
BGP9CU3    BGP9CU4    BGP9D22    BGP9D24    BGP9D33    BGP9D34    BGP9D35    BGP9D36
BGP9D4    BGP9D5    BGP9D51    BGP9D8    BGP9D85    BGP9D86    BGP9D87    BGP9DHE1
BGP9DU    BGP9EL3    BGP9EO1    BGPDU    BGPMUA03    BGPMUD04    BGPMUD09    BGPMUF02
BGPMUG01    BGPMUUT1    BGPMUUT2    BGPMUUT3    
IHS Uniform Data System 123 BUD0DU    BUD0RP6C    BUD0RP6X    BUD0RP6Y    BUD0RPC1    BUD0RPC2    BUD1DU    BUD1RP6C
BUD1RP6W    BUD1RP6X    BUD1RP6Y    BUD1RPC1    BUD1RPC2    BUD1UTL1    BUD2DU    BUD2RP6C
BUD2RP6W    BUD2RP6X    BUD2RP6Y    BUD2RPC1    BUD2RPC2    BUD2UTL1    BUD4RPC1    BUD5RPC1
BUD6RPC1    BUD7RPC1    BUD8DU    BUD8RP6C    BUD8RP6X    BUD8RP6Y    BUD8RPC1    BUD9DU
BUD9RP6C    BUD9RP6X    BUD9RP6Y    BUD9RPC1    BUD9RPC2    BUDADU    BUDARP6C    BUDARP6W
BUDARP6X    BUDARP6Y    BUDARPC1    BUDARPC2    BUDAUTL1    BUDBDU    BUDBRP6C    BUDBRP6Q
BUDBRP6W    BUDBRP6X    BUDBRP6Y    BUDBRPC1    BUDBRPC2    BUDBUTL1    BUDCDU    BUDCRP6C
BUDCRP6Q    BUDCRP6W    BUDCRP6X    BUDCRP6Y    BUDCRPC1    BUDCRPC2    BUDCUTL1    BUDDDU
BUDDRP6A    BUDDRP6B    BUDDRP6C    BUDDRP6D    BUDDRP6H    BUDDRP6M    BUDDRP6N    BUDDRP6O
BUDDRP6Q    BUDDRP6R    BUDDRP6U    BUDDRP6V    BUDDRP6X    BUDDRP6Y    BUDDRP7B    BUDDRPC1
BUDDRPC2    BUDDUTL1    BUDEDU    BUDERP6A    BUDERP6B    BUDERP6C    BUDERP6D    BUDERP6H
BUDERP6M    BUDERP6N    BUDERP6O    BUDERP6Q    BUDERP6R    BUDERP6U    BUDERP6V    BUDERP6X
BUDERP6Y    BUDERP7B    BUDERPC1    BUDERPC2    BUDEUTL1    BUDEUTL2    BUDHDU    BUDHRP6A
BUDHRP6B    BUDHRP6C    BUDHRP6D    BUDHRP6H    BUDHRP6M    BUDHRP6N    BUDHRP6O    BUDHRP6R
BUDHRP6U    BUDHRP6V    BUDHRP6X    BUDHRP6Y    BUDHRP7B    BUDHRPC1    BUDHRPC2    BUDHUTL1
BUDHUTL2    BUDHUTL3    BUDRPTC1    
Diabetes Registry 63 BDMAPIU    BDMD012    BDMD112    BDMD202    BDMD212    BDMD312    BDMD412    BDMD413
BDMD4DU    BDMD512    BDMD612    BDMD712    BDMD812    BDMD912    BDMDA12    BDMDA13
BDMDADU    BDMDB12    BDMDB13    BDMDBDU    BDMDC12    BDMDC13    BDMDCDU    BDMDD12
BDMDD13    BDMDD17    BDMDDDU    BDMDE12    BDMDE13    BDMDE17    BDMDE1B    BDMDEDU
BDMDF12    BDMDF13    BDMDF17    BDMDF1B    BDMDFDU    BDMDG12    BDMDG13    BDMDG17
BDMDG1B    BDMDGDU    BDMEDMU1    BDMLPM    BDMP012    BDMP112    BDMP412    BDMP512
BDMP612    BDMP712    BDMP812    BDMP912    BDMPA12    BDMPB12    BDMPC12    BDMPD12
BDMPE12    BDMPF12    BDMPG12    BDMS9B3    BDMS9B7    BDMSMU1    BDMSMU2    
PCE Patient Care Encounter 22 PXAAVCPT    PXAICPT    PXAIMOD    PXAPI    PXAPIOE    PXBSTOR    PXBSTOR1    PXBUTL3
PXCECPT    PXCPTAPI    PXICLN9B    PXKFCPT1    PXKMOD    PXPXRM    PXPXRMI1    PXQFV
PXQUTL    PXQUTL3    PXQUTL3A    PXRRPCE1    PXRRWLS2    PXSCH2    
Patient Care Component Reports 19 APCLAL1A    APCLAPIU    APCLCPT1    APCLD202    APCLD212    APCLD312    APCLD512    APCLD612
APCLD712    APCLD812    APCLFPC1    APCLP512    APCLP612    APCLP712    APCLP812    APCLPP21
APCLSIL4    APCLSILI    APCLVLU    
Patient Care Component 10 APCHPWH3    APCHPWH4    APCHPWH6    APCHPWHU    APCHS6    APCHS6A    APCHS9B7    APCHSMU1
APCHSMU2    BJPC2P22    
iCare 8 BQICAEP1    BQICAEP2    BQICMUTL    BQIDCAH3    BQIIPCBP    BQIIPUT1    BQIRGHEP    BQITD13
GUI Objects 7 BGOCPTP2    BGOCPTPR    BGOTRG    BGOVCPT    BGOVCPT2    BGOVIMM    BGOVSK    
Health Summary Components 6 BHSCPT    BHSCPT1    BHSDM7    BHSHS1    BHSMU2    BHSSUR    
IHS HIV Management System 4 BKMCRS    BKMIXX    BKMQQCRB    BKMQQCRC    
Third Party Billing 4 ABMCPTCK    ABMDVCK3    ABMFCPT    ABMRSPI1    
Mental Health Social Services 3 AMHEHR    AMHRSB1    AMHRSB2    
Data Warehouse Export System 2 BDWDDR2    BDWUTIL    
Patient Care Component Data Transmission 2 APCPDR2    APCPREX2    
Pharmacy Benefits Management 2 PSUDEM2    PSUDEM3    
Alcohol Chemical Dependency 1 ACDPCCL7    
Clinical Reminders 1 PXRMVCPT    
Clinical Scheduling for Windows 1 BSDX41F    
IHS Electronic Health Record 1 BEHOXQPC    
IHS Mods To Patient Care Encounter 1 BPXRMSNO    
IHS Mods To Text Integration Utilities 1 BTIUPCC3    
IHS Patient 1 AUPNCPT    
IHS Support HL7 Interfaces 1 BHLOBRI    
Local Area Programs 1 AZAXDPM1    
PCC Medical Query 1 AMQQMULP    
Patient Care Component Surveillance 1 APCSSLAB    
Scheduling 1 SCRPW14    

Accessed By FileMan Db Calls, Total: 26

Package Total Routines
IHS Uniform Data System 4 BUDBRP6Q    BUDCRP6Q    BUDDRP6Q    BUDERP6Q    
PCE Patient Care Encounter 4 PXBGCPT    PXCECPT    PXCEVFIL    PXPXRMI1    
IHS HIV Management System 3 BKMQSSR5    BKMRMDR    BKMVSSR5    
Patient Care Component Table Maintiance 3 APCM14E5    APCM24E7    APCM25E7    
iCare 3 BQIPTCPT    BQITRCTB    BQITREDU    
Automated Information Collection System 1 IBDFRPC6    
Data Warehouse Export System 1 BDWUTIL    
IHS Changes To ADT 1 BDGCPT    
IHS Electronic Health Record 1 BEHOENPP    
IHS Mods To Patient Care Encounter 1 BPXRMSNO    
IHS Patient 1 AUPNPOST    
Lab Service 1 LRCAPES1    
Mental Health Social Services 1 AMHPCCL    
Patient Care Component Surveillance 1 APCSSLAB    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V CPT(#9000010.18)[1208]    

Pointer To FileMan Files, Total: 14

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    V CPT(#9000010.18)[1208]    VISIT(#9000010)[.03]    
Utility Tables 3 PROVIDER NARRATIVE(#9999999.27)[.0480201]    ASA-PS CODE(#9999999.85)[.12]    CPT MODIFIER(#9999999.88)[.08.09]    
CPT Files 2 CPT MODIFIER(#81.3)[#9000010.181(.01)]    CPT(#81)[.01]    
Kernel 2 PACKAGE(#9.4)[81202]    NEW PERSON(#200)[.171202120412171219]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[.05]    
PCE Patient Care Encounter 1 PCE DATA SOURCE(#839.7)[81203]    

Fields, Total: 38

Field # Name Loc Type Details
.01 CPT 0;1 POINTER TO CPT FILE (#81)
************************REQUIRED FIELD************************
CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="D CPT^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 26, 2018
  • HELP-PROMPT:  Enter a CPT code or the name of the procedure done to the patient.
  • DESCRIPTION:  This is the entry in the CPT file that most closely represents the clinical procedure done to the patient during the encounter. The preferred text for the procedure performed may be specified in the Provider Narrative
    field.
    This field is used for Administrative and Clinical purposes.  If a procedure performed is to be billable, the CPT code must be specified here.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCPT")
  • SCREEN:  S DIC("S")="D CPT^AUPNSICD"
  • EXPLANATION:  Only active CPTs
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.18^B
    1)= S ^AUPNVCPT("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVCPT("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.18^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.18^AATOO^MUMPS
    1)= I $P(^AUPNVCPT(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVCPT("AA",$P(^AUPNVCPT(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVCPT(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVCPT("AA",$P(^AUPNVCPT(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),".",1)),DA)
    This cross-reference is used for searches in sequence by Patient, CPT internal entry number, inverted visit date, and internal entry number.
    "AA",PATIENT,CPT,VISIT,DA
  • CROSS-REFERENCE:  9000010.18^AIMM^MUMPS
    1)= N BISAVE S BISAVE=X S X="BIRPC6" X ^%ZOSF("TEST") S X=BISAVE K BISAVE I $T D CPTIMM^BIRPC6
    2)= K BINULL
    This cross-reference checks to see if the CPT Code is for an immunization.  If it is for an immunization, then the call to BIRPC6 checks to see if a V IMMUNIZATION entry exists for that patient and that vaccine on that
    day.  If not, then a V IMM is created.
  • FIELD INDEX:  AMAP (#490) MUMPS IR ACTION
    Short Descr:  MAP TO SNOMED/LOINC
    Set Logic:  D CPT^AUPNMAP
    Kill Logic:  Q
    X(1):  CPT  (9000010.18,.01)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACR (#409)
.019 CPT SHORT NAME COMPUTED

  • MUMPS CODE:  S X=$P($$CPT^ICPTCOD($P(^AUPNVCPT(D0,0),U),$S($P(^AUPNVCPT(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVCPT(D0,0),U,3),0),U),"."),1:DT)),U,3)
    9.2 = S Y(9000010.18,.019,80)=$S($D(D0):D0,1:""),Y(9000010.18,.019,1)=$S($D(^AUPNVCPT(D0,0)):^(0),1:""),D0=$P(Y(9000010.18,.019,1),U,1) S:'$D(^ICPT(+D0,0)) D0=-1
    9.3 = S Y(9000010.18,.019,80)=$S($D(D0):D0,1:""),Y(9000010.18,.019,1)=$S($D(^AUPNVCPT(D0,0)):^(0),1:""),D0=$P(Y(9000010.18,.019,1),U,1) S:'$D(^ICPT(+D0,0)) D0=-1
  • ALGORITHM:  S X=$P($$CPT^ICPTCOD($P(^AUPNVCPT(D0,0),U),$S($P(^AUPNVCPT(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVCPT(D0,0),U,3),0),U),"."),1:DT)),U,3)
  • LAST EDITED:  NOV 29, 2007
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  SEP 01, 1995
  • HELP-PROMPT:  Enter the Patient to whom the procedure was done.
  • DESCRIPTION:  
    This is the patient to whom the procedure was done during the encounter.
  • TECHNICAL DESCR:  
    This is a pointer to the Patient/IHS file (#9000001) which is dinumed to the Patient File (#2).  This field is always stuffed by the application.  No editing is allowed.  APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.18^AC
    1)= S ^AUPNVCPT("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVCPT("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.18^AATOO2^MUMPS
    1)= I $P(^AUPNVCPT(DA,0),U,3)]"" S ^AUPNVCPT("AA",X,+^AUPNVCPT(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVCPT(DA,0),U,3)]"" K ^AUPNVCPT("AA",X,+^AUPNVCPT(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),".",1)),DA)
    This cross-reference is used for searches in sequence by patient, CPT internal entry number, inverted visit date, and internal entry number.
    "AA",PATIENT,CPT,VISIT,DA
  • CROSS-REFERENCE:  9000010.18^C
    1)= S ^AUPNVCPT("C",$E(X,1,30),DA)=""
    2)= K ^AUPNVCPT("C",$E(X,1,30),DA)
    This field allows look-up on the file by the patient's name.
  • RECORD INDEXES:  ACR (#409)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVCPT(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 procedure was done.
  • DESCRIPTION:  
    This is the encounter or occasion of service defined in the Visit file that represents when and where the procedure was done.
  • TECHNICAL DESCR:  
    This is a pointer to the Visit File (#9000010).  This field is stuffed by the applications.  No editing is allowed.  APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVCPT(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.18^AD
    1)= S ^AUPNVCPT("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVCPT("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.18^AA^MUMPS
    1)= Q:$P(^AUPNVCPT(DA,0),U,2)=""  S ^AUPNVCPT("AA",$P(^AUPNVCPT(DA,0),U,2),+^AUPNVCPT(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVCPT(DA,0),U,2)=""  K ^AUPNVCPT("AA",$P(^AUPNVCPT(DA,0),U,2),+^AUPNVCPT(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
    This cross-reference is used for searches in sequence by paitent, CPT internal entry number, inverted visit date, and internal entry number.
    "AA",PATIENT,CPT,VISIT,DA
  • CROSS-REFERENCE:  9000010.18^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.
  • RECORD INDEXES:  ACR (#409)
.04 PROVIDER NARRATIVE 0;4 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)
************************REQUIRED FIELD************************
PROVIDER NARRATIVE(#9999999.27)

  • INPUT TRANSFORM:  S DIC(0)=$S($D(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 27, 1994
  • HELP-PROMPT:  Enter the providers preferred text identifying the procedure done.
  • DESCRIPTION:  This is the narrative the provider uses to represent the procedure that was done. The text may be different from the CPT file's procedure name text, but should not have a significantly different meaning. The CPT code in
    the CPT (.01) field should be the CPT code that "most closely" represents the provider narrative for the procedure done.
  • TECHNICAL DESCR:  This is a pointer to the Provider Narrative file (#9999999.27). Disk space is saved by storing ONE entry in the Provider Narrative file for each unique narrative. The provider narrative is often repetitive, especially if
    the data capture mode is automated (e.g., AICS Encounter Forms).  APCDALVR Variable = APCDALVR("APCDTPN")
  • SCREEN:  S DIC(0)=$S($D(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO")
  • EXPLANATION:  IHS OLD LOOKUP or VA Exact Match
.05 DIAGNOSIS 0;5 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 16, 1994
  • HELP-PROMPT:  Enter the ICD Diagnosis related to the procedure done.
  • DESCRIPTION:  
    This is the diagnosis, from the ICD Diagnosis file, associated with the procedure performed.
  • TECHNICAL DESCR:  This field has different screening criteria depending on the agency associated with the entering user.
    IHS does not allow E codes, where VA does.  Both agencies do not permit inactive codes to be entered.
    Age criteria is not presently in use on screening.  APCDALVR Variable = APCDALVR("APCDTDX")
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  Dx cannot be an inactive code, it must be appropriate for the patient's sex. IHS does not allow External Cause codes.
  • EXECUTABLE HELP:  D HELP^AUPNSICD
.07 PRINCIPAL PROCEDURE 0;7 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 12, 1994
  • HELP-PROMPT:  Enter 'Y' if this is the principal procedure done at the encounter.
  • DESCRIPTION:  
    This field identifies this procedure as the prinicipal procedure done to the patient at the encounter.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPP")
  • RECORD INDEXES:  ACR (#409)
.08 MODIFIER 0;8 POINTER TO CPT MODIFIER FILE (#9999999.88) CPT MODIFIER(#9999999.88)

  • LAST EDITED:  FEB 03, 1999
.09 MODIFIER 2 0;9 POINTER TO CPT MODIFIER FILE (#9999999.88) CPT MODIFIER(#9999999.88)

  • LAST EDITED:  FEB 03, 1999
.11 ANESTHESIA ADMINISTERED? 0;11 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 01, 2008
.12 ASA-PS CLASS 0;12 POINTER TO ASA-PS CODE FILE (#9999999.85) ASA-PS CODE(#9999999.85)

  • LAST EDITED:  FEB 01, 2008
.13 ANESTHESIA START DATE/TIME 0;13 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 01, 2008
.14 ANESTHESIA STOP DATE/TIME 0;14 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 01, 2008
.15 ELASPED TIME (ANESTHESIA) 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 01, 2008
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
.16 QUANTITY 0;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 22, 2009
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of times this procedure was done to the patient during the encounter.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTUN")
.17 ANESTHESIOLOGIST 0;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 19, 2008
1 CPT MODIFIER 1;0 POINTER Multiple #9000010.181 9000010.181

  • SCREEN:  S DIC("S")="N PXC,PXM,PXV,PXD S PXC=$P(^AUPNVCPT(D0,0),U),PXV=$P(^AUPNVCPT(D0,0),U,3),PXD=$P($G(^AUPNVSIT(PXV,0)),U) I $$MODP^ICPTMOD(PXC,Y,""I"",PXD)"
  • EXPLANATION:  The selected modifier must go with the CPT code.
1201 EVENT DATE AND TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 16, 1994
  • HELP-PROMPT:  Enter the date and time the procedure was done.
  • DESCRIPTION:  This is the date and time the procedure was performed. This date and time may be different from the visit data 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 provder 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
    service was provided.  The event date does not have to be the visit date, but it must be within 30 days before or after the visit, and not be a future date.
    If a user wants to enter a historical procedure, 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.  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(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 26, 1994
  • HELP-PROMPT:  Enter the provider who ordered this procedure.
  • DESCRIPTION:  
    This field can be used to document the provider who ordered the procedure.
  • TECHNICAL DESCR:  
    The person entered here must hold the "AK.PROVIDER" security key.  APCDALVR Variable = APCDALVR("APCDTPRV")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
  • EXPLANATION:  Must be a 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:  MAY 02, 1995
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCLN")
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 performed the procedure.
  • DESCRIPTION:  
    This is the provider who performed the procedure.
  • 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.  APCDALVR Variable = APCDALVR("APCDTEPR")
1208 PARENT 12;8 POINTER TO V CPT FILE (#9000010.18) V CPT(#9000010.18)

  • 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:  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")
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.18^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVCPT(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.18,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVCPT(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.18,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.18^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVCPT(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.18,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVCPT(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.18,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 CPT 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 CPT File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.18^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVCPT(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.18,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVCPT(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.18,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 CPT File
2601 SNOMED 26;0 Multiple #9000010.1826 9000010.1826
2701 LOINC CODES 27;0 Multiple #9000010.1827 9000010.1827
80101 EDITED FLAG 801;1 SET
  • '1' FOR EDITED;

  • LAST EDITED:  MAR 14, 1994
  • HELP-PROMPT:  Answer is automatically entered by PCE filing logic.
  • DESCRIPTION:  
    This field is automatically set to 1 if PCE detects that any original procedure data is being edited.
  • TECHNICAL DESCR:  
    PCE filing logic automatically compares the before and after pictures of the record to determine if the edited flag should be set to "1".
80102 AUDIT TRAIL 801;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>85!($L(X)<2) X
  • LAST EDITED:  MAY 09, 1996
  • HELP-PROMPT:  Answer is automatically entered by the PCE filing logic.
  • DESCRIPTION:  
    This field is populated automatically by the PCE filing logic.. The format of the field is as follows:  Pointer to PCE data source file_"-"_A for Add or E for Edit_" "_DUZ of the person who entered the data_";"...
  • TECHNICAL DESCR:  The PCE filing logic requires a pointer to the PCE data source file. If this is not passed, the PCE filing logic will not process the data.
    If the record is a new record, then an "A" is used to specify the source that added the data.  If the record existed previously, PCE filing logic compares the old and new records of information.  An "E" will be
    automatically used if the filing logic finds the data has been edited.  If "E" is used, then the Edited Flag field is automatically set to 1.
    The DUZ is stored in its internal format to represent the user who performed the adding or editing of data for this record.
    Iterations of editing will be concatenated to the previous data source value, up to 85 characters.
80201 PROVIDER NARRATIVE CATEGORY 802;1 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27) PROVIDER NARRATIVE(#9999999.27)

  • INPUT TRANSFORM:  S DIC(0)=$S($D(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 21, 1994
  • DESCRIPTION:  This field is the heading or category used to represent the provider narrative on the scanner form. It may be useful for understanding how providers are grouping data for use on the encounter form, and may help determine
    clinical data base definitions in the future.
  • TECHNICAL DESCR:  
    This field was added for use in the VA.  It is used to identify the common groupings of clinical terminology used by providers.  This field is only captured from automated data capture sources, such as AICS.
  • SCREEN:  S DIC(0)=$S($D(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO")
  • EXPLANATION:  OLD LOOKUP
81101 COMMENTS 811;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  JUL 11, 1995
  • HELP-PROMPT:  Enter a comment 1-245 characters in length.
  • DESCRIPTION:  
    This is a commented related to the procedure performed.  The provider may enter this manually via the PCE User Interface.
81201 VERIFIED 812;1 SET
  • '1' FOR ELECTRONICALLY SIGNED;
  • '2' FOR VERIFIED BY PACKAGE;

  • LAST EDITED:  MAY 09, 1996
    UNEDITABLE
81202 PACKAGE 812;2 POINTER TO PACKAGE FILE (#9.4) PACKAGE(#9.4)

  • LAST EDITED:  MAY 09, 1996
    UNEDITABLE
81203 DATA SOURCE 812;3 POINTER TO PCE DATA SOURCE FILE (#839.7) PCE DATA SOURCE(#839.7)

  • LAST EDITED:  MAY 09, 1996
    UNEDITABLE
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All