HMPOR ;ASMR/CK,hrubovcak - Order file support;Feb 01, 2016 14:28:49
Source file <HMPOR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADDFLAG(HMRSLT,HMVALS,HMORIFN,HMDFN,HMORLVL) | ; LAYGO flag action into HMP SUBSCRIPTION file (#800000)
; HMRSLT - result, passed-by-ref., 1 on success else "-1^error message" |
|
| ADDORDR(HMRSLT,HMVALS,HMORIFN,HMDFN,HMORLVL) | ; LAYGO order into HMP SUBSCRIPTION file (#800000), sub-file 800000.14
; HMRSLT - return value passed-by-ref., 1 on success else "-1^error message" |
|
| DELORDR(HMPDFN,HMIFN) | ; delete entry in ORDERS sub-file
|
|
| ORDRCHK(HMORIFN,HMDFN) | ; Boolean function, does ORDER number HMPORIFN exist in ^HMP(800000) for patient HMDFN
; DE3504 - Jan 19, 2016 |
|
| ORDRVALS(HMFLDS,HMORIFN) | ; map ORDER ACTIONS (#100.008) to ORDERS sub-file (#800000.14) Feb 1, 2016
; HMFLDS returned by reference ; HMORIFN order IFN (Required) |
|
| SRVRNO(DFN4SRVR) | ; function, return server number for patient DFN4SRVR, zero if not subscribed
|
|
| UPDTORDR(HMRSLT,HMVALS,HMORIFN,HMDFN) | ; update order in HMP SUBSCRIPTION file (#800000), sub-file 800000.14
; HMRSLT - return value passed-by-ref., 1 on success else "-1^error message" |
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | GET1^DIQ, GETS^DIQ |
