Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMRCCB

Package: Consult Request Tracking

Routine: GMRCCB


Information

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

Source Information

Source file <GMRCCB.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^GMR(123.033 - [#123.033] GET1^DIQ
^DPT - [#2] GET1^DIQ
^TIU(8925 - [#8925] GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call