Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBDF17

Package: Automated Information Collection System

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All