Routine: IBDF17

Information

IBDF17 ;ALB/CJM - ENCOUNTER FORM - COPY A CPT CHECK-OFF SHEET INTO A FORM ;24SEP93

Source Information

Source file <IBDF17.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	3	^DIC FILE^DICN IX1^DIK
Automated Information Collection System	2	$$SLCTFORM^IBDFU4 PAUSE^IBDFU5
DRG Grouper	1	$$CPT^ICPTCOD

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Automated Information Collection System	1	IBDF COPY CPTS TO FORM
Integrated Billing	1	IBDF COPY CPTS TO FORM

Entry Points

Name	Comments	DBIA/ICR reference
SUBCOLS(LIST)	;finds the column containing the CPT code and the text description
COPYGRP(HDR,NODE,LIST)	;copies the header contained in NODE to the selection list (LIST)
CHOOSE(BLOCKS)	;ask the user to choose
COPYPROC(PROC,LIST,GROUP)	;copies the procedure contained to the selection list and group
SLCTSHT()	;allows the user to select a CPT check-off sheet
ASK
FIND(FORM,BLK,LIST)	;finds the block & list for CPT codes
COPY(SHEET,LIST)	;copies the CPT codes/headers from the sheet to the list

External References

Name	Field # of Occurrence
^DIC	SLCTSHT+1
FILE^DICN	COPYGRP+7, COPYPROC+21
IX1^DIK	COPYGRP+12, COPYPROC+33
$$SLCTFORM^IBDFU4	IBDF17+8
PAUSE^IBDFU5	IBDF17+11, COPY+5
$$CPT^ICPTCOD	COPYPROC+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select the encounter form you want to copy CPT codes to!",! Line Location: IBDF17+7
Function Call: WRITE	Prompt: !,"There is no selection list for CPT codes to copy to!" Line Location: IBDF17+11
Function Call: WRITE	Prompt: !,"The CPT selection list does not contain a subcolumn for the CPT code or text!" Line Location: COPY+5
Function Call: WRITE	Prompt: !,I," ",$P($G(^IBE(357.1,+BLOCKS(I),0)),"^") Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Select a block to put the CPT codes: (1-",BLOCKS,"): " Line Location: ASK+1
Routine Call	DIC Line Location: SLCTSHT+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(357.3 - [#357.3]	Classic Fileman Calls
^IBE(357.4 - [#357.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBE(350.71 - [#350.71]	COPY+7, COPYGRP+15, COPYPROC+3
^IBE(357.1 - [#357.1]	IBDF17+17!, FIND+9, ASK
^IBE(357.2 - [#357.2]	SUBCOLS+7, FIND+10
^IBE(357.3 - [#357.3]	COPYPROC+26, COPYPROC+29, COPYPROC+30, COPYPROC+31
^IBE(357.4 - [#357.4]	COPYGRP+10*
^IBE(357.6 - [#357.6]	FIND+5
^SD(409.71	COPYPROC+8

Label References

Name	Line Occurrences
$$CHOOSE	FIND+17
$$SLCTSHT	IBDF17+13
ASK	ASK+5
COPY	IBDF17+19
COPYGRP	COPY+7
COPYPROC	COPYGRP+15
FIND	IBDF17+10
SUBCOLS	COPY+5

Naked Globals

Name	Field # of Occurrence
^("B"	IBDF17+17!
^("H"	IBDF17+17!
^("V"	IBDF17+17!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLK	FIND~, FIND+2, FIND+9, FIND+10, FIND+13, FIND+16, FIND+18*
BLOCK	IBDF17+6~, IBDF17+10, IBDF17+11, IBDF17+17
BLOCKS	FIND+1~, FIND+2, FIND+10, FIND+13, FIND+17, CHOOSE~, ASK+1
BLOCKS(	FIND+10*, FIND+18, ASK, ASK+5
BLOCKS(1	FIND+13
CODE	COPYPROC+2~, COPYPROC+6, COPYPROC+7, COPYPROC+8, COPYPROC+9, COPYPROC+11, COPYPROC+12, COPYPROC+13, COPYPROC+14, COPYPROC+20 , COPYPROC+26, COPYPROC+31
D0	COPYGRP+6!, COPYPROC+20!
DA	COPYGRP+7!, COPYGRP+11!, COPYGRP+12!, COPYPROC+21!, COPYPROC+32!, COPYPROC+33!
DD	COPYGRP+6!, COPYPROC+20!
DIC	COPYGRP+6!, COPYGRP+7!, COPYPROC+20!, COPYPROC+21!, SLCTSHT+1!*
DIC(0	COPYGRP+6, COPYPROC+20, SLCTSHT+1*
DIE	COPYGRP+7!, COPYPROC+21!
DIK	COPYGRP+11!, COPYGRP+12!, COPYPROC+32!, COPYPROC+33!
DINUM	COPYGRP+6!, COPYPROC+20!, SLCTSHT+2
DTIME	ASK+2
>> DUOUT	SLCTSHT+2
FORM	IBDF17+6~, IBDF17+8*, IBDF17+9, IBDF17+10, FIND~, FIND+9
GROUP	COPYGRP+2~, COPYGRP+8*, COPYGRP+9, COPYGRP+10, COPYGRP+11, COPYGRP+15, COPYPROC~, COPYPROC+26
HDR	COPY+2~, COPY+7*, COPYGRP~, COPYGRP+15
HEADER	COPYGRP+2~, COPYGRP+3*, COPYGRP+6, COPYGRP+10
I	FIND+1~, FIND+2, FIND+10, FIND+17, FIND+18, CHOOSE+3~, ASK, ASK+2*, ASK+4, ASK+5 , ASK+6
INTRFACE	FIND+1~, FIND+5*, FIND+6, FIND+10
LIST	IBDF17+6~, IBDF17+10, IBDF17+19, COPY~, COPY+5, COPY+7, COPYGRP~, COPYGRP+10, COPYGRP+15, COPYPROC~ , COPYPROC+26, SUBCOLS~, SUBCOLS+7, FIND~, FIND+2, FIND+10, FIND+13, FIND+16, FIND+18*
LIST("CODESC"	COPY+5, COPYPROC+31, SUBCOLS+2, SUBCOLS+7
LIST("TEXTSC"	COPY+5, COPYPROC+30, SUBCOLS+2, SUBCOLS+7
NODE	COPY+2~, COPY+7, COPYGRP~, COPYGRP+3, COPYPROC+2~, COPYPROC+3, COPYPROC+6, COPYPROC+17, SUBCOLS+4~, SUBCOLS+7*
ORDER	COPYGRP+2~, COPYGRP+3, COPYGRP+10, COPYPROC+2~, COPYPROC+17, COPYPROC+26
PIECE	SUBCOLS+4~, SUBCOLS+7*
PROC	COPYGRP+2~, COPYGRP+15*, COPYPROC~, COPYPROC+3
SC	SUBCOLS+4~, SUBCOLS+7
SHEET	IBDF17+6~, IBDF17+13*, IBDF17+14, IBDF17+19, COPY~, COPY+7
SLCTN	COPYPROC+2~, COPYPROC+22*, COPYPROC+23, COPYPROC+26, COPYPROC+29, COPYPROC+30, COPYPROC+31, COPYPROC+32
TEXT	COPYPROC+2~, COPYPROC+17*, COPYPROC+30
TYPE	COPY+2~, COPY+7*
>> X	COPYGRP+6, COPYPROC+20
>> Y	COPYGRP+8, COPYPROC+22, SLCTSHT+2, SLCTSHT+3

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF17

Call Graph Total: 6

Caller Graph Total: 2