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 |