Global: ^IBE(357.69

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

Directly Accessed By Routines, Total: 16

Package	Total	Routines
Automated Information Collection System	8	IBD3KPT IBDFLST ^IBE(357.69 ^SDAUDIT IBDFC2B IBDFN14 IBDFN7 IBDFUTL1
PCE Patient Care Encounter	5	PX10118P 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*

Customize PDF page

Package: Automated Information Collection System

Global: ^IBE(357.69

Information

Description

Directly Accessed By Routines, Total: 16

Accessed By FileMan Db Calls, Total: 7

Pointer To FileMan Files, Total: 1

Fields, Total: 7

Found Entries, Total: 220

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: