ORCMEDT8 ;SLC/JM-QO, Generate quick order CRC ;10/18/07
Source file <ORCMEDT8.m>
Package | Total | Call Graph |
---|---|---|
Order Entry Results Reporting | 4 | $$CRC4ARRY^ORCRC CHK94^ORWDPS1 LOADRSP^ORWDX FORMID^ORWDXM |
VA Fileman | 1 | ^DIE |
Package | Total | Caller Graph |
---|---|---|
Order Entry Results Reporting | 2 | ORCMEDT1 ORWDXQ |
Name | Comments | DBIA/ICR reference |
---|---|---|
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. |
|
FORMINFO(FORMINFO,IDINFO,NEXTFORM) | ; populates FORMINFO,IDINFO and NEXTFORM arrays
|
|
UPDQNAME(ORIEN) | ; Rename personal quick order name if needed
|
|
IDTABLE | ; ID table - returns codes used in the form table IDINFO("LONGNAME")=SHORNAME
|
|
FORMTBL | ; Form Table - Forms allowing personal quick orders, as of CPRS GUI v26 (OR*3*215)
|
|
SUBID05 | ; Diet
|
|
SUBID02 | ; IV Meds
|
|
PARSE | ; Parse Data
|
|
RWQ | ||
EXT | ||
SORTDATA | ; Sorts data by fields according to FormID
|
|
SUBID03 | ; Delphi code adds URGENCY prompt that does not exist in dialog on M side
|
|
SUBID01 | ; Generic Meds dialog
|
|
ENSURNEW(NAME) | ; Ensures the name is a new entry
|
|
HASCODE(CODE) | ; scans data for code
|
|
CRC4QCK(ORIEN) | ; Get CRC for a personal quick order
|
|
GETLINE | ;
|
|
SUBID04 | ; Blood Bank will probably be wrong - quick orders not working in v26
|
|
RAWCRC(ORIEN) | ; Get a raw CRC value to determine if a record has changed
|
FileNo | Call Tags |
---|---|
^ORD(101.41 - [#101.41] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ORD(100.98 - [#100.98] | CRC4QCK+14 |
^ORD(101.41 - [#101.41] | UPDQNAME+2, UPDQNAME+3, ENSURNEW+4, RAWCRC+3, RAWCRC+4, CRC4QCK+5, CRC4QCK+6, CRC4QCK+7, CRC4QCK+13 |
Name | Line Occurrences |
---|---|
$$CRC4QCK | UPDQNAME+5 |
$$ENSURNEW | UPDQNAME+7 |
$$HASCODE | SUBID01+2, SUBID03+1 |
@( | SORTDATA+4 |
EXT | CRC4QCK+5, CRC4QCK+6 |
FORMINFO | CRC4QCK+18 |
GETLINE | PARSE+3, PARSE+12 |
PARSE | RAWCRC+6, CRC4QCK+21 |
RWQ | RAWCRC+3, RAWCRC+4 |
SORTDATA | CRC4QCK+20 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ABC | ENSURNEW+1~, ENSURNEW+3*, ENSURNEW+5, ENSURNEW+6* |
ADDCRLF | RAWCRC+1~, CRC4QCK+1~, PARSE+8*, PARSE+10*, PARSE+11*, PARSE+20, PARSE+25 |
BASENAME | ENSURNEW+1~, ENSURNEW+3*, ENSURNEW+5, ENSURNEW+6* |
CODE | PARSE+1~, PARSE+13, PARSE+14, SORTDATA+1~, SORTDATA+9*, SORTDATA+10, SORTDATA+13, SORTDATA+16, GETLINE+4*, FORMINFO+1~ , FORMINFO+4*, FORMINFO+5, FORMINFO+6, FORMINFO+10*, FORMINFO+11, HASCODE~, HASCODE+6 |
COMPLEX | SUBID01+1~, SUBID01+2*, SUBID01+4, SUBID01+6 |
CRCDATA | PARSE+1~, PARSE+27, PARSE+31 |
CRCDATA( | PARSE+6*, PARSE+13*, PARSE+24*, PARSE+30* |
DA | UPDQNAME+1~, UPDQNAME+8* |
DATA | SORTDATA+1~ |
DATA( | SORTDATA+25*, SORTDATA+29, SORTDATA+30, SORTDATA+32 |
DATAIDX | PARSE+1~, PARSE+2*, GETLINE+2*, GETLINE+3, GETLINE+4 |
DEFDLG | CRC4QCK+1~, CRC4QCK+14*, CRC4QCK+15 |
DIDEL | UPDQNAME+1~ |
DIE | UPDQNAME+1~, UPDQNAME+8* |
DISPGRP | CRC4QCK+1~, CRC4QCK+13*, CRC4QCK+14 |
DONE | PARSE+1~, PARSE+2*, PARSE+3, PARSE+12, PARSE+26, GETLINE+3*, GETLINE+4 |
DR | UPDQNAME+1~, UPDQNAME+8* |
END | SORTDATA+1~, SORTDATA+5*, SORTDATA+17* |
FIRST | PARSE+1~, PARSE+7*, PARSE+15* |
FORMDATA | CRC4QCK+1~, CRC4QCK+20, SORTDATA+3*, SORTDATA+4*, SORTDATA+10, SORTDATA+12, SORTDATA+15 |
FORMID | CRC4QCK+1~, CRC4QCK+3*, CRC4QCK+8, CRC4QCK+11, CRC4QCK+12*, CRC4QCK+15*, CRC4QCK+16, CRC4QCK+17*, CRC4QCK+19*, CRC4QCK+20* , SORTDATA+3, SORTDATA+4, SORTDATA+33*, SUBID01+4*, SUBID01+5*, SUBID01+6*, SUBID05+1, SUBID05+2 |
FORMINFO | CRC4QCK+2~, CRC4QCK+18, FORMINFO~ |
FORMINFO( | SORTDATA+3, SORTDATA+4, FORMINFO+5* |
FORMINFO("BBK" | SUBID04+1 |
FORMINFO("BBX" | SUBID04+2 |
FORMINFO("DLN" | SUBID05+1 |
FORMINFO("IVL" | SUBID02+1 |
FORMINFO("MDX" | SUBID01+4, SUBID01+6 |
FORMINFO("TBL" | SUBID05+2 |
ID | SORTDATA+1~, SORTDATA+9* |
IDINFO | CRC4QCK+2~, CRC4QCK+18, FORMINFO~ |
IDINFO( | SORTDATA+9, FORMINFO+11* |
IDX | ENSURNEW+1~, ENSURNEW+3*, ENSURNEW+4*, PARSE+1~, PARSE+2*, PARSE+6*, PARSE+13*, PARSE+24*, PARSE+25, SORTDATA+1~ , SORTDATA+5*, SORTDATA+9*, SORTDATA+24, SORTDATA+25, SORTDATA+26*, FORMINFO+1~, FORMINFO+2*, FORMINFO+7*, FORMINFO+8*, FORMINFO+11* , HASCODE+1~*, HASCODE+2*, HASCODE+3, HASCODE+6* |
IN | SORTDATA+1~, SORTDATA+5*, SORTDATA+6*, SORTDATA+7, SORTDATA+28*, SORTDATA+29*, SORTDATA+30, SORTDATA+32 |
INDEX | SORTDATA+1~, SORTDATA+10*, SORTDATA+11, SORTDATA+12*, SORTDATA+13*, SORTDATA+14, SORTDATA+15*, SORTDATA+16*, SORTDATA+17, SORTDATA+20 , SORTDATA+23, SORTDATA+28*, SORTDATA+30*, SORTDATA+32 |
INPT | SUBID01+1~, SUBID01+2*, SUBID01+3 |
ISMASTER | PARSE+1~, PARSE+2*, PARSE+4, PARSE+12, PARSE+26, GETLINE+4* |
LASTIDX | RAWCRC+1~, CRC4QCK+2~, PARSE+2*, PARSE+25*, PARSE+29, PARSE+30 |
LASTLINE | RAWCRC+1~, CRC4QCK+2~, PARSE+2*, PARSE+17, PARSE+18, PARSE+23* |
LASTMSTR | PARSE+1~, PARSE+2*, PARSE+26*, GETLINE+1* |
LINE | PARSE+1~, PARSE+5, PARSE+7, PARSE+13, PARSE+15, PARSE+17, PARSE+22, PARSE+23, SORTDATA+1~, SORTDATA+7* , SORTDATA+8, SORTDATA+9, SORTDATA+25, GETLINE+4*, FORMINFO+1~, FORMINFO+3*, FORMINFO+4*, FORMINFO+5, FORMINFO+9*, FORMINFO+10* , FORMINFO+11, HASCODE+1~, HASCODE+3*, HASCODE+4, HASCODE+5*, HASCODE+6 |
LK4SPACE | PARSE+1~, PARSE+8*, PARSE+10*, PARSE+11*, PARSE+18 |
NAME | ENSURNEW~, ENSURNEW+2 |
NEWFORM | CRC4QCK+17~ |
NEWNAME | UPDQNAME+1~, UPDQNAME+5*, UPDQNAME+6, UPDQNAME+7*, UPDQNAME+8, ENSURNEW+1~, ENSURNEW+2*, ENSURNEW+3, ENSURNEW+4, ENSURNEW+5* , ENSURNEW+7 |
NEXT | FORMINFO+1~, FORMINFO+4*, FORMINFO+6 |
NEXTFORM | CRC4QCK+2~, CRC4QCK+18, FORMINFO~ |
NEXTFORM( | SORTDATA+33, FORMINFO+6* |
NODE | SORTDATA+1~, SORTDATA+9*, SORTDATA+22 |
OLDCRC | RAWCRC+1~, RAWCRC+2*, CRC4QCK+2~, CRC4QCK+7*, CRC4QCK+8, PARSE+29 |
OLDNAME | UPDQNAME+1~, UPDQNAME+3*, UPDQNAME+4, UPDQNAME+6 |
ORDATA | RAWCRC+1~, RAWCRC+5, CRC4QCK+1~, CRC4QCK+9!, SORTDATA+27! |
ORDATA( | SORTDATA+6, SORTDATA+7, SORTDATA+32*, GETLINE+2, GETLINE+4, HASCODE+2, HASCODE+3, SUBID03+4* |
ORDATA(999999 | SUBID03+3 |
ORIEN | UPDQNAME~, UPDQNAME+2, UPDQNAME+3, UPDQNAME+5, UPDQNAME+8, RAWCRC~, RAWCRC+3, RAWCRC+4, RAWCRC+5, CRC4QCK~ , CRC4QCK+5, CRC4QCK+6, CRC4QCK+7, CRC4QCK+9, CRC4QCK+13 |
OUT | SORTDATA+1~, SORTDATA+5*, SORTDATA+17*, SORTDATA+20*, SORTDATA+22*, SORTDATA+23*, SORTDATA+25, SORTDATA+28*, SORTDATA+31*, SORTDATA+32 |
OUTPUT | PARSE+1~, PARSE+5*, PARSE+6, PARSE+15*, PARSE+17*, PARSE+18*, PARSE+20*, PARSE+21*, PARSE+22*, PARSE+24 |
P3 | PARSE+1~, PARSE+7*, PARSE+8, PARSE+10 |
RESULT | RAWCRC+1~, RAWCRC+2*, RWQ, CRC4QCK+1~, CRC4QCK+3*, CRC4QCK+8, EXT, PARSE+27*, PARSE+29, PARSE+31* , HASCODE+1~*, HASCODE+6*, HASCODE+7 |
RTN | SORTDATA+1~, SORTDATA+4*, FORMINFO+1~ |
SUBFORM | SORTDATA+1~, SORTDATA+2*, SORTDATA+11, SORTDATA+13, SUBID01+4*, SUBID01+6*, SUBID02+1*, SUBID04+1*, SUBID05+1*, SUBID05+2* |
SUBFORM2 | SORTDATA+1~, SORTDATA+2*, SORTDATA+14, SORTDATA+16, SUBID04+2* |
SUBIDX | SORTDATA+1~, SORTDATA+10*, SORTDATA+13*, SORTDATA+16*, SORTDATA+19, SORTDATA+21*, SORTDATA+22 |
U | UPDQNAME+2, UPDQNAME+3, UPDQNAME+4, RAWCRC+3, RAWCRC+4, CRC4QCK+5, CRC4QCK+6, CRC4QCK+7, CRC4QCK+13, CRC4QCK+14 , PARSE+5, PARSE+7, SORTDATA+9, HASCODE+5 |
X | SUBID03+2~, SUBID03+3*, SUBID03+4 |
Name | Field # of Occurrence |
---|---|
$T(FORMTBL+IDX | FORMINFO+3 |
$T(IDTABLE+IDX | FORMINFO+9 |