©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
OCXRU4 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*96) ;JAN 30,2001 at 11:16
Source file <OCXRU4.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 3 | $$EXFLD^OCXRU1 ($$GETREF,DIE)^OCXRU2 ($$FILEHDR,$$FILENAME)^OCXSENDD |
| VA Fileman | 1 | ^DIR |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 1 | OCXRU1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PAUSE() | ||
| PUSH(OCXDA) | ;
|
|
| POP(OCXDA) | ;
|
|
| APPEND(ARRAY,OCXSUB) | ;
|
|
| EDITFLD(OCXCREF,OCXDD,OCXFLD,OCXSUB) | ;
|
|
| S | ;
; Field Utilities |
|
| DELFLD(OCXCREF,OCXDD,OCXFLD,OCXSUB) | ;
|
|
| CREATE(OCXCREF,OCXDD,OCXDA,OCXLVL) | ;
|
|
| READ(OCXZ0,OCXZA,OCXZB,OCXZL) | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences |
|---|---|
| $$APPEND | EDITFLD+4, DELFLD+4, CREATE+13 |
| $$READ | EDITFLD+11, DELFLD+9 |
| CREATE | CREATE+13 |
| POP | CREATE+14 |
| PUSH | CREATE+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | APPEND~, APPEND+2, APPEND+3 |
| DDPATH | EDITFLD+2~, EDITFLD+4*, EDITFLD+5, EDITFLD+6, DELFLD+2~, DELFLD+4*, DELFLD+5, DELFLD+6 |
| DIR | READ+1~ |
| DIR("A" | READ+4* |
| DIR("B" | READ+5* |
| DIR(0 | READ+3* |
| DIROUT | READ+1~, READ+8 |
| DIRUT | READ+1~, READ+8 |
| DTIME | PAUSE |
| DTOUT | READ+1~, READ+8 |
| DUOUT | READ+1~, READ+8 |
| OCXCREF | EDITFLD~, EDITFLD+4, EDITFLD+8, EDITFLD+13, DELFLD~, DELFLD+4, CREATE~, CREATE+8, CREATE+9, CREATE+12 , CREATE+13 |
| OCXDA | EDITFLD+2~, EDITFLD+7*, EDITFLD+12, EDITFLD+13, DELFLD+2~, DELFLD+7*, DELFLD+10, DELFLD+11, CREATE~, CREATE+4* , CREATE+9, CREATE+11, CREATE+13*, CREATE+14, PUSH~, PUSH+2*, POP~, POP+2* |
| OCXDA( | EDITFLD+6*, DELFLD+6*, PUSH+1*, POP+1*, POP+2! |
| OCXDA("" | POP+2 |
| OCXDA(0 | EDITFLD+7!, DELFLD+7! |
| OCXDA(1 | PUSH+2*, POP+2 |
| OCXDD | EDITFLD~, EDITFLD+4, EDITFLD+8, EDITFLD+11, EDITFLD+12, EDITFLD+13, DELFLD~, DELFLD+4, DELFLD+9, DELFLD+10 , DELFLD+11, CREATE~, CREATE+4, CREATE+6, CREATE+8, CREATE+9, CREATE+12, CREATE+13 |
| >> OCXFLAG | EDITFLD+10, EDITFLD+11, DELFLD+8, DELFLD+9 |
| OCXFLD | EDITFLD~, EDITFLD+8, EDITFLD+13, DELFLD~, DELFLD+11, CREATE+2~, CREATE+8*, CREATE+9, CREATE+12*, CREATE+13 |
| OCXGREF | EDITFLD+12*, EDITFLD+13, DELFLD+10*, DELFLD+11, CREATE+2~, CREATE+4*, CREATE+6, CREATE+9 |
| OCXLINE | READ+1~, READ+6* |
| OCXLVL | EDITFLD+2~, EDITFLD+5*, EDITFLD+6, EDITFLD+12, EDITFLD+13, DELFLD+2~, DELFLD+5*, DELFLD+6, DELFLD+10, DELFLD+11 , CREATE~, CREATE+4, CREATE+9, CREATE+13 |
| OCXPC | EDITFLD+2~, EDITFLD+6*, DELFLD+2~, DELFLD+6* |
| OCXSUB | EDITFLD~, DELFLD~, PUSH+1~*, POP+1~*, APPEND~, APPEND+1*, APPEND+2, APPEND+3 |
| OCXZ0 | READ~, READ+2, READ+3 |
| OCXZA | READ~, READ+4 |
| OCXZB | READ~, READ+5 |
| OCXZL | READ~, READ+6 |
| QUIT | EDITFLD+2~, EDITFLD+4*, EDITFLD+11*, EDITFLD+15, DELFLD+2~, DELFLD+4*, DELFLD+9*, DELFLD+13 |
| RESP | EDITFLD+9~, EDITFLD+11*, DELFLD+2~, DELFLD+9* |
| U | EDITFLD+11, DELFLD+9, CREATE+6, READ+2, READ+8, PAUSE |
| >> X | PAUSE* |
| >> Y | READ+9 |