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

Package: Fee Basis

Routine: FBICDP


Information

FBICDP ;AISC/JAS - ICD-9 & 10 PROCEDURE CODE UTILITIES ;9/26/2013

Source Information

Source file <FBICDP.m>

Entry Points

Name Comments DBIA/ICR reference
ENICD9(FBIDT,FBPRMT,FBALW,ALDEL,ALFREQ,FBDFLT) ; prompt user for ICD procedure code and test if code is inactive
SRCH1 ;
SEARCH(FBINDT) ;
CHKVERS(FBDIRY,FBDT) ; return true (1) if procedure code is a current versioned Proc 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 Proc 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