IBDFLST ;ALM/MAF - Maintenance Utility Invalid Codes List ;05/17/95
Source file <IBDFLST.m>
| 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 | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^ICD9 - [#80] | LIST^DIC |
