Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 2 ^DIC  ^DIR  
DRG Grouper 1 ($$FILE,$$ICDDX,$$ROOT,$$SYS)^ICDEX  
Fee Basis 1 $$QUESTION^FBASF  
Kernel 1 $$FMTE^XLFDT  
Lexicon Utility 1 $$IMPDATE^LEXU  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Fee Basis 2 FBAACO2  FBAAMP1  

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)

External References

Name Field # of Occurrence
^DIC SEARCH+22
^DIR SEARCH+5
$$QUESTION^FBASF SEARCH+9
$$FILE^ICDEX SEARCH+16
$$ICDDX^ICDEX SEARCH+1, CHKVERS+3, ICD9ACT+4
$$ROOT^ICDEX SEARCH+17
$$SYS^ICDEX SEARCH+20
$$IMPDATE^LEXU CHKVERS+2
$$FMTE^XLFDT SRCH1+3

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
Routine Call
  • DIC
  • Line Location:
    • SEARCH+22
Routine Call
  • DIR
  • Line Location:
    • SEARCH+5

Label References

Name Line Occurrences
$$ICD9ACT SRCH1+2
$$SEARCH SRCH1+1
SRCH1 SEARCH+6, SEARCH+8, SEARCH+11, SEARCH+13, SEARCH+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALDEL ENICD9~, ENICD9+3*, SEARCH+7*, SEARCH+8
ALFREQ ENICD9~, ENICD9+4*, SEARCH+6
DIC ENICD9+1~, SEARCH+17*, SEARCH+22!
DIC("S" SEARCH+18*
DIC(0 SEARCH+22*
DIR ENICD9+1~, SEARCH+5!
DIR("?" SEARCH+4*
DIR("A" SEARCH+1*, SEARCH+2*
DIR(0 SEARCH+3*
DISFIL SEARCH+14~, SEARCH+15*, SEARCH+21*, SEARCH+22
DLAYGO SEARCH+21!
DT ICD9ACT+2
FBALW ENICD9~, ENICD9+2*, SEARCH+12
FBDFLT ENICD9~, SEARCH+1, SEARCH+7
FBDIRY CHKVERS~, CHKVERS+3
FBDT CHKVERS~, CHKVERS+2, CHKVERS+3, ICD9ACT~, ICD9ACT+2*, ICD9ACT+4
FBIC9SYS CHKVERS+1~, CHKVERS+3*, CHKVERS+4
FBICDSYS CHKVERS+1~, CHKVERS+2*, CHKVERS+4
FBIDT ENICD9~, SRCH1+1, SRCH1+2, SRCH1+3, SEARCH+1
FBINDT SEARCH~, SEARCH+19
FBINF CHKVERS+1~, ICD9ACT+1~, ICD9ACT+4*, ICD9ACT+5
FBPRMT ENICD9~, SEARCH+1, SEARCH+2
FBRES ICD9ACT+1~, ICD9ACT+3*, ICD9ACT+5*, ICD9ACT+6
FBYN SEARCH+8~, SEARCH+9*, SEARCH+10
FILE SEARCH+14~, SEARCH+16*, SEARCH+17, SEARCH+20
FILEID SEARCH+14~, SEARCH+15*, SEARCH+16
ICDFMT SEARCH+22!
ICDSYS SEARCH+20*, SEARCH+22!
ICDVDT SEARCH+14~, SEARCH+19*, SEARCH+20
IEN ICD9ACT~, ICD9ACT+4
ROOT SEARCH+14~, SEARCH+17*
SCREEN SEARCH+14~, SEARCH+15*, SEARCH+18
SYS SEARCH+14~, SEARCH+20*
U SRCH1+3, CHKVERS+3, ICD9ACT+5
X ENICD9+1~, SEARCH+6, SEARCH+7, SEARCH+8, SEARCH+11, SEARCH+12, SEARCH+13, SEARCH+24
Y ENICD9+1~, SRCH1+1*, SRCH1+2, SRCH1+3, SRCH1+4*, SRCH1+6, SEARCH+23*, SEARCH+24, SEARCH+25
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All