©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BTPWRMDR ;VNGT/HS/ALA-CMET Reminders ; 13 Nov 2009 1:49 PM
Source file <BTPWRMDR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EVT(BQIDFN,EVNT,SYS) | ; PEP
; Input ; BQIDFN - Patient IEN ; EVNT - CMET Event IEN ; SYS - '1' = EHR ; Output ; Result - -1 is an error,1 is the most recent event due, 0 is none found ; If SYS is EHR (1) then Last Event Date^Date Next Due ; If SYS is not EHR (0) then Category^Event Code^Event Name^Last Event Date^Next Event Due^next event due fileman^Last Updated Date^Event Visit IEN ; |
|
| PAT(DATA,DFN) | ; EP -- BTPW GET CMET REMINDERS BY PAT
; Input ; DFN - Patient internal entry number |
|
| REC(BQIDFN,DATA) | ; PEP - Get future CMET records for a patient
; Input ; BQIDFN - Patient IEN ; DATA - Target ; Output ; Identifier^Category^Event Name^Next Event Due ; |
|
| HDR | ; Header
|
|
| ERR | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BTPW(90621 - [#90621] | PAT+21, REC+15, EVT+13, EVT+19 |
| ^BTPWP - [#90620] | PAT+22, PAT+23, PAT+24, EVT+20, EVT+21, EVT+22 |
| ^BTPWP("AG" | PAT+16, PAT+18, PAT+20, REC+10, REC+12, REC+14, EVT+16, EVT+18 |
| ^DD("DD" | ERR+3 |
| ^TMP("BTPWRMDR" | PAT+6 |
| ^XTMP("BTPWPRC" | PAT+26, PAT+28, PAT+30, EVT+24, EVT+26, EVT+28 |
| Name | Line Occurrences |
|---|---|
| HDR | PAT+11 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | PAT+24, EVT+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BMXSEC | PAT+13*, ERR+4* |
| BQIDFN | PAT+4~, PAT+12*, PAT+13, PAT+16, PAT+18, PAT+20, PAT+26, PAT+28, PAT+30, REC~ , REC+10, REC+12, REC+14, EVT~, EVT+16, EVT+18, EVT+24, EVT+26, EVT+28 |
| CMIEN | PAT+4~, PAT+19*, PAT+20*, PAT+22, PAT+23, REC+7~, REC+13*, REC+14*, EVT+11~, EVT+17* , EVT+18*, EVT+20, EVT+21 |
| CODE | PAT+4~, PAT+31*, PAT+32, EVT+11~, EVT+31*, EVT+34 |
| DATA | PAT~, PAT+6*, PAT+7, PAT+32, PAT+33, PAT+35, ERR+5, ERR+6, HDR+1, HDR+2 , REC~, REC+8, REC+17 |
| DFN | PAT~, PAT+12 |
| ERRDTM | ERR+2~, ERR+3*, ERR+4 |
| ERROR | PAT+4~ |
| EVDATE | PAT+4~, PAT+31*, PAT+33 |
| EVDT | PAT+4~, PAT+17*, PAT+18*, PAT+20, PAT+31, REC+7~, REC+11*, REC+12*, REC+14, REC+16 , EVT+11~, EVT+15*, EVT+16*, EVT+18, EVT+29 |
| EVDUE | REC+7~, REC+16*, REC+17, EVT+11~, EVT+29*, EVT+35, EVT+38 |
| EVNAM | PAT+4~, PAT+21*, PAT+32, REC+7~, REC+15*, REC+17, EVT+11~, EVT+19*, EVT+33, EVT+34 , EVT+37 |
| EVNT | EVT~, EVT+13*, EVT+14, EVT+16, EVT+18, EVT+19, EVT+22, EVT+24, EVT+26, EVT+28 , EVT+31, EVT+34 |
| EVT | PAT+4~, PAT+15*, PAT+16*, PAT+18, PAT+20, PAT+21, PAT+24, PAT+26, PAT+28, PAT+30 , PAT+31, PAT+32, REC+7~, REC+9*, REC+10*, REC+12, REC+14, REC+15, REC+17 |
| II | PAT+4~, PAT+9*, PAT+32*, PAT+33, PAT+35*, ERR+5*, ERR+6*, HDR+1, HDR+2, REC+7~ , REC+9*, REC+17* |
| LAST | PAT+4~, PAT+21*, PAT+24*, PAT+25, PAT+26*, PAT+28, PAT+30, PAT+32, REC+7~, REC+15* , EVT+11~, EVT+15*, EVT+19*, EVT+22*, EVT+23, EVT+24*, EVT+26, EVT+28, EVT+34, EVT+38 |
| LSTN | PAT+4~, PAT+23*, PAT+24, EVT+11~, EVT+21*, EVT+22 |
| LSUPD | PAT+4~, PAT+22*, PAT+33, EVT+11~, EVT+20*, EVT+35 |
| PRI | PAT+27*, PAT+28*, PAT+30, EVT+11~, EVT+25*, EVT+26*, EVT+28 |
| QFL | PAT+4~, PAT+17*, PAT+18, PAT+20, PAT+31*, REC+7~, REC+11*, REC+12, REC+14, REC+15* |
| RESULT | EVT+11~, EVT+15*, EVT+33*, EVT+34*, EVT+35*, EVT+37*, EVT+38*, EVT+39 |
| SYS | EVT~, EVT+12*, EVT+32, EVT+36 |
| U | PAT+21, PAT+22, PAT+23, PAT+24, PAT+32, PAT+33, REC+15, REC+17, EVT+19, EVT+20 , EVT+21, EVT+22, EVT+34, EVT+35, EVT+38 |
| UID | PAT+4~, PAT+5*, PAT+6 |
| VIS | PAT+29*, PAT+30*, EVT+11~, EVT+27*, EVT+28* |
| VISIT | PAT+4~, PAT+21*, PAT+24*, PAT+30*, PAT+33, EVT+11~, EVT+19*, EVT+22*, EVT+28*, EVT+35 |
| Y | ERR+2~, ERR+3* |
| >> ZTSK | PAT+5 |