©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
DIC5 ;SFISC/XAK,TKW,SEA/TOAD-VA FileMan: Lookup, Part 1 (utilities) ;05/28/2008
Source file <DIC5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTRID(DO,DIC) | ; Build code in DIC("W") to display Identifiers on pointed-to files
|
|
| KEEPON | ; If DIC(0)["T", display entries found so far, then check for internal value if index is date, set, pointer, VP. Called from ^DIC3.
|
|
| NODE75 | ; Do after executing 7.5 node on DD, called from ^DIC
|
|
| Q | ; Build Identifier code for a single pointed-to file
|
|
| BYIEN1 | ; Lookup record by IEN when user enters `n for a number 'n', called from ^DIC
|
|
| BYIEN2 | ; Lookup record by IEN when user enters a numeric lookup value, called from ^DIC
|
|
| SPACEBAR | ; Lookup last record selected by this user when user enters space bar return. Called from ^DIC
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | BYIEN2+4, PTRID+2 |
| ^DIC - [#1] | PTRID+2 |
| Name | Line Occurrences |
|---|---|
| Q | PTRID+2 |
| Name | Field # of Occurrence |
|---|---|
| ^("A[" | BYIEN2+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | BYIEN1+2~*, BYIEN2+6~*, SPACEBAR+1~*, Q+3~, Q+5~*, Q+7, Q+8, Q+9, Q+10 |
| D | BYIEN2+8, BYIEN2+9*, BYIEN2+10, KEEPON+2~*, KEEPON+11~* |
| DD | BYIEN1+4~*, BYIEN2+4~*, BYIEN2+5, KEEPON+6!*, KEEPON+13!* |
| >> DDS | NODE75+3 |
| >> DF | BYIEN2+1 |
| DIC | BYIEN2+3, BYIEN2+5, PTRID~, PTRID+1 |
| DIC("W" | Q+3, Q+4, Q+8*, Q+9*, Q+10*, Q+11*, Q+12* |
| DIC(0 | NODE75+2, BYIEN2+10, KEEPON+7, KEEPON+10 |
| DIC5D | BYIEN2+8~*, BYIEN2+9 |
| DIFILEI | BYIEN2+4, KEEPON+7, PTRID+1~*, PTRID+2*, Q+5 |
| DIGBL | PTRID+1~, PTRID+2*, Q+1, Q+2, Q+5, Q+6 |
| DIGBL1 | Q+1~*, Q+2*, Q+5 |
| DINDEX | BYIEN1+2~*, BYIEN2+6~*, SPACEBAR+1~*, KEEPON+10 |
| DINDEX("#" | BYIEN1+2*, BYIEN2+6*, SPACEBAR+1*, KEEPON+10 |
| DINDEX("START" | BYIEN1+2*, BYIEN2+6*, SPACEBAR+1*, KEEPON+10 |
| DINDEX(1 | BYIEN2+2 |
| DIOGBL | PTRID+1~*, Q+5, Q+6* |
| >> DIROUT | KEEPON+1, KEEPON+5, KEEPON+8, KEEPON+14 |
| >> DISKIPIX | BYIEN2+10* |
| >> DIVAL | NODE75+1* |
| >> DIVAL(1 | NODE75+1* |
| DIX | BYIEN1+4*, BYIEN2+8~*, SPACEBAR+3~*, KEEPON+6!, KEEPON+13! |
| DIYX | KEEPON+6!, KEEPON+13! |
| DO | PTRID~ |
| DO(2 | BYIEN2+1, PTRID+1 |
| DS | BYIEN1+4~*, BYIEN2+8~*, SPACEBAR+3~*, KEEPON+1, KEEPON+3, KEEPON+5, KEEPON+6!*, KEEPON+13!* |
| DS("DD" | KEEPON+4*, KEEPON+5, KEEPON+6*, KEEPON+13* |
| DS(0 | KEEPON+7*, KEEPON+8*, KEEPON+14* |
| >> DTOUT | KEEPON+1, KEEPON+8, KEEPON+14 |
| DUOUT | KEEPON+5! |
| DZ | BYIEN1+4~, BYIEN2+8~, SPACEBAR+3~ |
| I | KEEPON+2~*!, KEEPON+11~*! |
| N | Q+3~*, Q+4, Q+8, Q+9, Q+10*, Q+11, Q+12 |
| O | Q+3~, Q+4*, Q+7 |
| T | BYIEN2+2~*, BYIEN2+5, BYIEN2+10 |
| U | PTRID+2 |
| X | NODE75+1, BYIEN1+1, BYIEN1+4, BYIEN2+7, BYIEN2+8, SPACEBAR+3, KEEPON+2~*, KEEPON+11~* |
| >> Y | NODE75+2*, BYIEN1+1*, BYIEN1+3*, BYIEN1+4, BYIEN2+3, BYIEN2+7*, BYIEN2+8, SPACEBAR+2*, KEEPON+1, KEEPON+8 , KEEPON+14 |