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: IBDFN4

Package: Automated Information Collection System

Routine: IBDFN4


Information

IBDFN4 ;ALB/CJM - ENCOUNTER FORM - (entry points for selection routines) ;5/21/93

Source Information

Source file <IBDFN4.m>

Entry Points

Name Comments DBIA/ICR reference
CPT ;select ambulatory procedures
CPTSCRN ;This code is probably not called, but will modify to be safe.
ICD9 ;select ICD-9 codes
ICD9SCRN ;This code is probably not called, but will modify to be safe.
NULL ;returns NOTHING for selection
VSIT ; -- Select only visit cpt codes
PRVDR ;for selecting provider
IBPFID ;for printing the form # assigned by form tracking
PCPR ; -- get primary care provider for a patient
PCTM ; -- get primary care team for a patient
SCCOND ; -- display sc conditions
CPTMOD ;- Select active CPT Modifiers
ICD10 ; Wildcard search for ICD-10 codes.
WCSEARCH(IBDAUTO) ;
SELECT(IBDBEGN,IBDCNT,IBDQUIT,IBDNDEX,IBDSEL,IBDCONTU) ;
ADDGROUP(IBDQUIT,IBDSLIEN,IBDEXTCD) ;
ASSOCIAT(Y,IBDOUT) ;
DISPLAY ;
GETDSCR(IBDCSYS,IBDCODE,IBDT) ;
GETIDX(IBDCSYS,IBDCODE,IBDT) ;
SETMSG(IBDSLIEN,IBDCODE,IBDX,IBDSUB) ;
KILL3573(IBDSEL) ;
OKPROMPT(IBDONE,IBDCODE,IBDX,IBDQUIT,IBDNO) ;
LXSEARCH ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SCCOND+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ICD10+8
Function Call: WRITE
  • Prompt: !!,"Continue to select from the (# of items in list) ICD-10 diagnoses"
  • Line Location: ICD10+40
Function Call: WRITE
  • Prompt: !,"Now for another!"
  • Line Location: ICD10+46
Function Call: WRITE
  • Prompt: !
  • Line Location: WCSEARCH+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WCSEARCH+13
Function Call: WRITE
  • Prompt: !!,"Automatic selection continued:",!
  • Line Location: WCSEARCH+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WCSEARCH+33
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SELECT+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SELECT+19
Function Call: WRITE
  • Prompt: !,"Do you really want to select "_IBDTEXT
  • Line Location: SELECT+30
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+33
Function Call: WRITE
  • Prompt: !!,"Selected list continued:",!
  • Line Location: SELECT+35
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDGROUP+2
Function Call: WRITE
  • Prompt: !,"Data location not established. Unable to file data."
  • Line Location: ADDGROUP+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASSOCIAT+11
Function Call: WRITE
  • Prompt: !,"There are "_IBDNOE_" associated codes beginning with "_IBDANS_":"
  • Line Location: ASSOCIAT+12
Function Call: WRITE
  • Prompt: !,IBDCNT_".",?4,IBDCODE,?15,IBDX
  • Line Location: ASSOCIAT+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASSOCIAT+30
Function Call: WRITE
  • Prompt: !,?4,IBDCODE,?15,IBDX
  • Line Location: ASSOCIAT+43
Function Call: WRITE
  • Prompt: !!,^TMP("IBDFN4_DISPLAY",$J,0)_" Diagnosis Added.",!
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+20
Function Call: WRITE
  • Prompt: !
  • Line Location: OKPROMPT+15
Function Call: WRITE
  • Prompt: !!,IBDPARAM("NO DATA FOUND"),!,IBDPARAM("NO DATA FOUND 2"),!
  • Line Location: LXSEARCH+15

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
^IBE(357.69 - [#357.69] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call