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

Package: IHS Patient

Global: ^AUPNVTC


Information

FileMan FileNo FileMan Filename Package
9000010.33 V TRANSACTION CODES IHS Patient

Description

Directly Accessed By Routines, Total: 330

Package Total Routines
IHS GPRA Information System 213 BGP0C11    BGP0C2X    BGP0C31    BGP0C3X    BGP0CU    BGP0CU2    BGP0CU3    BGP0CU4
BGP0D33    BGP0D34    BGP0D35    BGP0D36    BGP0D4    BGP0D729    BGP0D85    BGP0D86
BGP0DU    BGP0EL3    BGP0EO1    BGP1C11    BGP1C2X    BGP1C31    BGP1C3X    BGP1CU
BGP1CU2    BGP1CU3    BGP1CU4    BGP1D27    BGP1D33    BGP1D34    BGP1D35    BGP1D36
BGP1D37    BGP1D38    BGP1D3A    BGP1D4    BGP1D729    BGP1D85    BGP1D86    BGP1DU
BGP1EL3    BGP1EO1    BGP2C11    BGP2C2X    BGP2C31    BGP2C3X    BGP2CU    BGP2CU2
BGP2CU3    BGP2CU4    BGP2D27    BGP2D33    BGP2D34    BGP2D35    BGP2D36    BGP2D37
BGP2D38    BGP2D3A    BGP2D4    BGP2D729    BGP2D811    BGP2D86    BGP2DU    BGP2EL3
BGP2EO1    BGP3C11    BGP3C2X    BGP3C31    BGP3C3X    BGP3CU    BGP3CU2    BGP3CU3
BGP3CU4    BGP3D27    BGP3D33    BGP3D34    BGP3D35    BGP3D36    BGP3D37    BGP3D38
BGP3D3A    BGP3D4    BGP3D729    BGP3D811    BGP3D86    BGP3D91    BGP3DU    BGP3EL3
BGP4C11    BGP4CU    BGP4D27    BGP4D33    BGP4D34    BGP4D35    BGP4D36    BGP4D37
BGP4D38    BGP4D3A    BGP4D4    BGP4D729    BGP4D811    BGP4D86    BGP4D91    BGP4DU
BGP4EL3    BGP5C11    BGP5CU    BGP5D27    BGP5D33    BGP5D34    BGP5D35    BGP5D36
BGP5D37    BGP5D38    BGP5D3A    BGP5D4    BGP5D729    BGP5D811    BGP5D86    BGP5D91
BGP5DU    BGP5EL3    BGP6C11    BGP6C2    BGP6C3    BGP6C31    BGP6CU    BGP6D212
BGP6D27    BGP6D33    BGP6D34    BGP6D35    BGP6D36    BGP6D37    BGP6D38    BGP6D4
BGP6D729    BGP6D811    BGP6D86    BGP6D91    BGP6DU    BGP6EL3    BGP7C2    BGP7C3
BGP7C31    BGP7D212    BGP7D27    BGP7D33    BGP7D34    BGP7D35    BGP7D36    BGP7D37
BGP7D38    BGP7D3A    BGP7D4    BGP7D729    BGP7D811    BGP7D86    BGP7DU    BGP8C2X
BGP8C31    BGP8C3X    BGP8CU2    BGP8CU3    BGP8CU4    BGP8D212    BGP8D21A    BGP8D27
BGP8D33    BGP8D34    BGP8D35    BGP8D36    BGP8D37    BGP8D38    BGP8D3A    BGP8D3C
BGP8D4    BGP8D729    BGP8D811    BGP8D86    BGP8DU    BGP8EO1    BGP8PC6    BGP8PC61
BGP8PC62    BGP8PC63    BGP8PC64    BGP8PC65    BGP8PC66    BGP8PC67    BGP8PC68    BGP8PC69
BGP8PC7    BGP9C11    BGP9C2X    BGP9C31    BGP9C3X    BGP9CU    BGP9CU2    BGP9CU3
BGP9CU4    BGP9D33    BGP9D34    BGP9D35    BGP9D36    BGP9D4    BGP9D85    BGP9D86
BGP9DU    BGP9EL3    BGP9EO1    BGPMUF02    BGPMUUT2    
IHS Uniform Data System 81 BUD0DU    BUD0RP6C    BUD0RP6X    BUD0RP6Y    BUD1DU    BUD1RP6C    BUD1RP6W    BUD1RP6X
BUD1RP6Y    BUD2DU    BUD2RP6C    BUD2RP6W    BUD2RP6X    BUD2RP6Y    BUD8DU    BUD8RP6C
BUD8RP6X    BUD8RP6Y    BUD9DU    BUD9RP6C    BUD9RP6X    BUD9RP6Y    BUDADU    BUDARP6C
BUDARP6W    BUDARP6X    BUDARP6Y    BUDBDU    BUDBRP6C    BUDBRP6W    BUDBRP6X    BUDBRP6Y
BUDCDU    BUDCRP6C    BUDCRP6W    BUDCRP6X    BUDCRP6Y    BUDDDU    BUDDRP6A    BUDDRP6C
BUDDRP6D    BUDDRP6H    BUDDRP6M    BUDDRP6N    BUDDRP6O    BUDDRP6R    BUDDRP6U    BUDDRP6V
BUDDRP6X    BUDDRP6Y    BUDDRP7B    BUDEDU    BUDERP6A    BUDERP6C    BUDERP6D    BUDERP6H
BUDERP6M    BUDERP6N    BUDERP6O    BUDERP6R    BUDERP6U    BUDERP6V    BUDERP6X    BUDERP6Y
BUDERP7B    BUDHDU    BUDHRP6A    BUDHRP6C    BUDHRP6D    BUDHRP6H    BUDHRP6M    BUDHRP6N
BUDHRP6O    BUDHRP6R    BUDHRP6U    BUDHRP6V    BUDHRP6X    BUDHRP6Y    BUDHRP7B    BUDHUTL2
BUDHUTL3    
Diabetes Registry 17 BDMD413    BDMD4DU    BDMDA13    BDMDADU    BDMDB13    BDMDBDU    BDMDC13    BDMDCDU
BDMDD13    BDMDDDU    BDMDE13    BDMDEDU    BDMDF13    BDMDFDU    BDMDG13    BDMDGDU
BDMSMU1    
Patient Care Component 9 APCDDVL2    APCDDVL3    APCDKDTC    APCHPWH4    APCHPWH6    APCHPWHU    APCHS6    APCHS6A
APCHSMU1    
Health Summary Components 3 BHSCPT    BHSHS1    BHSSUR    
Local Area Programs 2 AZAXDPM1    AZAXPTR    
Clinical Scheduling for Windows 1 BSDX41F    
GUI Objects 1 BGOVCPT    
Patient Care Component Reports 1 APCLVLU    
Third Party Billing 1 ABMCPTCK    
iCare 1 BQIRGHEP    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
IHS Changes To ADT 2 BDGCPT    BDGCPT1    
Patient Care Component 1 APCDATC    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 V TRANSACTION CODES(#9000010.33)[1208]    

Pointer To FileMan Files, Total: 11

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    VISIT(#9000010)[.03]    V TRANSACTION CODES(#9000010.33)[1208]    
Utility Tables 3 COMMON ACCOUNTING NUMBER(#9999999.57)[.04]    CPT MODIFIER(#9999999.88)[.12, .15]    REVENUE CODES(#9999999.72)[.09]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
CPT Files 1 CPT(#81)[.07]    
Kernel 1 NEW PERSON(#200)[1202, 1204, 1217, 1219]    
VA Fileman 1 FILE(#1)[1301]    

Fields, Total: 28

Field # Name Loc Type Details
.01 TRANSACTION CODE 0;1 POINTER ** TO AN UNDEFINED FILE **
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 09, 2006
  • HELP-PROMPT:  Enter the type of item.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,4)"
  • EXPLANATION:  Must not be an inactive code.
  • CROSS-REFERENCE:  9000010.33^B
    1)= S ^AUPNVTC("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVTC("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.33^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^.11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,3,1.1) X ^DD(9000010.33,.01,1,3,1.4)
    1.1)= S X=DIV X ^DD(9000010.33,.01,1,3,49.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(201)=$S($D(^BCMTCA(D0,11)):^(11),1:"") S X=$P(Y(201),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=9000010.33,DIG=.11 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(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,3,2.4)
    2.1)= S X=DIV X ^DD(9000010.33,.01,1,3,59.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(201)=$S($D(^BCMTCA(D0,11)):^(11),1:"") S X=$P(Y(201),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=9000010.33,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"")
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"")
    CREATE VALUE)= #.01:#.01:#1101
    DELETE VALUE)= @
    FIELD)= #.11
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,4,1.1) X ^DD(9000010.33,.01,1,4,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S Y(102)=$S($D(^BCMTCF(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,5),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9000010.33,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(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,4,2.4)
    2.1)= S X=DIV X ^DD(9000010.33,.01,1,4,59.2) S Y(101)=X S X=$P(Y(102),U,5),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9000010.33,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^BCMTCF(+D0,0)) D0=-1 S Y(102)=$S($D(^BCMTCF(D0,0)):^(0),1:"")
    CREATE VALUE)= #.01:INTERNAL(#.05)
    DELETE VALUE)= @
    FIELD)= #.04
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^.06
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,5,1.1) X ^DD(9000010.33,.01,1,5,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S Y(101)=$S($D(^BCMTCF(D0,11)):^(11),1:"") S X=$P(Y(101),U,3) S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9000010.33,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(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,5,2.4)
    2.1)= S X=DIV X ^DD(9000010.33,.01,1,5,59.2) S X=$P(Y(101),U,3) S D0=I(0,0)
    2.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9000010.33,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^BCMTCF(+D0,0)) D0=-1 S Y(101)=$S($D(^BCMTCF(D0,11)):^(11),1:"")
    CREATE VALUE)= #.01:#1103
    DELETE VALUE)= @
    FIELD)= #.06
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,6,1.1) X ^DD(9000010.33,.01,1,6,1.4)
    1.1)= S X=DIV X ^DD(9000010.33,.01,1,6,49.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(202)=$S($D(^BCMTCA(D0,0)):^(0),1:""),Y(201)=X S X=$P(Y(202),U,5),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.33,DIG=.05 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(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,6,2.4)
    2.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.33,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"")
    CREATE VALUE)= #.01:#.01:INTERNAL(#.05)
    DELETE VALUE)= @
    FIELD)= #.05
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^.07
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,7,1.1) X ^DD(9000010.33,.01,1,7,1.4)
    1.1)= S X=DIV X ^DD(9000010.33,.01,1,7,49.3) S X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9000010.33,DIG=.07 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(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,7,2.4)
    2.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=9000010.33,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"")
    49.3)= X ^DD(9000010.33,.01,1,7,49.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(202)=$S($D(^BCMTCA(D0,11)):^(11),1:""),Y(201)=X S X=$P(Y(202),U,2)
    CREATE VALUE)= #.01:#.01:INTERNAL(#1102)
    DELETE VALUE)= @
    FIELD)= #.07
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,8,1.1) X ^DD(9000010.33,.01,1,8,1.4)
    1.1)= S X=DIV X ^DD(9000010.33,.01,1,8,49.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(201)=$S($D(^BCMTCA(D0,11)):^(11),1:"") S X=$P(Y(201),U,3) S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9000010.33,DIG=.08 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(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,8,2.4)
    2.1)= S X=DIV X ^DD(9000010.33,.01,1,8,59.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(201)=$S($D(^BCMTCA(D0,11)):^(11),1:"") S X=$P(Y(201),U,3) S D0=I(0,0)
    2.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9000010.33,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"")
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"")
    CREATE VALUE)= #.01:#.01:#1103
    DELETE VALUE)= @
    FIELD)= #.08
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,9,1.1) X ^DD(9000010.33,.01,1,9,1.4)
    1.1)= S X=DIV X ^DD(9000010.33,.01,1,9,49.3) S X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=9000010.33,DIG=.09 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(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,9,2.4)
    2.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=9000010.33,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:"")
    49.3)= X ^DD(9000010.33,.01,1,9,49.2) S D0=$P(Y(101),U,1) S:'$D(^BCMTCA(+D0,0)) D0=-1 S Y(202)=$S($D(^BCMTCA(D0,11)):^(11),1:""),Y(201)=X S X=$P(Y(202),U,4)
    CREATE VALUE)= #.01:#.01:INTERNAL(#1104)
    DELETE VALUE)= @
    FIELD)= #.09
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^.13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,10,1.1) X ^DD(9000010.33,.01,1,10,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BCMTCF(+D0,0)) D0=-1 S Y(102)=$S($D(^BCMTCF(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,9),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=9000010.33,DIG=.13 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(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(9000010.33,.01,1,10,2.4)
    2.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=9000010.33,DIG=.13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= #.01:INTERNAL(#.09)
    DELETE VALUE)= @
    FIELD)= #.13
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^.14
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(9000010.33,.01,1,11,1.1) S DIH=$G(^AUPNVTC(DIV(0),0)),DIV=X S $P(^(0),U,14)=DIV,DIH=9000010.33,DIG=.14 D ^DI
    CR
    1.1)= S X=DIV X ^DD(9000010.33,.01,1,11,49.2) S D0=$P(Y(101),U,1) S:'D0!'$D(^BCMTCA(+D0,0)) D0=-1 S Y(201)=$S($D(^BCMTCA(D0,11)):^(11),1:"") S X=$P(Y(201),U,7) S D0=I(0,0)
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" S DIH=$G(^AUPNVTC(DIV(0),0)),DIV=X S $P(^(0),U,14)=DIV,DIH=9000010.33,DIG=.14 D ^DICR
    49.2)= S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BCMTCF(+D0,0)) D0=-1 S I(100,0)=$G(D0),Y(101)=$S($D(^BCMTCF(D0,0)):^(0),1:""),Y(102)=$G(X)
    CREATE VALUE)= #.01:#.01:#1107
    DELETE VALUE)= @
    FIELD)= #.14
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 05, 1988
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.33^AC
    1)= S ^AUPNVTC("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVTC("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(^AUPNVTC(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 12, 1997
  • 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(^AUPNVTC(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.33^AD
    1)= S ^AUPNVTC("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVTC("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.33^AV11^MUMPS
    1)= Q
    2)= Q
  • CROSS-REFERENCE:  9000010.33^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
CAN #
0;4
POINTER TO COMMON ACCOUNTING NUMBER FILE (#9999999.57)
COMMON ACCOUNTING NUMBER(#9999999.57)
  • LAST EDITED:  MAY 12, 1997
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the TRANSACTION CODE field of the V TRANSACTION CODES File





.05
SERVICE CLASSIFICATION CODE
0;5
POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  MAY 12, 1997
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the TRANSACTION CODE field of the V TRANSACTION CODES File





.06
CHARGE
0;6
NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  MAY 12, 1997
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the TRANSACTION CODE field of the V TRANSACTION CODES File





.07
HCPCS
0;7
POINTER TO CPT FILE (#81)
CPT(#81)
  • LAST EDITED:  MAY 12, 1997
  • NOTES:  TRIGGERED by the TRANSACTION CODE field of the V TRANSACTION CODES File





.08
MODIFIER
0;8
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  AUG 25, 2000
  • HELP-PROMPT:  Answer must be 2 characters in length.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the TRANSACTION CODE field of the V TRANSACTION CODES File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^.12
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9000010.33,.08,1,1,1.1) X ^DD(9000010.33,.08,1,1,1.4)
    1.1)= S X=DIV S X=$S($P(^AUPNVTC(DA,0),U,8)]"":$O(^AUTTCMOD("B",$P(^AUPNVTC(DA,0),U,8),0)),1:"")
    1.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=9000010.33,DIG=.12 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(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(9000010.33,.08,1,1,2.1) X ^DD(9000010.33,.08,1,1,2.4)
    2.1)= S X=DIV S X=$S($P(^AUPNVTC(DA,0),U,8)]"":$O(^AUTTCMOD("B",$P(^AUPNVTC(DA,0),U,8),0)),1:"")
    2.4)= S DIH=$S($D(^AUPNVTC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=9000010.33,DIG=.12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$S($P(^AUPNVTC(DA,0),U,8)]"":$O(^AUTTCMOD("B",$P(^AUPNVTC(DA,0),U,8),0)),1:"")
    DELETE VALUE)= S X=$S($P(^AUPNVTC(DA,0),U,8)]"":$O(^AUTTCMOD("B",$P(^AUPNVTC(DA,0),U,8),0)),1:"")
    FIELD)= #.12





.09
REVENUE CODE
0;9
POINTER TO REVENUE CODES FILE (#9999999.72)
REVENUE CODES(#9999999.72)
  • LAST EDITED:  MAY 12, 1997
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the TRANSACTION CODE field of the V TRANSACTION CODES File





.11
DESCRIPTION
0;11
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  MAY 12, 1997
  • HELP-PROMPT:  Answer must be 1-45 characters in length.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the TRANSACTION CODE field of the V TRANSACTION CODES File





.12
CPT MODIFIER PTR
0;12
POINTER TO CPT MODIFIER FILE (#9999999.88)
CPT MODIFIER(#9999999.88)
  • LAST EDITED:  AUG 25, 2000
  • NOTES:  TRIGGERED by the MODIFIER field of the V TRANSACTION CODES File





.13
DEPARTMENT
0;13
POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  JUN 24, 2002
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the TRANSACTION CODE field of the V TRANSACTION CODES File





.14
MODIFIER 2
0;14
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  JAN 09, 2006
  • HELP-PROMPT:  Answer must be 2 characters in length.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the TRANSACTION CODE field of the V TRANSACTION CODES File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^.15
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y X ^DD(9000010.33,.14,1,1,1.1) S DIH=$G(^AUPNVTC(DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=9000010.33,DIG=.15 D ^DIC
    R
    1.1)= S X=DIV S X=$S($P(^AUPNVTC(DA,0),U,14)]"":$O(^AUTTCMOD("B",$P(^AUPNVTC(DA,0),U,14),0)),1:"")
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y X ^DD(9000010.33,.14,1,1,2.1) S DIH=$G(^AUPNVTC(DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=9000010.33,DIG=.15 D ^DIC
    R
    2.1)= S X=DIV S X=$S($P(^AUPNVTC(DA,0),U,14)]"":$O(^AUTTCMOD("B",$P(^AUPNVTC(DA,0),U,14),0)),1:"")
    CREATE VALUE)= S X=$S($P(^AUPNVTC(DA,0),U,14)]"":$O(^AUTTCMOD("B",$P(^AUPNVTC(DA,0),U,14),0)),1:"")
    DELETE VALUE)= S X=$S($P(^AUPNVTC(DA,0),U,14)]"":$O(^AUTTCMOD("B",$P(^AUPNVTC(DA,0),U,14),0)),1:"")
    FIELD)= #.15





.15
CPT MODIFIER PTR 2
0;15
POINTER TO CPT MODIFIER FILE (#9999999.88)
CPT MODIFIER(#9999999.88)
  • LAST EDITED:  JAN 09, 2006
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the MODIFIER 2 field of the V TRANSACTION CODES File





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 TRANSACTION CODES FILE (#9000010.33)
V TRANSACTION CODES(#9000010.33)
  • LAST EDITED:  JUL 09, 1996





1211
ORDERING DATE
12;11
DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 02, 1998





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.33^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(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.33,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVTC(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.33,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(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.33,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVTC(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.33,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 TRANSACTION CODES 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 TRANSACTION CODES File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.33^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVTC(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.33,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVTC(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.33,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 TRANSACTION CODES 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





1401
UNCODED NARRATIVE
14;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<2) X
  • LAST EDITED:  OCT 12, 2011
  • HELP-PROMPT:  Answer must be 2-80 characters in length.







    



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