ECXBCM ;ALB/JAP-Bar Code Medical Administration Extract ;6/13/19 12:36
Source file <ECXBCM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BEG | ;entry point from option
|
|
| START | ; start package specific extract
; |
|
| GET(ECSD,ECED) | ;get extract data
|
|
| CMPT | ; during component/sequence processing, retrieve rest of data record then file it.
|
|
| PAT(ECXDFN,ECXDATE,ECXERR) | ||
| CCODE(RIEN) | ; get component information
; input - IEN of the BCMA MEDICATION LOG File ; ; output - CCIEN: pointer to a variable pointer field to file #50, #52.6, or #52.7 ; CCDORD: .02 field of file #50, #52.6, or #52.7 ; CCDGVN: .03 FIELD of file #50, #52.6, or #52.7 ; CCUNIT: .04 field of file #50, #52.6, or #52.7 ; CCTYPE: derived field, "D", "A", or "S" |
|
| CHKIV(ECXDFN,ECSD,ECED) | ; Check file 728.113 for matching IV records
; input - ECXDFN DFN of the patient from the BCMA file ; ECSD: Start Date for the extract ; ECED: End Date for the extract ; return - True if the Order is in file 728.113 ; False if the Order is Not in file 728.113 |
|
| CHKUD(ECXDFN,ECSD,ECED) | ; Check file 728.904 for matching Unit dose records
; input - ECXDFN DFN of the patient from the BCMA file ; ECSD: Start Date for the extract ; ECED: End Date for the extract ; return - True if the Order is in file 728.904 ; False if the Order is Not in file 728.904 |
|
| FIRST() | ;154 Section added to determine if this is the first administration of the medication since pharmacist verification
|
|
| CLEAN(START,END) | ;154 Section added to delete old log entries
|
|
| MULTI() | ;154 Section added to determine if this is a multi-dose container
|
|
| EQUAL | ;154,161, list of terms for equality check
|
|
| CONTAIN | ;154, list of terms for contains check
|
|
| SETUP | ;Set required input for ECXTRAC.
|
|
| SETTMP(STR) | ;181 - Set TMP for Mail Message
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | Classic Fileman Calls |
| ^DIC(40.7 - [#40.7] | Classic Fileman Calls |
| ^SC - [#44] | Classic Fileman Calls, GET1^DIQ |
| ^PSDRUG - [#50] | GET1^DIQ |
| ^PS(52.6 - [#52.6] | GET1^DIQ |
| ^PS(52.7 - [#52.7] | GET1^DIQ |
| ^PSB(53.79 - [#53.79] | GET1^DIQ |
| 55.04 | GET1^DIQ |
| 55.09 | GET1^DIQ |
