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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBDFLST

Package: Automated Information Collection System

Routine: IBDFLST


Information

IBDFLST ;ALM/MAF - Maintenance Utility Invalid Codes List ;05/17/95

Source Information

Source file <IBDFLST.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 3 (,LIST)^DIC  WAIT^DICD  ^DIR  
List Manager 2 EN^VALM  ($$LOWER,FULL)^VALM1  
Automated Information Collection System 1 HEADER^IBDFLST1  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Kernel 1 DISP^XQORM1  

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

Package Total Caller Graph
Automated Information Collection System 3 IBDF UTIL COMPLETE INVALID LIST  IBDF UTIL COMPLETE LIST TEMP  IBDF UTIL INVALID CODES JUMP  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
START ; -- Ask what invalid code you want to display CPT/ ICD9/ Visit
HDR ; -- header code
SETSTR(S,V,X,L) ; -- insert text(S) into variable(V)
; S := string
; V := destination
; X := @ col X
; L := # of chars
INIT ; -- Set up list for display
CPT
ICD9 ;;F IBDFIFN=0:0 S IBDFIFN=$O(^ICD9(IBDFIFN)) Q:'IBDFIFN S IBDFNODE=$G(^ICD9(IBDFIFN,0)) I $P(IBDFNODE,"^",9)]"" D
ICD10 ;
VISIT ; -- Gets visit code listing of invalid codes
LOOP ; -- Loop thru global ^TMP("IBDALPHA",$J) alphabetic by category
SET ; -- Set up list array
TMP ; -- Set up Array
ALPHA ; - Alphabetize by category
QUIT ; -- Kill variables and reset to last display if no change has been taken place.
EXIT
JUMP ; -- Jump action to display a specific category on the screen.
JMP
JUMP1
JSEL ; -- Convert number selected to name
HLP ; -- help code
ICD9LST ;
ICD10LST ;

External References

Name Field # of Occurrence
^DIC JUMP+2, JMP+1
LIST^DIC ICD9LST+4, ICD10LST+4
WAIT^DICD START+12
^DIR START+5
HEADER^IBDFLST1 LOOP+12
$$CPT^ICPTCOD CPT+3, VISIT+5
EN^VALM START+13
$$LOWER^VALM1 TMP+1
FULL^VALM1 START+2, CPT, JUMP+1
DISP^XQORM1 HLP+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !!,"There is no data listed for this Clinic Group"
  • Line Location: JUMP1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: HLP+1
Routine Call
  • DIC
  • Line Location:
    • JUMP+2
    • JMP+1
Routine Call
  • DIC
  • Line Location:
    • ICD9LST+4
    • ICD10LST+4
Routine Call
  • DIR
  • Line Location:
    • START+5
Routine Call
  • VALM
  • Line Location:
    • START+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] LIST^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(81.1 - [#81.1] CPT+6, VISIT+11, JUMP1+2
^IBD(357.99 - [#357.99] JSEL+1
^IBE(357.69 - [#357.69] VISIT+2, VISIT+3
^ICM - [#80.3] ICD9+7, ICD10+5, JUMP1+2
^ICPT - [#81] CPT
^TMP("CGIDX" JSEL+1
^TMP("CODEIDX" TMP+3*, EXIT!
^TMP("IBDALPHA" LOOP+1, LOOP+7, ALPHA+1*, EXIT!
^TMP("IBDCODE" LOOP+4*, LOOP+5*, TMP+1*, TMP+2*, EXIT!
^TMP("IBDICD10" ICD10+4, EXIT!, ICD10LST+2!
^TMP("IBDICD9" ICD9+6, EXIT!, ICD9LST+2!
^TMP("IBDMSG10" EXIT+1!
^TMP("IBDMSG9" EXIT+1!

Label References

Name Line Occurrences
$$SETSTR SET+5, SET+7, SET+9, SET+11
@( INIT+3
ALPHA CPT+6, ICD9+7, ICD10+5, VISIT+12
ICD10LST ICD10+3
ICD9LST ICD9+4
JMP JUMP+2, JUMP1+3
JSEL JUMP+2
JUMP JUMP1
JUMP1 JUMP+2
LOOP CPT+7, ICD9+8, ICD10+6, VISIT+13
QUIT START+6
SET LOOP+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC JUMP+2*!, JMP*, JMP+1!
DIC("A" JMP*
DIC(0 JUMP+2*, JMP*
DIR START+6!
DIR("A" START+5*
DIR("B" START+3*
DIR(0 START+5*
>> DIRUT START+6
IBDCAT LOOP+7*, EXIT+2!
>> IBDCNT INIT+2*, SET+2*, TMP+1
>> IBDCNT1 INIT+2*, LOOP+3*, LOOP+5, SET+1*, SET+4, TMP+2, TMP+3
IBDFC EXIT+2!
IBDFC( LOOP+12, JUMP1+3, JUMP1+4
IBDFCAT INIT+1~, CPT+6*, ICD9+7*, ICD10+5*, VISIT+11*, LOOP+6*, LOOP+7*, LOOP+10*, LOOP+12, SET+10
, TMP+3, ALPHA+1, JUMP1+1~, JUMP1+2*, JUMP1+3, JUMP1+4
IBDFCNT1 EXIT+2!
IBDFCODE INIT+1~, CPT+5*, ICD9+7*, ICD10+5*, VISIT+9*, LOOP+9*, SET+6, TMP+3, ALPHA+1
IBDFDESC INIT+1~, CPT+5*, ICD9+7*, ICD10+5*, VISIT+10*, LOOP+11*, SET+8, TMP+3, ALPHA+1
IBDFDIS START+1~, START+11*, HDR+1, INIT+3, LOOP+1, TMP+1, JUMP+2, JMP, JUMP1+2
IBDFIFN INIT+1~, CPT*, CPT+3, ICD9+6*, ICD10+4*, VISIT+8*, LOOP+7*, LOOP+8*, TMP+3, ALPHA+1
IBDFNODE INIT+1~, CPT+3*, CPT+4, CPT+5, CPT+6, ICD9+6*, ICD9+7, ICD10+4*, ICD10+5, VISIT+5*
, VISIT+6, VISIT+8, VISIT+9, VISIT+10, VISIT+11, LOOP+7*, LOOP+8, LOOP+9, LOOP+10, LOOP+11
IBDFTYP START+10*, START+11, EXIT+2!
>> IBDFVAL SET+4*, SET+5, SET+6*, SET+7, SET+8*, SET+9, SET+10*, SET+11
>> IBDFVST VISIT+2*, VISIT+3, VISIT+5
IBDSCREN ICD9LST+1~, ICD9LST+3*, ICD9LST+4, ICD10LST+1~, ICD10LST+3*, ICD10LST+4
>> IBDVALM JSEL+1*
IEN VISIT+1~, VISIT+3*, VISIT+4
L SETSTR~, SETSTR+6
S SETSTR~, SETSTR+6
U VISIT+6
V SETSTR~, SETSTR+6
>> VALMBCK JMP+2*, JUMP1+4*
>> VALMBG JMP+2*, JUMP1+4*
>> VALMCNT INIT+2*, LOOP+3*, LOOP+5, SET+2*, TMP+2, TMP+3
>> VALMHDR(1 HDR+1*
X START+8*, START+10, SETSTR~, SETSTR+6, LOOP+2*, LOOP+4, SET+3*, SET+5*, SET+7*, SET+9*
, SET+11*, TMP+1, JUMP+2*, JMP+2, JSEL+1*, HLP+1*
>> XQORNOD(0 JUMP+2
>> Y START+6, JUMP+2*, JUMP1, JUMP1+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All