DGICP ;AL/AAS/PLT KUM,WIOFO/PMK - LOOK UP ICD-10 PROCEDURE CODE ;04/15/2015 1:17 PM
Source file <DGICP.m>
Package | Total | Call Graph |
---|---|---|
DRG Grouper | 1 | $$CODEN^ICDEX |
Kernel | 1 | $$READ^XGF |
Lexicon Utility | 1 | $$PCSDIG^LEX10CS |
Registration | 1 | $$SEL^DGICPL |
VA FileMan | 1 | DD^%DT |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Initialize variables
|
|
LOOK | ; Look-up term
|
|
AGAIN | ; Try again?
|
|
ASK | ; Get user input
|
|
INPHLP | ; Look-up help
|
|
EXIT | ; Clean up environment and quit
|
|
X(ICDLEX) | ; Evaluate X
|
|
Y(ICDLEX) | ; Evaluate Y
|
|
LOAD | ; Load dummy data
|
|
PRCDESC | ; Display Descriptions of each character
|
|
GICDPRC | ; Get ICDPRC from User
|
|
AA | ; Read character by character
|
|
BB | ;Exit
|
|
PRCDESCB | ; Call Before PRCDESC
|
|
TR(X) | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | EXIT+1! |
DGXX | ASK+1~, ASK+33*, ASK+39 |
DIC | LOOK+2!, EXIT+1! |
DIR | ASK+1~, EXIT+1! |
DIROUT | ASK+1~, EXIT+1! |
DIRUT | ASK+1~, EXIT+1! |
DTOUT | EXIT+1!, AA+6 |
DUOUT | EXIT+1! |
>> EFFDATE | ASK+8 |
FORMAT | ASK+4~ |
ICDA | AA+6*, AA+8, AA+10, AA+12, AA+14, AA+17, AA+20, AA+21, BB+2! |
ICDC | PRCDESC+3*, PRCDESC+8, PRCDESC+9, PRCDESC+11, PRCDESC+12! |
ICDDATE | ASK+1~, ASK+8*, ASK+9 |
ICDDATE1 | ASK+1~, ASK+9*, ASK+14, ASK+26, ASK+40!, PRCDESC+4 |
ICDLEX | EXIT+1!, X~, Y~ |
ICDLOAD | LOAD+4*, LOAD+5, LOAD+6, LOAD+7, LOAD+9, LOAD+10!, PRCDESC+8*, PRCDESC+9, PRCDESC+12! |
ICDLOAD1 | LOAD+2*, LOAD+6, LOAD+7, LOAD+8*, LOAD+10! |
ICDPDESC | ASK+28*, ASK+32, ASK+40! |
ICDPRC | ASK+10*, ASK+11*, ASK+13, ASK+14, ASK+20*, ASK+23, ASK+24, ASK+25, ASK+26, ASK+33 , ASK+36, ASK+37, ASK+40!, PRCDESC+1, AA+4, AA+5, AA+10, AA+12*, AA+14*, AA+20 , AA+21*, PRCDESCB+1 |
ICDPRCT | PRCDESC+1*, PRCDESC+2, PRCDESC+3, PRCDESC+6*, PRCDESC+10*, PRCDESC+12! |
ICDPRCT1 | PRCDESC+1*, PRCDESC+4, PRCDESC+11*, PRCDESC+12! |
ICDPSTS | ASK+29*, ASK+34, ASK+40! |
ICDRES | ASK+12*, ASK+13, ASK+14*, ASK+15, ASK+23, ASK+26*, ASK+27, ASK+35, ASK+40!, PRCDESC+4* , PRCDESC+5, PRCDESC+7 |
ICDS | ASK+19, LOAD+1! |
ICDS( | LOAD+6*, LOAD+7* |
ICDT1 | ASK+1~, ASK+13* |
ICDTEMP | PRCDESC+2*, PRCDESC+12! |
ICDX | ASK+1~, ASK+10*, ASK+21*, PRCDESC+1*, AA+2, AA+12*, AA+22* |
LEX | EXIT+1! |
LEXPCDAT | ASK+40! |
LEXPCDAT("NEXLEV" | LOAD+4, LOAD+7, PRCDESC+8, PRCDESC+9 |
LEXPCDAT("PCSDESC" | ASK+28 |
LEXPCDAT("STATUS" | ASK+29 |
PICDLOAD | LOAD+3*, LOAD+5, LOAD+9*, LOAD+10! |
TAG | ASK+4~, ASK+5*, ASK+6 |
X | LOOK+1~, LOOK+2*, ASK+2, ASK+3!, ASK+5, ASK+10, ASK+11, ASK+19*, ASK+20, ASK+38! , ASK+39*, INPHLP+1, INPHLP+4, INPHLP+5, INPHLP+6, INPHLP+10, INPHLP+11, INPHLP+12, INPHLP+13, INPHLP+17 , INPHLP+18, INPHLP+19, EXIT+1!, X+1, TR~, TR+1*, TR+2 |
Y | ASK+3!, ASK+34*, ASK+38!, ASK+39*, EXIT+1!, Y+1 |