Routine: MHVUMRPC

Information

MHVUMRPC ;KUM/LB - myHealtheVet Management Utilities ; 6/18/2013

Name	Comments	DBIA/ICR reference
DSSUNT(RESULTS,MHVSTRING)	;
MHVRST	;Populate results array
MHVCHK	;Check if DSS Unit is already populated in results array ;JAZZ#
CLINIC()	;Get clinic
PRINTRES	; Print Results
DSSPROCS(RESULTS,MHVARY)	; Get Procedures from DSS Unit IEN and Locaiton IEN ; MHVARY IS DSS UNIT IEN AND LOCATION IEN ; RESULTS = Procedure IEN^Procedure 5 digit code and description^synonym^Active flag
PATECLS(RESULTS,MHVSTRING)	; Get Patient eligibility and Classification data ; MHVSTRING IS PATIENT ICN, DSS UNIT IEN, PROCEDURE DATE AND TIME IN FILEMAN FORMAT ; RESULTS = PATIENT STATUS ^CLASSIFICATION DATA (AGENT ORANCE, IONIZING RADIATION, SC CONDITION, ENVIRONMENTAL CONTAMINANTS, MILITARY SEXUAL TRUMA ; RESULTS(1,2...)=PRIMARY/SECONDARY FLAG (1-PRIMARY,0-SECONDARY)^ELIGIBILITY IEN^ELIGIBILITY DESCRIPTION
DIAGPL(RESULTS,MHVSTRING)	; Get Patient Diagnosis codes from Patient Probelm list ; MHVSTRING IS PATIENT ICN ; RESULTS = DIAGNOSIS CODE IEN^DIAGNOSIS CODE^SNOMED-CT DESCRIPTION~ICD-10 DESCRIPTION^ICD CODING SYSTEM
DIAGSRCH(RESULTS,MHVSTRING)	; Get Diagnosis codes and description from Search string ; MHVSTRING IS SEARCH STRING AND FILE TO SEARCH ; RESULTS = DIAGNOSIS CODE IEN IN FILE 80^DIAGNOSIS CODE^DESCRIPTION

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"LOCATIONIEN LOCATIONNAME DSSUNITIEN DSSUNITNAME INACTIVE" Line Location: PRINTRES+3
Function Call: WRITE	Prompt: !,@RESULTS@(I) Line Location: PRINTRES+4