Routine: SROICDGT

Information

SROICDGT ;BIR/SJA - CODE SET VERSIONING UTILITY ;26 Sep 2013 3:39 PM

Name	Comments	DBIA/ICR reference
GETAPI(SRAPP,TYPE,SRIEN)	;ICD-9/ICD-10 selection - called by input transform ; - INPUT: X := the initial user input to be searched on (REQUIRED) ; SRAPP := application name in file 130.4;.01 (REQUIRED) ; TYPE := type of call in file 130.4;.04 (REQUIRED) ; SRIEN := top level entry in file 130 (DA) used to get date to compute correct version (OPTIONAL but needs DA) ; Note: applications using this as an example will need to modify the code that uses this. ; - OUTPUT: X := the internal value to be stored in the field. ; Y := the internal value to be stored in the field
MSG(SRTEXT)	;
D1	; -- Diagnosis ? Help
D2	; -- Diagnosis ?? Help
D3	; -- Diagnosis ??? Help
TR(X)	;
TEST	; -- test api calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETAPI+13
Function Call: WRITE	Prompt: " ",$P(Y(0,1),U,2)," ICD-9 ",$P(Y(0,1),U,4) Line Location: GETAPI+52
Function Call: WRITE	Prompt: !,"1" Line Location: TEST+3
Function Call: WRITE	Prompt: !,"2" Line Location: TEST+4
Function Call: WRITE	Prompt: !,"3" Line Location: TEST+5
Function Call: WRITE	Prompt: !,"4" Line Location: TEST+6
Function Call: WRITE	Prompt: !,"5" Line Location: TEST+8
Function Call: WRITE	Prompt: !,"6" Line Location: TEST+9
Function Call: WRITE	Prompt: !,"7" Line Location: TEST+10
Function Call: WRITE	Prompt: !,"8" Line Location: TEST+11
Function Call: WRITE	Prompt: !,"9 - SHOULD WORK" Line Location: TEST+13
Function Call: WRITE	Prompt: !,"10 - SHOULD WORK" Line Location: TEST+14
Function Call: WRITE	Prompt: !,"11 - SHOULD WORK" Line Location: TEST+15
Function Call: WRITE	Prompt: !,"12 - SHOULD WORK" Line Location: TEST+16