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 |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AUTTCMOD

Package: Utility Tables

Global: ^AUTTCMOD


Information

FileMan FileNo FileMan Filename Package
9999999.88 CPT MODIFIER Utility Tables

Description

Directly Accessed By Routines, Total: 32

Package Total Routines
IHS GPRA Information System 19 BGP0D4    BGP1D27    BGP1D4    BGP2D27    BGP2D4    BGP3D27    BGP3D4    BGP4D27
BGP4D4    BGP5D27    BGP5D4    BGP6D27    BGP6D4    BGP7D27    BGP7D4    BGP8D21A
BGP8D27    BGP8D4    BGP9D4    
CPT Files 6 ACPT24P2    ACPT27FX    ACPT28PD    ACPT291L    ACPTPOST    ACPTPST2    
GUI Objects 2 BGOVCPT2    BGOVTC    
IHS Code Set Versioning 2 BCSVIN    BCSVMD    
Diabetes Registry 1 BDMLPM    
IHS ICD CPT Lookup and Grouper 1 AICD11UT    
iCare 1 BQIVFTLK    

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
CPT Files 7 ACPT24P1    ACPT24P2    ACPT27FX    ACPT28PA    ACPT29P1    ACPTPOST    ACPTPST2    
Third Party Billing 1 ABMCVAPI    

Pointed To By FileMan Files, Total: 5

Package Total FileMan Files
IHS Patient 3 V CPT(#9000010.18)[.08.09]    V RADIOLOGY(#9000010.22)[.07.08]    V TRANSACTION CODES(#9000010.33)[.12.15]    
GUI Objects 1 BGO CPT PREFERENCES(#90362.31)[#90362.312(1)#90362.3121(.01)]    
Third Party Billing 1 3P MODIFIERS(#9002274.07)[.01]    

Fields, Total: 2

Field # Name Loc Type Details
.01 CODE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2UN) X S:$D(X) DINUM=$S(X=+X:X,1:$A($E(X))_$A($E(X,2)))
  • LAST EDITED:  APR 28, 1997
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DELETE TEST:  .01,0)= I 1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002274.07^B
    1)= S ^AUTTCMOD("B",$E(X,1,30),DA)=""
    2)= K ^AUTTCMOD("B",$E(X,1,30),DA)
.02 DESCRIPTION 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>150!($L(X)<1) X
  • LAST EDITED:  APR 25, 1997
  • HELP-PROMPT:  Answer must be 1-150 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9999999.88^C^KWIC
    1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^AUTTCMOD("C",I,DA)=""
    2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^AUTTCMOD("C",I,DA)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  Found Entries |  All