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
Print Page as PDF
Routine: FBICD9

Package: Fee Basis

Routine: FBICD9


Information

FBICD9 ;AISC/JLG - ICD-9 DIAGNOSIS CODE UTILITIES ;3/14/2013

Source Information

Source file <FBICD9.m>

Entry Points

Name Comments DBIA/ICR reference
ENICD9(FBIDT,FBPRMT,FBALW,ALDEL,ALFREQ,FBDFLT) ; prompt user for ICD9 diagnosis code and test if code is inactive
SRCH1 ;
SEARCH(FBINDT) ;
CHKVERS(FBDIRY,FBDT) ; return true (1) if diagnosis code is a current versioned ICD code, otherwise return false (0)
ICD9ACT(IEN,FBDT) ;Is the given code active for the date? (default-today)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"ICD Dx Code "_"("_$P(Y,U,2)_")"_" inactive on date of service ("_$$FMTE^XLFDT(FBIDT)_").",!
  • Line Location: SRCH1+3
Function Call: WRITE
  • Prompt: "?? REQUIRED"
  • Line Location: SEARCH+6
Function Call: WRITE
  • Prompt: " <NOTHING DELETED>"
  • Line Location: SEARCH+10
Function Call: WRITE
  • Prompt: "??"
  • Line Location: SEARCH+11
Function Call: WRITE
  • Prompt: !,?4,"EXIT NOT ALLOWED ??"
  • Line Location: SEARCH+13
Info |  Source |  Entry Points |  Interaction Calls