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

Package: Fee Basis

Routine: FBASFU


Information

FBASFU ;AISC/JLG - UTILITIES FOR ICD10 DIAGNOSIS CODE ASF (Advanced Search Functionality) ;3/26/2012

Source Information

Source file <FBASFU.m>

Entry Points

Name Comments DBIA/ICR reference
REQFLD(FBFILE,FBFLD)
GETVAL(FBFILE,FBIEN,FBFLD)
GETDC(FBFILE,FBDFN,FBIEN) ;
; 161.01 is the sub-field authorization in fee basis patient file
GETDCUC(FBFILE,FBIEN) ;
STATCHK(ICDCODE,ICDDT) ;
PRTICD10(ICDREC) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: STATCHK+14
Function Call: WRITE
  • Prompt: !,*7," Code is inactive"
  • Line Location: STATCHK+15
Function Call: WRITE
  • Prompt: " on "_$$FMTE^XLFDT(ICDDT)
  • Condition for execution: $G(ICDDT)>0
  • Line Location: STATCHK+15
Function Call: WRITE
  • Prompt: !,"One match found",!
  • Line Location: PRTICD10+2
Function Call: WRITE
  • Prompt: !," ICD Diagnosis code: "_$P($P(ICDREC,U,1),";",2)
  • Line Location: PRTICD10+3
Function Call: WRITE
  • Prompt: !," ICD Diagnosis description: "_PRTLN(I)
  • Line Location: PRTICD10+9
Function Call: WRITE
  • Prompt: !,?PRTLEN,PRTLN(I)
  • Line Location: PRTICD10+10
Info |  Source |  Entry Points |  Interaction Calls