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 |
FileNo | Call Tags |
---|---|
^GMR(123 - [#123] | GET1^DIQ |
^GMR(123.033 - [#123.033] | GET1^DIQ |
^DPT - [#2] | GET1^DIQ |
^TIU(8925 - [#8925] | GET1^DIQ |