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 |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^IBE(357.69

Package: Automated Information Collection System

Global: ^IBE(357.69


Information

FileMan FileNo FileMan Filename Package
357.69 TYPE OF VISIT Automated Information Collection System

Description

Directly Accessed By Routines, Total: 16

Package Total Routines
Automated Information Collection System 7 IBDFN14    ^IBE(357.69    IBD3KPT    IBDFC2B    IBDFLST    IBDFN7    IBDFUTL1    
PCE Patient Care Encounter 6 PX10118P    PXAICPT    PXBPCPT    PXBPQUA    PXRRPCE1    PXRRWLS2    
Integrated Billing 2 IB20P478    IB20P507    
Scheduling 1 SCRPW241    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
PCE Patient Care Encounter 3 PXBPQUA    PXCECPT    PXCEVFI1    
Automated Information Collection System 2 IBDFN4    IBDFUTL    
Integrated Billing 2 IB20P478    IB20P507    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
CPT HCPCS Codes 1 CPT(#81)[.01]    

Fields, Total: 7

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

  • INPUT TRANSFORM:  S DIC("S")="I $P($$CPT^ICPTCOD(Y),U,7)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  MAY 19, 2003
  • HELP-PROMPT:  Enter the name of the code
  • DESCRIPTION:  
    Enter the Type of Visit CPT code.  These currently all begin with 992.  This is sometimes refered to as the Level of Care CPT.
  • SCREEN:  S DIC("S")="I $P($$CPT^ICPTCOD(Y),U,7)=1"
  • EXPLANATION:  Only Active Evaluation and Management CPT codes between 99200 and 99499 are selectable.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  357.69^B
    1)= S ^IBE(357.69,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(357.69,"B",$E(X,1,30),DA)
.015 SHORT NAME COMPUTED

  • MUMPS CODE:  I $G(D0) S X=$P($$CPT^ICPTCOD(D0),U,3)
    9.2 = S Y(357.69,.015,80)=$S($D(D0):D0,1:""),Y(357.69,.015,1)=$S($D(^IBE(357.69,D0,0)):^(0),1:""),D0=$P(Y(357.69,.015,1),U,1) S:'$D(^ICPT(+D0,0)) D0=-1
  • ALGORITHM:  I $G(D0) S X=$P($$CPT^ICPTCOD(D0),U,3)
  • LAST EDITED:  JUN 04, 2015
  • DESCRIPTION:  
    This field displays the SHORT NAME of the Visit CPT stored in the CPT file.
  • TECHNICAL DESCR:  
    This field uses the $$CPT^ICPTCOD API to return the Short Name from the SHORT NAME (VERSIONED) (#61) field in the CPT (#81) file. Permission to use this API is granted in ICR #1995.
.02 RECOMMENDED HEADER 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  OCT 14, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    The header recommended for use when designing a form.
.03 RECOMMENDED TEXT 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  OCT 14, 1994
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
  • DESCRIPTION:  
    The text that is recommended for use on a form when using this code.
.04 INACTIVE FLAG 0;4 SET
  • '1' FOR YES;

  • LAST EDITED:  OCT 26, 1994
  • HELP-PROMPT:  Set this flag when the code should no longer be used for type of visit.
  • DESCRIPTION:  
    This field should be set to '1' when the code should no longer be used.  Codes should not be deleted from this file.
.05 NEW,ESTABLISHED,CONSULT 0;5 SET
  • '1' FOR NEW;
  • '2' FOR ESTABLISHED;
  • '3' FOR CONSULT;
  • '9' FOR OTHER;

  • LAST EDITED:  MAY 14, 1996
  • HELP-PROMPT:  Enter the grouping for type of patient encounter
  • DESCRIPTION:  This field will be used to group encounter types for summary report purposes. All Type of visit records which relate to NEW, ESTABLISHED or CONSULT encounters, whether the encounter was In-Office, In-Home, Eye Care,
    Preventive, Domicilliary etc. in nature, will be grouped as NEW, ESTABLISHED or CONSULT.
.06 ALLOW QUANTITY GREATER THAN 1 0;6 SET
  • 'N' FOR NO;
  • 'Y' FOR YES;

  • LAST EDITED:  MAY 13, 2004
  • HELP-PROMPT:  Entry of YES allows more than one unit(quantity) be entered.

Found Entries, Total: 220

CODE: 81^77419    CODE: 81^77420    CODE: 81^77425    CODE: 81^77430    CODE: 81^77431    CODE: 81^77432    CODE: 81^90801    CODE: 81^90820    
CODE: 81^90825    CODE: 81^90830    CODE: 81^90835    CODE: 81^90841    CODE: 81^90842    CODE: 81^90843    CODE: 81^90844    CODE: 81^90845    
CODE: 81^90847    CODE: 81^90849    CODE: 81^90853    CODE: 81^90855    CODE: 81^90857    CODE: 81^90862    CODE: 81^92002    CODE: 81^92004    
CODE: 81^92012    CODE: 81^92014    CODE: 81^97700    CODE: 81^97701    CODE: 81^99024    CODE: 81^99025    CODE: 81^99050    CODE: 81^99052    
CODE: 81^99054    CODE: 81^99056    CODE: 81^99058    CODE: 81^99201    CODE: 81^99202    CODE: 81^99203    CODE: 81^99204    CODE: 81^99205    
CODE: 81^99211    CODE: 81^99212    CODE: 81^99213    CODE: 81^99214    CODE: 81^99215    CODE: 81^99217    CODE: 81^99218    CODE: 81^99219    
CODE: 81^99220    CODE: 81^99221    CODE: 81^99222    CODE: 81^99223    CODE: 81^99224    CODE: 81^99225    CODE: 81^99226    CODE: 81^99231    
CODE: 81^99232    CODE: 81^99233    CODE: 81^99234    CODE: 81^99235    CODE: 81^99236    CODE: 81^99238    CODE: 81^99239    CODE: 81^99241    
CODE: 81^99242    CODE: 81^99243    CODE: 81^99244    CODE: 81^99245    CODE: 81^99251    CODE: 81^99252    CODE: 81^99253    CODE: 81^99254    
CODE: 81^99255    CODE: 81^99261    CODE: 81^99262    CODE: 81^99263    CODE: 81^99271    CODE: 81^99272    CODE: 81^99273    CODE: 81^99274    
CODE: 81^99275    CODE: 81^99281    CODE: 81^99282    CODE: 81^99283    CODE: 81^99284    CODE: 81^99285    CODE: 81^99288    CODE: 81^99291    
CODE: 81^99292    CODE: 81^99295    CODE: 81^99296    CODE: 81^99297    CODE: 81^99301    CODE: 81^99302    CODE: 81^99303    CODE: 81^99304    
CODE: 81^99305    CODE: 81^99306    CODE: 81^99307    CODE: 81^99308    CODE: 81^99309    CODE: 81^99310    CODE: 81^99311    CODE: 81^99312    
CODE: 81^99313    CODE: 81^99315    CODE: 81^99316    CODE: 81^99318    CODE: 81^99321    CODE: 81^99322    CODE: 81^99323    CODE: 81^99324    
CODE: 81^99325    CODE: 81^99326    CODE: 81^99327    CODE: 81^99328    CODE: 81^99331    CODE: 81^99332    CODE: 81^99333    CODE: 81^99334    
CODE: 81^99335    CODE: 81^99336    CODE: 81^99337    CODE: 81^99339    CODE: 81^99340    CODE: 81^99341    CODE: 81^99342    CODE: 81^99343    
CODE: 81^99344    CODE: 81^99345    CODE: 81^99347    CODE: 81^99348    CODE: 81^99349    CODE: 81^99350    CODE: 81^99351    CODE: 81^99352    
CODE: 81^99353    CODE: 81^99354    CODE: 81^99355    CODE: 81^99356    CODE: 81^99357    CODE: 81^99358    CODE: 81^99359    CODE: 81^99360    
CODE: 81^99361    CODE: 81^99362    CODE: 81^99363    CODE: 81^99364    CODE: 81^99366    CODE: 81^99367    CODE: 81^99368    CODE: 81^99371    
CODE: 81^99372    CODE: 81^99373    CODE: 81^99374    CODE: 81^99375    CODE: 81^99376    CODE: 81^99377    CODE: 81^99378    CODE: 81^99379    
CODE: 81^99380    CODE: 81^99381    CODE: 81^99382    CODE: 81^99383    CODE: 81^99384    CODE: 81^99385    CODE: 81^99386    CODE: 81^99387    
CODE: 81^99391    CODE: 81^99392    CODE: 81^99393    CODE: 81^99394    CODE: 81^99395    CODE: 81^99396    CODE: 81^99397    CODE: 81^99401    
CODE: 81^99402    CODE: 81^99403    CODE: 81^99404    CODE: 81^99406    CODE: 81^99407    CODE: 81^99408    CODE: 81^99409    CODE: 81^99411    
CODE: 81^99412    CODE: 81^99420    CODE: 81^99429    CODE: 81^99431    CODE: 81^99432    CODE: 81^99433    CODE: 81^99440    CODE: 81^99450    
CODE: 81^99455    CODE: 81^99456    CODE: 81^99460    CODE: 81^99461    CODE: 81^99462    CODE: 81^99463    CODE: 81^99464    CODE: 81^99465    
CODE: 81^99466    CODE: 81^99467    CODE: 81^99468    CODE: 81^99469    CODE: 81^99471    CODE: 81^99472    CODE: 81^99475    CODE: 81^99476    
CODE: 81^99477    CODE: 81^99478    CODE: 81^99479    CODE: 81^99480    CODE: 81^99485    CODE: 81^99486    CODE: 81^99487    CODE: 81^99488    
CODE: 81^99489    CODE: 81^99495    CODE: 81^99496    CODE: 81^99499    

External References

Name Field # of Occurrence
EN^DDIOL IDWRITE+1
^DIC .01+1
$$CPT^ICPTCOD .015+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357.69 - [#357.69] .01(XREF 1S), .01(XREF 1K), .015OF9.2+1
^ICPT - [#81] .015OF9.2+1

Naked Globals

Name Field # of Occurrence
^(0 IDWRITE+1, .015OF9.2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 .015+1, .015OF9.2+1*
>> DA .01(XREF 1S), .01(XREF 1K)
DIC .01+1!*
DIC("S" .01+1*, .01SCR+1*
>> DIE .01+1
>> DINUM .01+1*
U IDWRITE+1, .015+1, .015OF9.2+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .015+1*, .02+1!, .03+1!
>> Y .01+1
>> Y( .015OF9.2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All