Routine: GMRCCB

Information

GMRCCB ;SFVAMC/DAD - Consult Closure Tool: Data Gathering ;01/20/17 15:19

Source file <GMRCCB.m>

Name	Comments	DBIA/ICR reference
GETDATA(GMROOT,GMTBEG,GMTEND,GM0CFG,GMAPPT,GMNOTE,GMOPUT,GMDLIM)	; ; *** Get consults
CONSCHEK(GM0CON,GMSERV,GMPROC,GMPROT,GMCLPR)	; ; *** Consult active & part of config?
APPTCHEK(GMROOT,GM0CFG,GM0DFN,GM0CON,GMTCON,GMAPPT,GMNOTE,GMOPUT)	; ; *** Check for appts
NOTECHEK(GMROOT,GM0CFG,GM0DFN,GM0CON,GMTCON,GMTAPT,GMNOTE,GMOPUT)	; ; *** Check for notes
APPTLIST(GMROOT,GM0CFG,GM0DFN,GMTCON,GMAPPT)	; ; *** Get Pt's appts ; $$APPTLIST() = ApptDate ^ ClinIEN ^ ClinName ^ ApptStatInt ^ ApptStatExt
NOTELIST(GMROOT,GM0CFG,GM0DFN,GMTAPT,GMTCON,GMOPUT)	; ; *** Get Pt's notes ; $$NOTELIST() = RefDate ^ TitleIEN ^ TitleName ^ NoteIEN
NOTEQUIT(GMORDR,GMTITL,GMOPUT)	; ; *** Stop note search?
SETDATA(GMROOT,GM0DFN,GM0CON,GMADAT,GMNDAT,GMOPUT)	; ; *** Save report data