ORCMEDT8 ;SLC/JM-QO, Generate quick order CRC ;Oct 20, 2021@13:26:11
Source file <ORCMEDT8.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
UPDQNAME(ORIEN) | ; Rename personal quick order name if needed
|
|
ENSURNEW(NAME) | ; Ensures the name is a new entry
|
|
RAWCRC(ORIEN) | ; Get a raw CRC value to determine if a record has changed
|
|
RWQ | ||
CRC4QCK(ORIEN) | ; Get CRC for a personal quick order
|
|
EXT | ||
PARSE | ; Parse Data
|
|
SORTDATA | ; Sorts data by fields according to FormID
|
|
GETLINE | ;
|
|
FORMINFO(FORMINFO,IDINFO,NEXTFORM) | ; populates FORMINFO,IDINFO and NEXTFORM arrays
|
|
HASCODE(CODE) | ; scans data for code
|
|
SUBID | ; SubID codes are used to change the form ID depending on depending on data
; Data below is FormID;SubID.list of ID codes in order of use ; SubID's are used to change the FormID depending on data values. |
|
SUBID01 | ; Generic Meds dialog
|
|
SUBID02 | ; IV Meds
|
|
SUBID03 | ; Delphi code adds URGENCY prompt that does not exist in dialog on M side
|
|
SUBID04 | ; Blood Bank will probably be wrong - quick orders not working in v26
|
|
SUBID05 | ; Diet
|
|
FORMTBL | ; Form Table - Forms allowing personal quick orders, as of CPRS GUI v26 (OR*3*215)
|
|
IDTABLE | ; ID table - returns codes used in the form table IDINFO("LONGNAME")=SHORNAME
|
FileNo | Call Tags |
---|---|
^ORD(101.41 - [#101.41] | Classic Fileman Calls |