YSBWHIGH ;SLC/DJE - MHA DASHBOARD ; Apr 01, 2021@16:33
Source file <YSBWHIGH.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
HIGHRISK(DATAOUT) | ;
|
|
ERRHND | ; Handle errors & clear stack
|
|
PRFDATA(DFN,SITES,PRFDATA) | ;
|
|
GETDUE(RVDT,YSDT) | ;calculate if review is due
|
|
MHNXTAPP(DFN,YSDT) | ;Get next MH APPT up to a year from today.
|
|
MHLSTSAF(DFN,SAFHEAD,SAFDCL,SAFREV,SAFSCNO,SAFSCYES) | ||
FINDDOC(DFN,TIUINVDT,HFCLIST,HDRLIST,TIURET,TIUFND) | ;TIUINVDT is updated and returned by reference to permit recursion or use in V HF indexes
|
|
SAFDECL(DFN,TIUINVDT,SAFDCL) | ;was safety plan declined?
|
|
HRACTIVE(DFN) | ;get activation details of high risk flag
|
|
DONE7(DFN,YSDT,SAFHEAD,SAFDCL,SAFREV,SAFSCNO,SAFSCYES) | ||
ISMHMV(MVMT) | ;
|
|
ONTRK(DFN,DCDT,YSDT) | ;
|
|
LASTCSRE(DFN,CSRENEW,CSREUPD,CSREHEAD) | ;
|
|
CSSRS(INSTDATA,DFN,YSDT) | ;
|
|
SAFLST(SAFDCL,SAFREV,SAFSCNO,SAFSCYES,HFCLIST) | ;Take individual healthfactors and create HFCLIST
|
|
CSRELST(CSRENEW,CSREUPD,HFCLIST) |
FileNo | Call Tags |
---|---|
^DGPM - [#405] | GET1^DIQ |
^DIC(42 - [#42] | GET1^DIQ |
^TIU(8925.1 - [#8925.1] | FIND1^DIC |