Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call