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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: FBASF

Package: Fee Basis

Routine: FBASF


Information

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

Source Information

Source file <FBASF.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Fee Basis 3 $$QUESTION^FBASF  $$SEL^FBASFL  ($$GETDC,$$GETDCUC,$$GETVAL,$$PRTICD10,$$REQFLD,$$STATCHK)^FBASFU  
Lexicon Utility 2 $$DIAGSRCH^LEX10CS  ($$FREQ,$$MAX)^LEXU  
VA FileMan 2 ^DIR  ^DIWP  
DRG Grouper 1 $$CODEN^ICDEX  

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

Package Total Caller Graph
Fee Basis 8 FBAACO2  FBAAMP1  FBASF  FBASFU  FBCTAU1  FBICD9  FBICDP  FBPRICE1  

Entry Points

Name Comments DBIA/ICR reference
ASKICD10(DXPRMPT,LNNUM,ALWUPA,ALDEL,ALFREQ) ;
EN(EFFDATE,X) ; -- params 1-date of interest 2-diagnosis code
EN1 ;
DIAG10(FBDT,FBDFLT,FBPARAM) ;
ASKAGAIN ;
ISMATCH(FBDCDE) ;
LEXICD10(FBTXT,FBDATE,FBPAR) ; ICD-10 Search
INPHLP ;
INPHLP2 ;
INPHLP3 ;
QUESTION(FBDFLT,FBPROM,FBHELP) ;
SRCHSTR(FBPRMT,FBHLP1,FBHLP2,FBDFLT) ;
SETPARAM(FBPAR) ;
FORMWRIT(X,FBMODE) ;
EXIT ;

External References

Name Field # of Occurrence
^DIR QUESTION+5, SRCHSTR+7
^DIWP FORMWRIT+5
$$QUESTION^FBASF ASKAGAIN+12
$$SEL^FBASFL LEXICD10+29
$$GETDC^FBASFU EN+6
$$GETDCUC^FBASFU EN+8
$$GETVAL^FBASFU EN+9
$$PRTICD10^FBASFU EN1+4
$$REQFLD^FBASFU ASKAGAIN+7
$$STATCHK^FBASFU ASKAGAIN+22
$$CODEN^ICDEX ISMATCH+2
$$DIAGSRCH^LEX10CS LEXICD10+22
$$FREQ^LEXU LEXICD10+8
$$MAX^LEXU LEXICD10+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,FBPARAM("ENTER MORE")
  • Line Location: ASKAGAIN+3
Function Call: WRITE
  • Prompt: !,FBPARAM("ENTER MORE2")
  • Condition for execution: $L(FBPARAM("ENTER MORE2"))>0
  • Line Location: ASKAGAIN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKAGAIN+3
Function Call: WRITE
  • Prompt: FBPARAM("REQUIRED")
  • Line Location: ASKAGAIN+9
Function Call: WRITE
  • Prompt: FBPARAM("NOTHING DELETED")
  • Line Location: ASKAGAIN+13
Function Call: WRITE
  • Prompt: "??"
  • Line Location: ASKAGAIN+14
Function Call: WRITE
  • Prompt: !,FBPARAM("EXIT NOT ALLOWED")
  • Line Location: ASKAGAIN+15
Function Call: WRITE
  • Prompt: "??"
  • Line Location: ASKAGAIN+18
Function Call: WRITE
  • Prompt: !,FBPARAM("ENTER ADM DIAG")
  • Line Location: ASKAGAIN+19
Function Call: WRITE
  • Prompt: !,FBPARAM("EXIT NOT ALLOWED")
  • Line Location: ASKAGAIN+21
Function Call: WRITE
  • Prompt: !,FBPARAM("NO MATCHES FOUND")
  • Line Location: ASKAGAIN+27
Function Call: WRITE
  • Prompt: !," ",FBPARAM("ENTER ADM DIAG")
  • Line Location: ASKAGAIN+27
Function Call: WRITE
  • Prompt: !," Enter code or ""text"" for more information."
  • Line Location: INPHLP+3
Function Call: WRITE
  • Prompt: !," Enter a ""free text"" term or part of a term such as ""femur fracture""."
  • Line Location: INPHLP2+1
Function Call: WRITE
  • Prompt: !!," or "
  • Line Location: INPHLP2+2
Function Call: WRITE
  • Prompt: !!," Enter a ""classification code"" (ICD/CPT etc) to find the single term"
  • Line Location: INPHLP2+3
Function Call: WRITE
  • Prompt: !," associated with the code."
  • Line Location: INPHLP2+4
Function Call: WRITE
  • Prompt: !!," or "
  • Line Location: INPHLP2+5
Function Call: WRITE
  • Prompt: !!," Enter a ""partial code"". Include the decimal when a search criterion"
  • Line Location: INPHLP2+6
Function Call: WRITE
  • Prompt: !," includes 3 characters or more for code searches."
  • Line Location: INPHLP2+7
Function Call: WRITE
  • Prompt: !," Number of Code Matches"
  • Line Location: INPHLP3+1
Function Call: WRITE
  • Prompt: !," ----------------------"
  • Line Location: INPHLP3+2
Function Call: WRITE
  • Prompt: !!," The ICD-10 Diagnosis Code search will show the user the number of matches"
  • Line Location: INPHLP3+3
Function Call: WRITE
  • Prompt: !," found, indicate if additional characters in ICD code exist, and the number"
  • Line Location: INPHLP3+4
Function Call: WRITE
  • Prompt: !," of codes within the category or subcategory that are available for selection."
  • Line Location: INPHLP3+5
Function Call: WRITE
  • Prompt: !," For example:"
  • Line Location: INPHLP3+6
Function Call: WRITE
  • Prompt: !!," 14 matches found"
  • Line Location: INPHLP3+7
Function Call: WRITE
  • Prompt: !!," M91. - Juvenile osteochondrosis of hip and pelvis (19)"
  • Line Location: INPHLP3+8
Function Call: WRITE
  • Prompt: !!," This indicates that 14 unique matches or matching groups have been found"
  • Line Location: INPHLP3+9
Function Call: WRITE
  • Prompt: !," and will be displayed."
  • Line Location: INPHLP3+10
Function Call: WRITE
  • Prompt: !!," M91. - the ""-"" indicates that there are additional characters that specify"
  • Line Location: INPHLP3+11
Function Call: WRITE
  • Prompt: !," unique ICD-10 codes available."
  • Line Location: INPHLP3+12
Function Call: WRITE
  • Prompt: !!," (19) Indicates that there are 19 additional ICD-10 codes in the M91 ""family"""
  • Line Location: INPHLP3+13
Function Call: WRITE
  • Prompt: !," that are possible selections."
  • Line Location: INPHLP3+14
Function Call: WRITE
  • Prompt: !,$G(^UTILITY($J,"W",1,FBLI1,0))
  • Line Location: FORMWRIT+8
Routine Call
  • DIR
  • Line Location:
    • QUESTION+5
    • SRCHSTR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY($J FORMWRIT+3!, FORMWRIT+8, FORMWRIT+9!

Label References

Name Line Occurrences
$$DIAG10 EN1+1
$$EN ASKICD10+3
$$ISMATCH ASKAGAIN+24
$$LEXICD10 ASKAGAIN+25
$$QUESTION LEXICD10+9
$$SRCHSTR ASKAGAIN+1
ASKAGAIN ASKAGAIN+3, ASKAGAIN+9, ASKAGAIN+11, ASKAGAIN+14, ASKAGAIN+15, ASKAGAIN+20, ASKAGAIN+21, ASKAGAIN+23, ASKAGAIN+26, ASKAGAIN+28
, ASKAGAIN+29
EN1 EN1+6
EXIT ASKICD10+4
FORMWRIT LEXICD10+10, LEXICD10+11
INPHLP2 INPHLP+2
INPHLP3 INPHLP+1
SETPARAM EN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUESTION+2*, QUESTION+3, EXIT+1!
%Y EXIT+1!
ALDEL ASKICD10~, DIAG10+3*, ASKAGAIN+10*, ASKAGAIN+11
ALFREQ ASKICD10~, DIAG10+4*, ASKAGAIN+8
ALWUPA ASKICD10~, DIAG10+2*, ASKAGAIN+6
>> DA EN+3
>> DFN EN+4
DIC EXIT+1!
DIR QUESTION+1~, SRCHSTR+1~, EXIT+1!
DIR("?" QUESTION+4*, SRCHSTR+3*
DIR("??" SRCHSTR+4*
DIR("A" QUESTION+3*, SRCHSTR+2*
DIR("B" QUESTION+3*, SRCHSTR+5*
DIR(0 QUESTION+3*, SRCHSTR+6*
DIROUT LEXICD10+13~, EXIT+1!
DIRUT EXIT+1!
DIWL FORMWRIT+4*, EXIT+1!
DIWR FORMWRIT+4*, EXIT+1!
>> DP EN+3
DTOUT LEXICD10+13~, SRCHSTR+8, EXIT+1!
DUOUT LEXICD10+13~, SRCHSTR+9, EXIT+1!
DXPRMPT ASKICD10~, ASKICD10+2, EXIT+1!
>> EDATE ASKICD10+3
EFFDATE EN~, EN+3
FBCSYS EN+1~
FBDATE LEXICD10~, LEXICD10+3*, LEXICD10+4, LEXICD10+22
FBDC ASKICD10+1~*, ASKICD10+3
FBDCDE ISMATCH~, ISMATCH+2
FBDFLT EN+3*, EN+6*, EN+8*, EN+9*, EN1+1, DIAG10~, ASKAGAIN+1, ASKAGAIN+10, QUESTION~, QUESTION+2
, SRCHSTR~, SRCHSTR+5, EXIT+1!
FBDFN EN+1~, EN+4*, EN+6
FBDT EN+3*, EN1+1, DIAG10~, ASKAGAIN+22, ASKAGAIN+25, EXIT+1!
FBEXIT LEXICD10+13~, LEXICD10+16*, LEXICD10+19, LEXICD10+25*, LEXICD10+32*, LEXICD10+36*, LEXICD10+38*
FBFILE EN+3*, EN+6, EN+8, EN+9, ASKAGAIN+7, EXIT+1!
FBHELP QUESTION~, QUESTION+4
FBHLP1 SRCHSTR~, SRCHSTR+3
FBHLP2 SRCHSTR~, SRCHSTR+4
FBICDNT LEXICD10+13~
FBICDY LEXICD10+20!, LEXICD10+22*, LEXICD10+23*, LEXICD10+25, LEXICD10+27, LEXICD10+29
FBICDY(" " LEXICD10+23
FBIEN EN+3*, EN+6, EN+8, EN+9, EXIT+1!
FBINP DIAG10+1~, ASKAGAIN+1*, ASKAGAIN+3, ASKAGAIN+5, ASKAGAIN+6, ASKAGAIN+8, ASKAGAIN+9, ASKAGAIN+10, ASKAGAIN+11, ASKAGAIN+14
, ASKAGAIN+15, ASKAGAIN+16, ASKAGAIN+17, ASKAGAIN+20, ASKAGAIN+21, ASKAGAIN+22, ASKAGAIN+24, ASKAGAIN+25*, ASKAGAIN+26, ASKAGAIN+27
, ASKAGAIN+28, ASKAGAIN+29, ASKAGAIN+30
FBLEVEL LEXICD10+14~, LEXICD10+17*, LEXICD10+22, LEXICD10+27, LEXICD10+32, LEXICD10+34*, LEXICD10+42*, LEXICD10+45
FBLI1 FORMWRIT+1~, FORMWRIT+8*
FBLVTXT LEXICD10+1~
FBLVTXT( LEXICD10+17*, LEXICD10+22, LEXICD10+45*
FBMATCH ASKAGAIN+24~*, ASKAGAIN+30, LEXICD10+27*
FBMFLG ISMATCH+1~*, ISMATCH+2*, ISMATCH+3
FBMODE FORMWRIT~, FORMWRIT+3, FORMWRIT+7
FBNUMB LEXICD10+7~, LEXICD10+8*, LEXICD10+9, LEXICD10+10
FBOUT ASKICD10+1~, EN+1~, EN+3*, EXIT+1!
FBPAR LEXICD10~, SETPARAM~
FBPAR("ASKDATE" SETPARAM+1*
FBPAR("ENTER ADM DIAG" , SETPARAM+16*, MORE" , SETPARAM+18*, MORE2" , SETPARAM+19*
FBPAR("EXCEED S MESSAGE1" , LEXICD10+10, SETPARAM+12*, S MESSAGE2" , LEXICD10+10, SETPARAM+13*, S MESSAGE3" , LEXICD10+10, SETPARAM+14*
FBPAR("EXIT N OT ALLOWED" , SETPARAM+17*
FBPAR("EXITING" SETPARAM+7*
FBPAR("FIELD_NAME" SETPARAM+25*
FBPAR("HELP ? " , SETPARAM+4*, ?" , SETPARAM+5*
FBPAR("NO DAT A FOUND" , SETPARAM+6*, A SELECTED" , SETPARAM+9*
FBPAR("NO MAT CHES FOUND" , SETPARAM+15*
FBPAR("NOTHIN G DELETED" , SETPARAM+21*
FBPAR("REQUIRED" SETPARAM+22*
FBPAR("SEARCH_PROMPT" SETPARAM+3*
FBPAR("TRY AN OTHER" , SETPARAM+10*
FBPAR("TRY LA TER" , SETPARAM+8*
FBPAR("WISH C ONTINUE" , SETPARAM+11*
FBPAR("YES OR NO" , SETPARAM+20*
FBPARAM EN+1~, EN+2, EN1+1, DIAG10~, ASKAGAIN+25
FBPARAM("ENTE R ADM DIAG" , ASKAGAIN+19, ASKAGAIN+27, R MORE" , ASKAGAIN+3, R MORE2" , ASKAGAIN+3
FBPARAM("EXIT NOT ALLOWED" , ASKAGAIN+15, ASKAGAIN+21
FBPARAM("FIELD_NAME" EN+9, ASKAGAIN+7
FBPARAM("HELP ?" , ASKAGAIN+1,  ??" , ASKAGAIN+1
FBPARAM("NO M ATCHES FOUND" , ASKAGAIN+27
FBPARAM("NOTH ING DELETED" , ASKAGAIN+13
FBPARAM("REQUIRED" ASKAGAIN+9
FBPARAM("SEARCH_PROMPT" ASKAGAIN+1, ASKAGAIN+19, ASKAGAIN+27
FBPARAM("WISH CONTINUE" , LEXICD10+9
FBPARAM("YES OR NO" , LEXICD10+9
FBPRMPT ASKICD10+1~, ASKICD10+2*, SETPARAM+2*, SETPARAM+3, SETPARAM+23
FBPRMT SRCHSTR~, SRCHSTR+2
FBPROM QUESTION~, QUESTION+3
FBQUIT EN+1~
FBREQFLD ASKAGAIN+7*, ASKAGAIN+8*, ASKAGAIN+9, ASKAGAIN+15, ASKAGAIN+16, ASKAGAIN+20, EXIT+1!
FBREQFLDMP DIAG10+1~
FBRETV EN+1~, EN+3*, EN1+1*, EN1+2, EN1+3, EN1+4*, EN1+5*, EN1+6, EN1+7, LEXICD10+14~
, LEXICD10+15*, LEXICD10+32*, LEXICD10+36*, LEXICD10+38*, LEXICD10+46
FBTMP ASKICD10+1~, DIAG10+1~, ASKAGAIN+22*, ASKAGAIN+23
FBTXT LEXICD10~, LEXICD10+5*, LEXICD10+6, LEXICD10+8, LEXICD10+10, LEXICD10+17
FBX SETPARAM+23~*, SETPARAM+24*, SETPARAM+25
FBXX LEXICD10+14~, LEXICD10+25*, LEXICD10+29*, LEXICD10+32, LEXICD10+34, LEXICD10+36, LEXICD10+38, LEXICD10+45
FBYN ASKAGAIN+11~, ASKAGAIN+12*, ASKAGAIN+13
ICDRET ASKICD10+1~, ASKICD10+3*, ASKICD10+5
LNNUM ASKICD10~, ASKICD10+2, EXIT+1!
U ASKAGAIN+3, ASKAGAIN+16, ASKAGAIN+22, ASKAGAIN+24, ASKAGAIN+25, SRCHSTR+13
X EN~, INPHLP+1, INPHLP+2, SRCHSTR+10, FORMWRIT~, FORMWRIT+5, EXIT+1!
Y QUESTION+6, QUESTION+7, QUESTION+8, SRCHSTR+11, SRCHSTR+12, SRCHSTR+13, EXIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All