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

Package: Surgery

Routine: SROICD


Information

SROICD ;BIR/SJA - CODE SET VERSIONING UTILITY ;27 Sep 2013 4:00 PM

Source Information

Source file <SROICD.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
DRG Grouper 3 ($$CODEC,$$CODEN,$$LS,$$SYS,$$VST)^ICDEX  $$SEARCH^ICDSAPI  $$ICDDATA^ICDXCODE  
VA FileMan 3 EN^DDIOL  RECALL^DILFD  ^DIR  
Lexicon Utility 2 $$DIAGSRCH^LEX10CS  ($$FREQ,$$IMPDATE,$$MAX)^LEXU  
Surgery 2 ($$ICDSTR,LEX)^SROICD  $$SEL^SROICDL  

Caller Graph

Caller Graph Total: 51

Package Total Caller Graph
Surgery 51 OTHER ASSOCIATED DIAGNOSES  OTHER POSTOP DIAGNOSIS CODES  PRIN ASSOCIATED DIAGNOSES  SRCUSS  SRHLUO  SRHLUO3  SRHLVUO  SROACMP  
SROACOD  SROADX1  SROALNO  SROAOP1  SROAOSET  SROAPCA4  SROAPRT6  SROAPRT7  
SROATM2  SROATMNO  SROAUTL0  SROCD0  SROCD2  SROCDX  SROCDX1  SROCMPED  
SROCMPS  SROCOMP  SROCVER  SROESAD1  SROESNR2  SROICD  SROICDGT  SROMENU  
SRONEW  SRONOP  SRONOP1  SRONP2  SROP  SROPCE0A  SROPER  SROVER  
SROVER2  SROVER3  SRSCHUN  SRSCHUN1  SRSRES1  SRSRQST  SRSRQST1  SRSUP1  
SRSUPRQ  ^DIC(130.4  ^SRO(136  

Entry Points

Name Comments DBIA/ICR reference
ICDVST(SRCODE) ; Output Short Description, called from SRCUSS
; -- Input SRCODE in external code (e.g. "100.0" or "H54.0"
ICDC(SRCODE) ; output principal ICD
ICD(SRIEN,SRC) ;
ICDSYS(SRDT,SRICDTYP) ; determine ICD coding system
; If date of interest is null, today's date will be assumed
; If SRICDTYP is null, Diagnosis is assumed for code type
ICDSTR(SRIEN) ; return either "(ICD9)" or "(ICD10)" string
ICD910(SRIEN) ; return either "9" or "10"
IMPDATE(SRCODSYS) ; a wrapper for IMPDATE API
P80 ;No longer Used. ICD-9/ICD-10 diagnosis selection - called by input transform
ASKOK(SRTOTAL) ;
; -- See default setting of SRASK at LEX+8
LEX
LOOK ; Lookup
LOOK2
NXT ; Next
SPACEBAR(SRROOT) ;
SAVSPACE(SRROOT,SRRETV) ;
OUT(SRICDC) ; called by output transform fields of the ICD diagnosis code fields
SCRN(SRCODE) ;screen for active ICD codes
ICDSRCH ; To handle ICD ICD-9/10 Diagnosis Code Searches when ^DIC or ^DIE cannot be used
; SRPRMT - For specific label, this field needs to be set from calling routine
; SRDEF - For displaying the default field value at diagnosis prompt
; X & Y variables need to be newed prior to calling this tag
TEST1 ;
; do not ask question
TEST2 ;
; ask question

External References

Name Field # of Occurrence
EN^DDIOL ASKOK+3, ASKOK+4, ASKOK+5, LEX+7, LEX+8, LEX+9, LOOK2+1, LOOK2+2, LOOK2+3, ICDSRCH+17
RECALL^DILFD SAVSPACE+3
^DIR ASKOK+18
$$CODEC^ICDEX SPACEBAR+4
$$CODEN^ICDEX ICDVST+3
$$LS^ICDEX SCRN+4
$$SYS^ICDEX ICDSRCH+6
$$VST^ICDEX ICDVST+5, LOOK2+24
$$SEARCH^ICDSAPI P80+6, ICDSRCH+19
$$ICDDATA^ICDXCODE ICD+4, LOOK2+19, OUT+6, OUT+7
$$DIAGSRCH^LEX10CS LOOK+2
$$FREQ^LEXU LEX+12
$$IMPDATE^LEXU IMPDATE+1
$$MAX^LEXU LEX+13
$$ICDSTR^SROICD ICDSRCH+7
LEX^SROICD ICDSRCH+20
$$SEL^SROICDL LOOK2+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Searching for """_SRICDTXT_""" requires inspecting "_$G(SRTOTAL)_" records to determine"
  • Line Location: ASKOK+10
Function Call: WRITE
  • Prompt: !,"if they match the search criteria. This could take quite some time. Suggest"
  • Line Location: ASKOK+11
Function Call: WRITE
  • Prompt: !,"refining the search by further specifying """_SRICDTXT_""".",!
  • Line Location: ASKOK+12
Function Call: WRITE
  • Prompt: !," Searching...."
  • Line Location: ASKOK+21
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKOK+22
Function Call: WRITE
  • Prompt: !,?6,"Enter the ICD Diagnosis code for the principal postoperative diagnosis.",!,?6,"Screen prevents selection of inactive diagnosis."
  • Line Location: ICDSRCH+23
Routine Call
  • DIR
  • Line Location:
    • ASKOK+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] RECALL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( SPACEBAR+3
^SRF - [#130] ICD+2, ICDSTR+2, ICD910+2, P80+3, OUT+4, SCRN+3, ICDSRCH+6

Label References

Name Line Occurrences
$$ICD ICDC+4
$$ICDSYS ICD+3, ICDSTR+3, ICD910+3, P80+3
$$IMPDATE ICDSYS+5
$$SPACEBAR LEX+4
@( ICDSRCH+14
ASKOK LEX+13
ICDSRCH ICDSRCH+12, ICDSRCH+22
LEX P80+5, TEST1+3, TEST2+3
LOOK LOOK2+26, NXT+4
LOOK2 LEX+4
NXT LOOK2+26
SAVSPACE LOOK2+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT LEX~
>> D0 ICDC+3, P80+2, OUT+3, SCRN+2
>> DA(1 ICDC+3, P80+2, OUT+3, SCRN+2
>> DA(2 ICDC+3, P80+2, SCRN+2
DIC P80+1~
DIR ASKOK+14~
DIR("?" ASKOK+17*
DIR("A" ASKOK+15*
DIR("B" ASKOK+16*
DIR(0 ASKOK+15*
DIROUT ASKOK+19, LEX~, LOOK2+8, LOOK2+9, LOOK2+10, LOOK2+12, LOOK2+15
>> DIRUT ASKOK+19
DT ICDSYS+4, ICDSTR+2, ICD910+2, P80+3, SCRN+3, ICDSRCH+6
DTIME ICDSRCH+7
DTOUT ASKOK+19, LEX~, LOOK2+9, LOOK2+12
DUOUT LEX~, LOOK2+8, LOOK2+15, LOOK2+17
DUZ SPACEBAR+3, SAVSPACE+1, SAVSPACE+3
SRASK ASKOK+2, ASKOK+9, LEX+11*, LEX+15!, TEST1+2*, TEST2+2*
SRC ICDC+1~, ICDC+4*, ICDC+5, ICD~, ICD+4
SRCODE ICDVST~, ICDVST+3, ICDC~, ICDC+2, ICDC+4, SCRN~, SCRN+4
SRCODSYS IMPDATE~, IMPDATE+1
SRDA ICDC+1~, ICDC+3*, ICDC+4, P80+1~, P80+2*, P80+3, OUT+1~, OUT+3*, OUT+4, SCRN+1~
, SCRN+2*, SCRN+3
SRDATE ICD+1~, ICD+2*, ICD+3, ICD+4
SRDEF ICDSRCH+7, ICDSRCH+8, ICDSRCH+24!
SRDT ICDSYS~, ICDSYS+4*, ICDSYS+7, ICDSTR+1~, ICDSTR+2*, ICDSTR+3, ICD910+1~, ICD910+2*, ICD910+3, P80+1~
, P80+3*, P80+6, LEX+14, OUT+1~, OUT+4*, OUT+6, OUT+7, SCRN+1~, SCRN+3*, SCRN+4
, ICDSRCH+5~, ICDSRCH+6*, ICDSRCH+19, TEST1+3*, TEST2+3*
SREXIT LEX~, LEX+14*, LOOK+1, LOOK2+9*, LOOK2+10*, LOOK2+12*, LOOK2+17*, LOOK2+19*, LOOK2+26, NXT+1
SRFMT ICDSRCH+13~, ICDSRCH+16*, ICDSRCH+17
SRICD ICD+1~, ICD+4*, ICD+5
SRICDC OUT~, OUT+6, OUT+7
SRICDDT LEX~, LEX+14*, LOOK+2, NXT+2, NXT+3~*
SRICDIEN SPACEBAR+1~, SPACEBAR+3*, SPACEBAR+4
SRICDND NXT+1~, NXT+2*, NXT+3
SRICDNT LOOK2+8, NXT+1~, NXT+2*
SRICDTXT ASKOK+10, ASKOK+12, ASKOK+17, LEX~, LEX+2*, LEX+4*, LEX+6, LEX+12, LOOK+2, NXT+2
, NXT+3~*
SRICDTYP ICDSYS~, ICDSYS+8, ICDSYS+9
SRICDUP LEX~, LOOK2+15
SRICDX NXT+1~, NXT+2*, NXT+3
SRICDY LEX~, LEX+4!, LOOK+1!, LOOK+2*, LOOK+3*, LOOK2, LOOK2+6
SRICDY(" " LOOK+3
SRIEN ICDVST+2~, ICDVST+3*, ICDVST+4, ICDVST+5, ICDC+3, ICD~, ICD+2, ICDSTR~, ICDSTR+2, ICD910~
, ICD910+2, P80+2, OUT+3, SCRN+2
SRIMPDT ICDSYS+3~, ICDSYS+5*, ICDSYS+7
SROK ASKOK+6*, ASKOK+19*, ASKOK+20*, ASKOK+21, LEX~, LEX+13, LEX+15!
SRPRMT ICDSRCH+4*, ICDSRCH+7, ICDSRCH+24!
SRRETV SAVSPACE~, SAVSPACE+3
SRROOT SPACEBAR~, SPACEBAR+2, SPACEBAR+3, SAVSPACE~, SAVSPACE+3
SRRTV SPACEBAR+1~, SPACEBAR+2*, SPACEBAR+4*, SPACEBAR+5
SRSDATE ICDC+1~
SRSTAT SCRN+1~, SCRN+4*, SCRN+5
SRSYS ICD+1~, ICD+3*, ICD+4, ICDSYS+3~, ICDSYS+7*, ICDSYS+8*, ICDSYS+9*, ICDSYS+11, ICDSTR+1~, ICDSTR+3*
, ICDSTR+4, ICD910+1~, ICD910+3*, ICD910+4, P80+1~, P80+3*, P80+5, ICDSRCH+5~, ICDSRCH+6*, ICDSRCH+14
, ICDSRCH+15, ICDSRCH+19, ICDSRCH+23
SRTAG ICDSRCH+13~*, ICDSRCH+14*, ICDSRCH+15*, ICDSRCH+17
>> SRTN OUT+3, ICDSRCH+6, ICDSRCH+7
SRTOT LEX~, LEX+12*, LEX+13
SRTOTAL ASKOK~, ASKOK+3, ASKOK+10
>> SRTXT P80+5*
SRVST ICDVST+2~, ICDVST+5*, ICDVST+6
SRY OUT+1~, OUT+6*, OUT+7*, OUT+9
SRZZONE LEX~, LOOK2+24
X P80+2!, P80+4!, P80+5, P80+6*, P80+7*, ASKOK+14~, LEX+2, LEX+6*, LOOK2!, LOOK2+8!
, LOOK2+9!, LOOK2+10!, LOOK2+12!, LOOK2+15!, ICDSRCH+7*, ICDSRCH+8*, ICDSRCH+10, ICDSRCH+12!, ICDSRCH+14, ICDSRCH+16
, ICDSRCH+22!, TEST1+3*, TEST2+3*
XX LEX~, LOOK2+6*, LOOK2+17, LOOK2+19, LOOK2+24, NXT+2
Y P80+6*, P80+7, ASKOK+14~, ASKOK+20, LOOK2!, LOOK2+19*, LOOK2+21, LOOK2+24, ICDSRCH+12!, ICDSRCH+19*
, ICDSRCH+22!
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