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

Package: IHS Patient

Global: ^AUPNVPRC


Information

FileMan FileNo FileMan Filename Package
9000010.08 V PROCEDURE IHS Patient

Description

Directly Accessed By Routines, Total: 313

Package Total Routines
IHS GPRA Information System 164 BGP0C11    BGP0C2X    BGP0C3X    BGP0CPU2    BGP0CPU4    BGP0CU    BGP0CU1    BGP0CU2
BGP0CU3    BGP0CU4    BGP0CU5    BGP0D4    BGP0D61    BGP0D729    BGP0D87    BGP0DHE2
BGP0EL3    BGP0UTL1    BGP1C11    BGP1C2X    BGP1C3X    BGP1CPU2    BGP1CPU4    BGP1CU
BGP1CU1    BGP1CU2    BGP1CU3    BGP1CU4    BGP1CU5    BGP1D27    BGP1D38    BGP1D4
BGP1D61    BGP1D729    BGP1D87    BGP1DHE2    BGP1EL3    BGP1UTL1    BGP2C11    BGP2C2X
BGP2C3X    BGP2CPU2    BGP2CPU4    BGP2CU    BGP2CU1    BGP2CU2    BGP2CU3    BGP2CU4
BGP2CU5    BGP2D27    BGP2D38    BGP2D4    BGP2D729    BGP2D87    BGP2DHE2    BGP2EL3
BGP2UTL1    BGP3C11    BGP3C2X    BGP3C3X    BGP3CPU2    BGP3CPU4    BGP3CU    BGP3CU1
BGP3CU2    BGP3CU3    BGP3CU4    BGP3CU5    BGP3D27    BGP3D38    BGP3D4    BGP3D729
BGP3D87    BGP3EL3    BGP3UTL1    BGP4C11    BGP4CU    BGP4CU1    BGP4D27    BGP4D4
BGP4D729    BGP4D87    BGP4EL3    BGP4UTL1    BGP5C11    BGP5C2    BGP5C3    BGP5CU
BGP5CU1    BGP5D27    BGP5D4    BGP5D729    BGP5D87    BGP5DHE1    BGP5EL3    BGP5UTL1
BGP6C11    BGP6C2    BGP6C3    BGP6CU    BGP6CU1    BGP6D212    BGP6D27    BGP6D4
BGP6D714    BGP6D729    BGP6D87    BGP6DHE1    BGP6EL3    BGP6UTL1    BGP7C2    BGP7C3
BGP7CU1    BGP7D212    BGP7D27    BGP7D4    BGP7D714    BGP7D729    BGP7D87    BGP7DHE1
BGP7UTL1    BGP8C2X    BGP8C3X    BGP8CPU2    BGP8CPU4    BGP8CU1    BGP8CU2    BGP8CU3
BGP8CU4    BGP8CU5    BGP8D212    BGP8D27    BGP8D4    BGP8D53    BGP8D61    BGP8D714
BGP8D715    BGP8D729    BGP8D87    BGP8DHE2    BGP8UTL1    BGP9C11    BGP9C2X    BGP9C3X
BGP9CPU2    BGP9CPU4    BGP9CU    BGP9CU1    BGP9CU2    BGP9CU3    BGP9CU4    BGP9CU5
BGP9D4    BGP9D61    BGP9D87    BGP9DHE2    BGP9EL3    BGP9UTL1    BGPD6    BGPMUA03
BGPMUG01    BGPMUG06    BGPMUUT2    BGPMUUT3    
IHS Uniform Data System 51 BUD0UTL1    BUD1UTL1    BUD2UTL1    BUD4RPC1    BUD5RPC1    BUD6RPC1    BUD7RPC1    BUD8RPC1
BUD8UTL1    BUD9UTL1    BUDAUTL1    BUDBUTL1    BUDCUTL1    BUDDRP6B    BUDDRP6C    BUDDRP6D
BUDDRP6H    BUDDRP6M    BUDDRP6N    BUDDRP6O    BUDDRP6R    BUDDRP6X    BUDDRP6Y    BUDDRP7B
BUDDUTL1    BUDERP6B    BUDERP6C    BUDERP6D    BUDERP6H    BUDERP6M    BUDERP6N    BUDERP6O
BUDERP6R    BUDERP6X    BUDERP6Y    BUDERP7B    BUDEUTL1    BUDHRP6B    BUDHRP6C    BUDHRP6D
BUDHRP6H    BUDHRP6M    BUDHRP6N    BUDHRP6O    BUDHRP6R    BUDHRP6X    BUDHRP6Y    BUDHRP7B
BUDHUTL1    BUDHUTL2    BUDRPTC1    
Patient Care Component 24 APCDACCR    APCDACP1    APCDACP2    APCDCHKI    APCDCHKJ    APCDDMU1    APCDEGPP    APCDFOA1
APCDFOAP    APCDHOS    APCDR00    APCDR08    APCDRVH1    APCDVCH1    APCDVCHK    APCHPWH6
APCHS11A    APCHS11C    APCHS6    APCHS6A    APCHS9B4    APCHSM04    APCHSMU2    BJPC2P22
Patient Care Component Reports 20 APCLAPIU    APCLCH11    APCLCPT1    APCLD312    APCLFPR1    APCLOP1    APCLP512    APCLP612
APCLP712    APCLP812    APCLPP21    APCLSILI    APCLSILU    APCLV08    APCLVLU    APCLYV22
APCLYV31    APCLYV32    APCLYV51    APCLYV52    
Diabetes Registry 18 BDMAPIU    BDMD312    BDMDE1B    BDMDF1B    BDMDG1B    BDMLPM    BDMP012    BDMP112
BDMP412    BDMP512    BDMP612    BDMP712    BDMP812    BDMP912    BDMPA12    BDMPB12
BDMPC12    BDMSMU2    
Third Party Billing 7 ABMCPTCK    ABMDE5B    ABMDVCK1    ABMDVCK3    ABMDVS13    ABMDVST3    ABMFCPT    
Patient Care Component Data Transmission 5 APCPAA    APCPAPC    APCPHOP    APCPHOS1    APCPHOS2    
Local Area Programs 4 AZAXCAD    AZAXCADB    AZAXCADZ    AZAXDPM1    
Health Summary Components 3 BHSDM4    BHSHS1    BHSSUR    
IHS Mods To Patient Care Encounter 3 BPXRMDX1    BPXRMPRC    BPXRMPX    
Quality Assurance 3 AQAOEDTP    AQAQPR21    AQAQPR22    
IHS Changes To ADT 2 ADGCRB5    ADGPCAC3    
iCare 2 BQICAEP2    BQITD13    
Clinical Scheduling for Windows 1 BSDX41F    
Data Warehouse Export System 1 BDWUTIL1    
GUI Objects 1 BGOVCPT    
IHS Mods To Text Integration Utilities 1 BTIULO    
IHS Patient 1 AUPNCPT    
PCC Medical Query 1 AMQQMULP    
PCC New Encounter Form 1 VENPCC1F    

Accessed By FileMan Db Calls, Total: 17

Package Total Routines
IHS Changes To ADT 3 ADGCRB5    BDGCRB1    BDGPCCE1    
IHS Uniform Data System 3 BUDARPC1    BUDBRPC1    BUDCRPC1    
Patient Care Component 3 APCDACCR    APCDCHKI    APCDCHKJ    
IHS HIV Management System 2 BKMIXX1    BKMIXX2    
IHS Mods To Text Integration Utilities 2 BTIULO3    BTIUPCC    
Comprehensive Diabetes Management 1 BCDMFLDS    
Data Warehouse Export System 1 BDWUTIL1    
IHS Mods To Patient Care Encounter 1 BPXRMDX1    
iCare 1 BQIPTPRC    

Pointed To By FileMan Files, Total: 2

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

Pointer To FileMan Files, Total: 12

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    V PROCEDURE(#9000010.08)[1208]    VISIT(#9000010)[.03]    
CPT Files 2 CPT MODIFIER(#81.3)[.17, .18]    CPT(#81)[.16]    
DRG Grouper 2 ICD OPERATION/PROCEDURE(#80.1)[.01, .22]    ICD DIAGNOSIS(#80)[.05, .23, 1213]
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
Utility Tables 2 PROVIDER NARRATIVE(#9999999.27)[.04]    ASA-PS CODE(#9999999.85)[.15]    
Kernel 1 NEW PERSON(#200)[.09, .11, .12, 1202, 1204, 1217, 1219]

Fields, Total: 40

Field # Name Loc Type Details
.01 PROCEDURE 0;1 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)
************************REQUIRED FIELD************************
ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S:$D(APCDEIN) APCDTPCC="" S DIC("S")="D ICDOPCHK^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 25, 2018
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPRC")
  • SCREEN:  S DIC("S")="D ICDOPCHK^AUPNSICD"
  • EXPLANATION:  Operation/Procedure code cannot be an inactive code and it must be appropriate for the patient's sex.
  • EXECUTABLE HELP:  D HELPOP^AUPNSICD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.08^B
    1)= S ^AUPNVPRC("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVPRC("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.08^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • FIELD INDEX:  AMAP (#450) MUMPS IR ACTION
    Short Descr:  MAP ICD10 PROCEDURE TO SNOMED
    Set Logic:  D PRC^AUPNMAP
    Kill Logic:  Q
    X(1):  PROCEDURE  (9000010.08,.01)  (Subscr 1)  (forwards)
  • RECORD INDEXES:  ACR (#417)
.019 PROCEDURE NARRATIVE COMPUTED

  • MUMPS CODE:  S X=$P($$ICDOP^AUPNVUTL($P(^AUPNVPRC(D0,0),U),$S($P(^AUPNVPRC(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPRC(D0,0),U,3),0),U),"."),1:DT),"I"),U,5)
    9.2 = S Y(9000010.08,.019,80)=$S($D(D0):D0,1:""),Y(9000010.08,.019,1)=$S($D(^AUPNVPRC(D0,0)):^(0),1:""),D0=$P(Y(9000010.08,.019,1),U,1) S:'$D(^ICD0(+D0,0)) D0=-1
  • ALGORITHM:  S X=$P($$ICDOP^AUPNVUTL($P(^AUPNVPRC(D0,0),U),$S($P(^AUPNVPRC(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPRC(D0,0),U,3),0),U),"."),1:DT),"I"),U,5)
  • LAST EDITED:  APR 11, 2014
.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.08^AC
    1)= S ^AUPNVPRC("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVPRC("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.08^AATOO^MUMPS
    1)= I $P(^AUPNVPRC(DA,0),U,3)]"" S ^AUPNVPRC("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPRC(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVPRC(DA,0),U,3)]"" K ^AUPNVPRC("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPRC(DA,0),U,3),0),".",1)),DA)
  • RECORD INDEXES:  ACR (#417)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVPRC(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(^AUPNVPRC(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.08^AD
    1)= S ^AUPNVPRC("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVPRC("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.08^AA^MUMPS
    1)= Q:$P(^AUPNVPRC(DA,0),U,2)=""  S ^AUPNVPRC("AA",$P(^AUPNVPRC(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVPRC(DA,0),U,2)=""  K ^AUPNVPRC("AA",$P(^AUPNVPRC(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
  • CROSS-REFERENCE:  9000010.08^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
  • RECORD INDEXES:  ACR (#417)
.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(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 24, 1987
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTNQ")
  • SCREEN:  S DIC(0)=$S($D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO")
  • EXPLANATION:  OLD LOOKUP
.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:  AUG 13, 1990
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDX")
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  Must be a valid, active ICD Diagnosis code.
  • EXECUTABLE HELP:  D HELP^AUPNSICD
    SOURCE OF DATA:   062/OPNARR
.06 PROCEDURE DATE 0;6 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X>DT!(XAUPNDOD K X
  • LAST EDITED:  MAR 08, 1988
  • HELP-PROMPT:  TYPE A DATE BETWEEN DOB AND TODAY
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPD")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.07 PRINCIPLE PROCEDURE 0;7 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUL 25, 1986
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPP")
  • RECORD INDEXES:  ACR (#417)
.08 INFECTION 0;8 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1986
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTINF")
.09 OVERRIDE/ACCEPT 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 07, 1992
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTACC")
.11 OPERATING PROVIDER 0;11 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)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 28, 2000
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTOP")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)"
  • EXPLANATION:  Must be an active provider.
  • CROSS-REFERENCE:  9000010.08^AE
    1)= S ^AUPNVPRC("AE",$E(X,1,30),DA)=""
    2)= K ^AUPNVPRC("AE",$E(X,1,30),DA)
.12 ANESTHESIOLOGIST 0;12 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)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 28, 2000
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTAN")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)"
  • EXPLANATION:  Must be an active provider.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.13 ELAPSED TIME (ANESTHESIA) 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 30, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTET")
.14 ANESTHESIA ADMINISTERED 0;14 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 07, 1994
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTAA")
.15 ASA-PS CLASS 0;15 POINTER TO ASA-PS CODE FILE (#9999999.85) ASA-PS CODE(#9999999.85)

  • LAST EDITED:  FEB 07, 1994
  • DESCRIPTION:  
    ASA-PS CLASS is the American Society of Anesthesiologists-Physical Status classification system based on the presence and severity of disease.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTAPC")
.16 CPT CODE 0;16 POINTER TO CPT FILE (#81) 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:  JAN 28, 2003
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCPT")
  • SCREEN:  S DIC("S")="D CPT^AUPNSICD"
  • EXPLANATION:  Must be an active CPT Code.
.1609 CPT SHORT NAME COMPUTED

  • MUMPS CODE:  S X=$P($$CPT^ICPTCOD($P(^AUPNVPRC(D0,0),U,16),$S($P(^AUPNVPRC(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPRC(D0,0),U,3),0),U),"."),1:DT)),U,3)
    9.2 = S Y(9000010.08,.1609,80)=$S($D(D0):D0,1:""),Y(9000010.08,.1609,1)=$S($D(^AUPNVPRC(D0,0)):^(0),1:"")
    9.3 = X ^DD(9000010.08,.1609,9.2) S D0=$P(Y(9000010.08,.1609,1),U,16) S:'$D(^ICPT(+D0,0)) D0=-1 S Y(9000010.08,.1609,101)=$S($D(^ICPT(D0,0)):^(0),1:"")
  • ALGORITHM:  S X=$P($$CPT^ICPTCOD($P(^AUPNVPRC(D0,0),U,16),$S($P(^AUPNVPRC(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPRC(D0,0),U,3),0),U),"."),1:DT)),U,3)
  • LAST EDITED:  AUG 16, 2007
.17 CPT MODIFIER 0;17 POINTER TO CPT MODIFIER FILE (#81.3) CPT MODIFIER(#81.3)

  • LAST EDITED:  SEP 16, 1999
.18 CPT MODIFIER 2 0;18 POINTER TO CPT MODIFIER FILE (#81.3) CPT MODIFIER(#81.3)

  • LAST EDITED:  SEP 16, 1999
.19 ANESTHESIA START DATE/TIME 0;19 DATE

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

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 01, 2008
.22 ICD-9 Procedure 0;22 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="D CHKOP9^AUPNSIC9" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 18, 2012
  • SCREEN:  S DIC("S")="D CHKOP9^AUPNSIC9"
  • EXPLANATION:  Must be an active ICD-9 Procedure code.
  • EXECUTABLE HELP:  D HELPOP9^AUPNSIC9
.221 ICD-9 PROCEDURE NARRATIVE COMPUTED

  • MUMPS CODE:  S X=$P($$ICDOP^AUPNVUTL($P(^AUPNVPRC(D0,0),U,22),$S($P(^AUPNVPRC(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPRC(D0,0),U,3),0),U),"."),1:DT),"I"),U,5)
  • ALGORITHM:  S X=$P($$ICDOP^AUPNVUTL($P(^AUPNVPRC(D0,0),U,22),$S($P(^AUPNVPRC(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPRC(D0,0),U,3),0),U),"."),1:DT),"I"),U,5)
  • LAST EDITED:  APR 11, 2014
.23 ICD-9 Code 0;23 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D CHK9^AUPNSIC9" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 18, 2012
  • SCREEN:  S DIC("S")="D CHK9^AUPNSIC9"
  • EXPLANATION:  Must be a valid ICD-9 Diagnosis Code."
  • EXECUTABLE HELP:  D CHK9^AUPNSIC9
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 PROCEDURE FILE (#9000010.08) V PROCEDURE(#9000010.08)

  • 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")
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.08^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVPRC(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.08,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVPRC(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.08,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.08^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVPRC(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.08,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVPRC(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.08,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 PROCEDURE 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 PROCEDURE File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.08^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVPRC(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.08,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVPRC(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.08,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 PROCEDURE File
1501 DATE PASSED TO EXTERNAL 15;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 15, 2000
2601 SNOMED CT 26;0 Multiple #9000010.0826 9000010.0826
2701 LOINC CODES 27;0 Multiple #9000010.0827 9000010.0827
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All