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

Package: IHS Patient

Global: ^AUPNVMSR


Information

FileMan FileNo FileMan Filename Package
9000010.01 V MEASUREMENT IHS Patient

Description

Directly Accessed By Routines, Total: 290

Package Total Routines
IHS GPRA Information System 127 BGP0C11    BGP0C2X    BGP0C31    BGP0CU    BGP0CU1    BGP0CU3    BGP0D2    BGP0D23
BGP0D24    BGP0D41    BGP0DCHW    BGP0EL2    BGP1C11    BGP1C2X    BGP1C31    BGP1CU
BGP1CU1    BGP1CU3    BGP1D2    BGP1D23    BGP1D24    BGP1D41    BGP1DCHW    BGP1EL2
BGP2C11    BGP2C2X    BGP2C31    BGP2CU    BGP2CU1    BGP2CU3    BGP2D2    BGP2D23
BGP2D24    BGP2D28    BGP2D41    BGP2DCHW    BGP2EL2    BGP3C11    BGP3C2X    BGP3C31
BGP3CU    BGP3CU1    BGP3CU3    BGP3D2    BGP3D23    BGP3D24    BGP3D28    BGP3D41
BGP3EL2    BGP4C11    BGP4CU    BGP4CU1    BGP4D2    BGP4D23    BGP4D24    BGP4D28
BGP4D41    BGP4EL2    BGP5C11    BGP5C2    BGP5C3    BGP5CU    BGP5CU1    BGP5D2
BGP5D23    BGP5D24    BGP5D28    BGP5D41    BGP5EL2    BGP6C11    BGP6C2    BGP6C31
BGP6CU    BGP6CU1    BGP6D2    BGP6D23    BGP6D26    BGP6D28    BGP6D41    BGP6DCHW
BGP6EL2    BGP7C2    BGP7C31    BGP7CU1    BGP7D2    BGP7D23    BGP7D26    BGP7D28
BGP7D41    BGP7D9    BGP7DCHW    BGP7EL2    BGP8C2X    BGP8C31    BGP8CU1    BGP8CU3
BGP8D2    BGP8D23    BGP8D28    BGP8D41    BGP8D9    BGP8DCHW    BGP8EL2    BGP8PC12
BGP8PC13    BGP8PC16    BGP9C11    BGP9C2X    BGP9C31    BGP9CU    BGP9CU1    BGP9CU3
BGP9D2    BGP9D23    BGP9D24    BGP9D41    BGP9DCHW    BGP9EL2    BGPMUA01    BGPMUA05
BGPMUA07    BGPMUA10    BGPMUD03    BGPMUD06    BGPMUF06    BGPMUG02    BGPMUH05    
Patient Care Component 29 APCDBMI    APCDDMU2    APCDDMUP    APCDEF    APCDEFC    APCDEGPP    APCDEWHA    APCDMSR1
APCDR01    APCDSWM    APCDTWC1    APCDVDSB    APCDVDSG    APCDVDSP    APCHPWH2    APCHPWH4
APCHS11B    APCHS12    APCHS2    APCHS2A    APCHS2A3    APCHS2I    APCHS8A    APCHS9B1
APCHS9D1    APCHSAST    BJPC1EC1    BJPC2P3    BJPC2PMU    
Diabetes Registry 28 BDMD013    BDMD018    BDMD113    BDMD118    BDMD413    BDMD418    BDMDA13    BDMDA18
BDMDB13    BDMDB18    BDMDC13    BDMDC18    BDMDD13    BDMDD18    BDMDE13    BDMDE18
BDMDF13    BDMDF18    BDMDG13    BDMDG18    BDMDM1A    BDMEDMU2    BDMEDMUP    BDMGUA
BDMPB13    BDMPC13    BDMS9B1    BDMS9D1    
Patient Care Component Reports 18 APCL2A3    APCLAL1A    APCLAL2    APCLAL31    APCLBP1    APCLDE2    APCLDE31    APCLDF2
APCLDM1A    APCLSIL1    APCLSIL2    APCLSILI    APCLV01    APCLV2    APCLVL03    APCLVLU
APCLVLU1    APCLW61    
iCare 15 BQICAEP2    BQICAEXP    BQICAUTL    BQICAVAL    BQIDCAH7    BQIDCUTL    BQIIPCBP    BQIPTMSR
BQITBMI    BQITD05    BQITD11    BQITRRSK    BQITRSK    BQITUTL    BQIVFADD    
IHS Electronic Health Record 11 BEHOENP2    BEHOENPP    BEHOGMEA    BEHOVM    BEHOVM2    BEHOVM4    BEHOVM5    BEHOVMC
BEHOVMC2    BEHOVMER    BEHOVMIN    
Mental Health Social Services 7 AMHEHR    AMHPHQM    AMHPHQO    AMHRAS31    AMHRDE31    AMHRGADM    AMHRGADO    
PCC New Encounter Form 7 VENPCC1M    VENPCCAM    VENPCCQ1    VENPCCQ2    VENPCCQC    VENPCCS1    VENPCCS3    
Health Summary Components 6 BHSAST    BHSDM1    BHSDMPRE    BHSMEA    BHSMEAIP    BHSMEAP    
IHS Patient 6 AUPNCIX    AUPNMAP    AUPNPCT    AUPNVHLP    AUPNVMS2    AUPNVMSR    
IHS HIV Management System 3 BKMIXX2    BKMQQCRC    BKMVSUP2    
IHS Mods To Text Integration Utilities 3 BTIULO4    BTIULO7A    BTIUPCC6    
PCC Medical Query 3 AMQQDO    AMQQMGR1    AMQQMULT    
Clinical Scheduling for Windows 2 BSDX41D    BSDX41H    
GUI Objects 2 BGOVMSR    BGOVSTR1    
IHS Changes To Pharmacy 2 APSGFUNC    APSPFUNC    
IHS Mods To Patient Care Encounter 2 BPXRMDX1    BPXRMPX    
IHS Support HL7 Interfaces 2 BHLOBRI    BHLOBX3M    
IHS Uniform Data System 2 BUDERP7B    BUDHRP7B    
Patient Care Component Surveillance 2 APCSSIL2    APCSSLAB    
Aberdeen GPRA Report 1 CIMGAGP1    
Clinical Reminders 1 PXRMINDX    
Data Warehouse Export System 1 BDWUTIL    
IHS Emergency Dept Dashboard 1 BEDDTRPT    
IHS Omnicell Pyxis Interface 1 BOPTU    
IHS Standard Terminology 1 BSTSMSR    
Local Area Programs 1 AZAXDPM1    
Order Entry Results Reporting 1 ORQPTQ4    
PCE Patient Care Encounter 1 PXPXRM    
Patient Care Component Data Transmission 1 APCPUTIL    
Patient Chart 1 BPCLALL1    
Third Party Billing 1 ABMDVST4    
VueCentric Framework 1 CIAVIHVT    

Accessed By FileMan Db Calls, Total: 49

Package Total Routines
iCare 14 BQICAEXP    BQICAUTL    BQICAVAL    BQIDCAH7    BQIDCUTL    BQIPTMSR    BQITBMI    BQITD05
BQITDWC    BQITRCBP    BQITRCKN    BQITRRSK    BQITRSK    BQITUTL    
IHS Electronic Health Record 9 BEHOENP2    BEHOENPC    BEHOENPP    BEHOGMEA    BEHOVM    BEHOVM2    BEHOVM4    BEHOVM5
BEHOVMIN    
Patient Care Component 5 APCDBMI    APCDSWM    APCDTWC1    BJPC1EC1    BJPC2P3    
IHS Mods To Patient Care Encounter 3 BPXRM205    BPXRMDX1    BPXRMPX    
PCC New Encounter Form 3 VENPCCAM    VENPCCQ1    VENPCCQC    
GUI Objects 2 BGOTRG    BGOVSTR1    
IHS Emergency Dept Dashboard 2 BEDDTRPT    BEDDUTIL    
IHS GPRA Information System 2 BGPMUA07    BGPMUF06    
Barcode Medication Administration 1 PSBRPC    
Comprehensive Diabetes Management 1 BCDMFLDS    
Health Summary Components 1 BHSMEA    
IHS Changes To Pharmacy 1 APSPFUNC    
IHS HIV Management System 1 BKMIXX2    
IHS Mods To Text Integration Utilities 1 BTIUPCC6    
IHS Standard Terminology 1 BSTSMSR    
Mental Health Social Services 1 AMHPCCL    
Order Entry Results Reporting 1 ORQPTQ4    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 2 V MEASUREMENT(#9000010.01)[1208]    V STROKE(#9000010.63)[1601, #9000010.6315(.2)]    
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 MEASUREMENT(#9000010.01)[1208]    VISIT(#9000010)[.03]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
General Medical Record - Vitals 1 GMRV VITAL QUALIFIER(#120.52)[#9000010.015(.01)]    
Kernel 1 NEW PERSON(#200)[.08, 3, 1202, 1204, 1217, 1219]    
Utility Tables 1 MEASUREMENT TYPE(#9999999.07)[.01]    

Fields, Total: 31

Field # Name Loc Type Details
.01 TYPE 0;1 POINTER TO MEASUREMENT TYPE FILE (#9999999.07)
************************REQUIRED FIELD************************
MEASUREMENT TYPE(#9999999.07)

  • LAST EDITED:  AUG 21, 2013
  • HELP-PROMPT:  Enter the measurement Type.
  • DESCRIPTION:  
    This is the type of measurement being taken on the patient.
  • TECHNICAL DESCR:  
    Pointer to the measurement type file.  APCDALVR Variable = APCDALVR("APCDTTYP")
  • CROSS-REFERENCE:  9000010.01^B
    1)= S ^AUPNVMSR("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVMSR("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.01^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.01^AATOO^MUMPS
    1)= I $P(^AUPNVMSR(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVMSR("AA",$P(^AUPNVMSR(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVMSR(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVMSR(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVMSR("AA",$P(^AUPNVMSR(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVMSR(DA,0),U,3),0),".",1)),DA)
    This cross-reference is used for searches in sequence by patient, measurement type, inverted visit date, and internal entry number.
    "AA",PATIENT,TYPE,VISIT,DA
  • CROSS-REFERENCE:  9000010.01^AQTOO^MUMPS
    1)= I $P(^AUPNVMSR(DA,0),U,4)]"" S AUPNCIXF="S" D VMSR01^AUPNCIX K AUPNCIXF
    2)= I $P(^AUPNVMSR(DA,0),U,4)]"" S AUPNCIXF="K" D VMSR01^AUPNCIX K AUPNCIXF
  • CROSS-REFERENCE:  9000010.01^AQPCTOO^MUMPS
    1)= I $P(^AUPNVMSR(DA,0),U,4)]"" S AUPNCIXF="S",AUPNPT01="" D VMSRPCT^AUPNCIX K AUPNCIXF,AUPNPT01
    2)= I $P(^AUPNVMSR(DA,0),U,5)]"" S AUPNCIXF="K",AUPNPT01="" D VMSRPCT^AUPNCIX K AUPNCIXF,AUPNPT01
    "AQ" xref for %iles.  If change type to not Ht or Wt, and was prev- iously a Ht or Wt, will delete the "AQ" xref for %iles and the .05 field value.  If change type to Ht or Wt, will set "AQ" xref and .05 %ile field value.
  • CROSS-REFERENCE:  9000010.01^AMAP^MUMPS
    1)= D MEAS^AUPNMAP
    2)= Q
  • RECORD INDEXES:  ACR (#664)





.02
PATIENT NAME
0;2
POINTER TO PATIENT FILE (#9000001) 

************************REQUIRED FIELD************************
PATIENT(#9000001)
  • LAST EDITED:  JUL 08, 1991
  • HELP-PROMPT:  Enter the patient name.
  • DESCRIPTION:  
    Patient Name.
  • TECHNICAL DESCR:  
    Pointer to the patient file.  Always stuffed by data entry/no editing allowed.  APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.01^AC
    1)= S ^AUPNVMSR("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVMSR("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.01^AATOO2^MUMPS
    1)= I $P(^AUPNVMSR(DA,0),U,1)]"",$P(^(0),U,3)]"" S ^AUPNVMSR("AA",X,$P(^AUPNVMSR(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVMSR(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVMSR(DA,0),U,1)]"",$P(^(0),U,3)]"" K ^AUPNVMSR("AA",X,$P(^AUPNVMSR(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVMSR(DA,0),U,3),0),".",1)),DA)
  • RECORD INDEXES:  ACR (#664)





.03
VISIT
0;3
POINTER TO VISIT FILE (#9000010) 

************************REQUIRED FIELD************************
VISIT(#9000010)
  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVMSR(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 09, 1988
  • HELP-PROMPT:  Enter the encounter from the Visit file.  Always stuffed.
  • DESCRIPTION:  
    The encounter entry in the Visit file that is associated with this measurement.
  • TECHNICAL DESCR:  
    Pointer to the Visit file. Always stuffed by data entry/no editing allowed.  APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVMSR(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.01^AD
    1)= S ^AUPNVMSR("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVMSR("AD",$E(X,1,30),DA)
    This is used for programmed lookup by visit internal entry number.
  • CROSS-REFERENCE:  9000010.01^AA^MUMPS
    1)= Q:$P(^AUPNVMSR(DA,0),U,2)=""  S ^AUPNVMSR("AA",$P(^AUPNVMSR(DA,0),U,2),$P(^AUPNVMSR(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVMSR(DA,0),U,2)=""  K ^AUPNVMSR("AA",$P(^AUPNVMSR(DA,0),U,2),$P(^AUPNVMSR(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
    This cross-reference is used for searches in sequence by patient, measurement type, inverted visit date, and internal entry number.
    "AA",PATIENT,TYPE,VISIT,DA
  • CROSS-REFERENCE:  9000010.01^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
    This cross-reference is used to add "1" to the Dependent Entry Count field (#.09) of the related Visit file (9000010) entry to indicate that there is a file (in this case measurement) pointing to the Visit.
    When the measurement entry is deleted, this cross-reference is used to subtract "1" from the Dependent Entry Count field (#.09) of the related Visit file (9000010) entry.





.04
VALUE
0;4
FREE TEXT 

************************REQUIRED FIELD************************
  • INPUT TRANSFORM:  K:X["""" X I $D(X) K:$L(X)>100!($L(X)<1) X D:$D(X) ^AUPNVMSR
  • OUTPUT TRANSFORM:  S Y=$$OUT^AUPNVMSR(D0,Y)
  • LAST EDITED:  AUG 21, 2013
  • TECHNICAL DESCR:  
    The entry logic for each measurement type value is found in the AUPNVMSR routine that is executed by the input transform.  APCDALVR Variable = APCDALVR("APCDTVAL")
  • EXECUTABLE HELP:  D HELP^AUPNVMSR
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.01^AQPC^MUMPS
    1)= S AUPNCIXF="S" D VMSRPCT^AUPNCIX K AUPNCIXF
    2)= S AUPNCIXF="K" D VMSRPCT^AUPNCIX K AUPNCIXF
    If patient under age 18, measurement a height or weight will set a value in the .05 percentile field of this file and then execute all xrefs and set the "AQ" compound x-ref on the .05 field directly prefacing the %ile
    value with HPC for ht %ile and WPC for wt %ile.
  • CROSS-REFERENCE:  9000010.01^AQ
    1)= S AUPNCIXF="S" D VMSR04^AUPNCIX K AUPNCIXF
    2)= S AUPNCIXF="K" D VMSR04^AUPNCIX K AUPNCIXF
  • CROSS-REFERENCE:  9000010.01^AMAP1^MUMPS
    1)= D MEAS^AUPNMAP
    2)= Q





.05
PERCENTILE
0;5
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  AUG 20, 1992
  • HELP-PROMPT:  Type a Number between 0 and 100, 1 Decimal Digit
  • TECHNICAL DESCR:  
    A value for this field be entered by trigger off the .04 field for heights and weights of patients aged below the age of 16.  APCDALVR Variable = APCDALVR("APCDTPCT")





.06
NUMERATOR ON VC/VU
0;6
NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 26, 1996
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits





.07
DATE/TIME VITALS ENTERED
0;7
DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 29, 2012
  • DESCRIPTION:  
    This field contains the date/time this vital/measurement was taken by the care provider.





.08
ENTERED BY
0;8
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  FEB 29, 2012





1.4
SUPPLEMENTAL O2
0;10
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 18, 2009
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  This field stores the information of the supplemental oxygen as follows:
    .5-20 l/min (liters/minute)   and/or
    21-100 % of oxygen concentration For example: 4.5 l/min 40%
    4.5 l/min
    40 %





2
ENTERED IN ERROR
2;1
SET

  • '1' FOR YES;
  • LAST EDITED:  AUG 21, 2013
  • DESCRIPTION:  
    This field indicates that this record was flagged as entered in error.
  • CROSS-REFERENCE:  9000010.01^AF^MUMPS
    1)= D MEAS^AUPNMAP
    2)= Q





3
ERROR ENTERED BY
2;2
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  DEC 18, 2009
  • DESCRIPTION:  
    This field indicates the name of the person responsible for entering the record in error.  Pointer to the NEW PERSON (#200) file.





4
REASON ENTERED IN ERROR
2.1;0
SET Multiple #9000010.014 
9000010.014
  • DESCRIPTION:  
    This multiple contains a list of reasons for entering a vital measurement in error.





5
QUALIFIER
5;0
POINTER Multiple #9000010.015 
9000010.015
  • INDEXED BY:  QUALIFIER (AMAPQ)





1201
EVENT DATE & TIME
12;1
DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X I $D(X),$E(X,1,12)>$E($$NOW^XLFDT,1,12) K X
  • LAST EDITED:  JAN 27, 2011
  • HELP-PROMPT:  Enter the date and time the measurement was taken.  Future dates and times are not allowed.
  • DESCRIPTION:  This is the date and time that the measurement was taken 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 that the provider performed the clinical event.
    The data may be an imprecise date.
    Date and time may be within 30 days before or after the visit date, with the restriction that 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, 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 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. APCDALVR Variable = APCDALVR("APCDTCDT")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.01^AB
    1)= S ^AUPNVMSR("AB",$E(X,1,30),DA)=""
    2)= K ^AUPNVMSR("AB",$E(X,1,30),DA)
    This is in place of the "B" xref on the GMRV VITAL MEASUREMENT .01 field.
  • CROSS-REFERENCE:  9000010.01^AE^MUMPS
    1)= Q:$P(^AUPNVMSR(DA,0),U,2)=""  S ^AUPNVMSR("AE",$P(^AUPNVMSR(DA,0),U,2),$P(^AUPNVMSR(DA,0),U,1),9999999-X,DA)=""
    2)= Q:$P(^AUPNVMSR(DA,0),U,2)=""  K ^AUPNVMSR("AE",$P(^AUPNVMSR(DA,0),U,2),$P(^AUPNVMSR(DA,0),U,1),9999999-X,DA)
    Used for flowsheets.  Cross-reference by patient,vitals type,date/time vitals take,ien of vital ent ry "AE",PATIENT,TYPE,DATE/TIME VITALS TAKEN,DA





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 measurement.
  • DESCRIPTION:  
    This field can be used to document the provider who ordered the measurment to be done.
  • 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:  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:  SEP 01, 1995
  • HELP-PROMPT:  Enter the provider who took the measurement.
  • DESCRIPTION:  
    This is the provider who took the measurement at the encounter.
  • 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 MEASUREMENT FILE (#9000010.01)
V MEASUREMENT(#9000010.01)
  • 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 24, 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 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.01^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMSR(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.01,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVMSR(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.01,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.01^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMSR(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.01,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVMSR(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.01,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 MEASUREMENT 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 MEASUREMENT File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.01^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMSR(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.01,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVMSR(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.01,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 MEASUREMENT File





2601
SNOMED CT
26;0
Multiple #9000010.0126 
9000010.0126




2701
LOINC CODES
27;0
Multiple #9000010.0127 
9000010.0127




80101
EDITED FLAG
801;1
SET

  • '1' FOR EDITED;
  • LAST EDITED:  AUG 10, 1995
  • HELP-PROMPT:  Answer is automatically entered by PCE filing logic.
  • DESCRIPTION:  
    This field is automatically set to 1 if PCE detects that any measurment data is being edited from the original entry of data.
  • 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
DATA SOURCE
801;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>85!($L(X)<2) X
  • LAST EDITED:  AUG 10, 1995
  • 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, then 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.





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 comment related to the patient's measurement which may be entered by the provider.  It may be entered manually via the PCE User Interface.





9999999
%RW

COMPUTED

  • MUMPS CODE:  N VAR,TY,PT,VI,VA S VAR=^AUPNVMSR(D0,0),TY=$P(VAR,U,1),PT=$P(VAR,U,2),VI=$P(VAR,U,3),VA=$P(VAR,U,4) S:VI VI=$P($G(^AUPNVSIT(VI,0)),U,1),VI=9999999-VI S X=$S(TY=2&(PT["")&(VI["")&(VA[""):$$RW^APCHS2A3(PT,VA,VI),1:"")
  • ALGORITHM:  N VAR,TY,PT,VI,VA S VAR=^AUPNVMSR(D0,0),TY=$P(VAR,U,1),PT=$P(VAR,U,2),VI=$P(VAR,U,3),VA=$P(VAR,U,4) S:VI VI=$P($G(^AUPNVSIT(VI,0)),U,1),VI=9999999-VI S X=$S(TY=2&(PT["")&(VI["")&(VA[""):$$RW^APCHS2A3(PT,VA,VI),1:"")
  • LAST EDITED:  JAN 04, 2002







    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointed To By FileMan Files | 
Pointer To FileMan Files | 
Fields | 
Found Entries | 
All