©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
XQ88 ;SF/GFT,RWF,AMF,JLI,LUKE - Build menu trees ;04/18/2002 11:08 [ 07/29/2004 9:01 AM ]
Source file <XQ88.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ||
| RD3 | ;Called by SEC and SEC+2
|
|
| PM2 | ;Enter here to rebuild a single menu Called by RD3+10
|
|
| PMOK | ||
| TREE1 | ||
| TREE | ;
|
|
| PMOKA | ||
| PMOSET | ;
|
|
| UP | ||
| ERR | ;Come here on error
|
|
| MERGE | ;Merge ^TMP("XQO",$J) into ^DIC(19,"AXQ")
|
|
| EN | ;Entry point
|
|
| SEC | ||
| SET1 | ||
| TIME | ;See if there are prohibited times for this option
|
|
| BLDEND | ;We are all done, let's clean up and quit.
|
|
| PMO3 | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(19 - [#19] | TIME+1, TIME+2, PM2+3, PM2+4, PM2+7, PM2+8, PM2+10, PM2+11, PM2+12, TREE+1 , TREE1, TREE1+3, SET+3, SET1, EN+17, MERGE+3, MERGE+4!, MERGE+5*, MERGE+6 |
| ^TMP("XQO" | PM2+1!, PM2+4!*, PM2+8*, PM2+10*, PM2+12*, PMOSET+1*, PMOSET+2*, PMOSET+4, PMOSET+5, PMO3+1 , PMO3+2, SEC, SEC+1, EN+5*, EN+6, EN+7, EN+8, EN+9!, EN+20!, BLDEND+7! , MERGE+2, MERGE+5, MERGE+7! |
| ^TMP($J | SET+2, SET+3*, SET1*, EN+12!, EN+14, EN+15, EN+17, EN+19, BLDEND+7! |
| ^VA(200 - [#200] | SET, SET+1, SET1, EN+12 |
| ^XUTL("XQO" | PM2+1*, PMOKA! |
| Name | Line Occurrences |
|---|---|
| MERGE | BLDEND+5 |
| PM2 | RD3+2 |
| PMO3 | PMOSET+1, PMOSET+2 |
| PMOK | PM2+4, PM2+7 |
| PMOKA | PM2+7 |
| PMOSET | TREE1+4 |
| RD3 | SEC, SEC+2, EN+17 |
| SEC | EN+19 |
| SET | EN+12 |
| SET1 | SET |
| TIME | PM2+10, TREE1+4 |
| TREE | TREE+1, TREE1+2, TREE1+4, TREE1+5 |
| TREE1 | PM2+4, PM2+7 |
| UP | PM2+11, TREE1, PMOSET+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | TIME+2, TREE+1, PMOSET+1, PMOSET+2, PMOSET+4*, PMO3+1, PMO3+2*!, SET1, EN+20* |
| ^("U" | PM2+11*, TREE1* |
| ^(0 | TIME+2, PM2+7, PMOSET+5*, SET+3, EN+6*, EN+7*, EN+8 |
| ^(1.1 | SET+1 |
| ^(201 | SET |
| ^(99.1 | PM2+8* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PM2+4*, PM2+7*, PM2+10*, PMOK!, TREE+1*, PMOSET+2, PMOSET+5*, EN+14*, EN+15*, BLDEND+2! |
| %H | BLDEND+2! |
| %TG | BLDEND+2! |
| %XQI | TIME+1*, TIME+2*, TIME+3! |
| D | PMOSET+3*, PMO3+1*, PMO3+2, BLDEND+2!, BLDEND+8! |
| DIC | BLDEND+2! |
| DIR | BLDEND+2! |
| I | PMOSET+3*, PMO3+2*, PMO3+3, BLDEND+2!, BLDEND+8! |
| J | BLDEND+2! |
| K | PMOSET+1*, PMOSET+2*, PMO3+1*, PMO3+2, PMO3+3, BLDEND+2! |
| L | TIME+1, TIME+2, TIME+3, PM2+4*, PM2+7*, PM2+10*, TREE+1, TREE1+2, TREE1+3, TREE1+4* , TREE1+5*, PMOSET+1, PMOSET+2, PMOSET+3, BLDEND+2! |
| U | TIME+1, TIME+2, TIME+3, PM2+7, PM2+10, PM2+11, PM2+12, TREE+1, TREE1, TREE1+1 , TREE1+2, TREE1+3, PMOSET+1, PMOSET+2, PMOSET+4, PMOSET+5, PMO3+1, PMO3+2, SET+1, SET+2 , SET+3, EN+1*, EN+6, EN+7, EN+12, EN+17 |
| UU | PM2+10, EN+1*, BLDEND+2! |
| V | PMO3+1*, BLDEND+2! |
| W | BLDEND+8! |
| X | UP*, PM2+11*, TREE1*, TREE1+1, PMOSET+1*, PMOSET+2*, PMO3+1, PMO3+2, PMO3+3*, EN+17* , EN+19*, BLDEND+2!, BLDEND+8!, MERGE+1~*, MERGE+2*, MERGE+3, MERGE+4, MERGE+5, MERGE+6, MERGE+7 |
| X( | TREE+1*, TREE1+4* |
| X(0 | PM2+4*, PM2+7* |
| XQA | PMOK!, PMOSET+3*, PMOSET+4, PMOSET+5 |
| XQA( | TREE1+2*, TREE1+5! |
| XQBLD | SEC, SEC+1, RD3+1, EN+17*, EN+19*, EN+20*, BLDEND+3! |
| XQD | PM2+4*, PM2+7*, PM2+10*, PMOK!, TREE+1, TREE1+4*, TREE1+5* |
| XQD( | TREE1+4*, TREE1+5 |
| XQDIC | PM2+1, PM2+3, PM2+4*, PM2+5, PM2+7, PM2+8, PM2+9, PM2+10, PM2+12, PMOKA , PMOSET+1, PMOSET+2, PMOSET+4, PMOSET+5, PMO3+1, PMO3+2, RD3+1*, EN+2~ |
| XQDT | PM2+4, PM2+8, EN+2~, EN+3*, BLDEND+3! |
| XQE | PMOK!, PMOSET+3*, PMOSET+4, PMOSET+5 |
| XQE( | TREE1+2*, TREE1+5! |
| XQERROR | ERR+1~, ERR+2* |
| XQF | PMOK!, PMOSET+3*, PMOSET+4, PMOSET+5 |
| XQF( | TREE1+3*!, TREE1+5! |
| XQFL | PM2+11*, PMOK! |
| XQH | EN+2~, EN+12*, EN+20, BLDEND+3! |
| XQI | SET, SET+1, SET1, EN+2~, EN+6*, EN+7*, EN+8*, EN+9*, EN+12*, BLDEND+3! |
| XQJ | EN+17*, BLDEND+3! |
| XQK | PMOSET+3*, PMOSET+4, PMOSET+5, SET*, SET+2, SET+3, EN+6*, EN+7*, EN+8*, EN+9* , EN+12*, EN+20*, BLDEND+3!, BLDEND+8! |
| XQK( | TREE1+2*, TREE1+5! |
| XQL | SEC*, SEC+1*, SEC+2, SET1*, BLDEND+3! |
| XQN | SEC+1*, SET1*, BLDEND+3! |
| XQNT | EN+14*, EN+15*, BLDEND+3! |
| XQP | PMOK!, PMOSET+3*, PMOSET+4, PMOSET+5, SET+1*, SET+2*, SET+3, BLDEND+3! |
| XQP( | TIME+1*, TIME+2*, TIME+3*, PM2+10*, TREE1+5! |
| XQR | PMOK!, SET+1*, SET+2, BLDEND+3! |
| XQR( | TREE+1*, TREE1+5! |
| XQREALT | BLDEND+8! |
| XQSAV | PM2+4*, EN+2~, BLDEND+3! |
| XQSAVE | PM2+11*, PMOK! |
| XQSEC | EN+2~, EN+5*, EN+18*, BLDEND+3! |
| XQXUF | PM2+4*, BLDEND+3!, BLDEND+8! |
| Y | TIME+1, TIME+2, PM2+3*, PM2+4*, PM2+7*, PM2+9*, PM2+10, PM2+11, PM2+12, TREE+1* , TREE1, TREE1+2, TREE1+3, TREE1+4, PMOSET+1, PMOSET+2, PMOSET+4, PMOSET+5, PMO3+1, BLDEND+2! , BLDEND+8! |
| Y(0 | TIME+3, TREE1*, TREE1+1*, TREE1+2, TREE1+3, PMOSET+4 |
| Y(1 | TREE1+1*, PMOSET+1 |
| Z | BLDEND+2!, BLDEND+8! |
| >> ZTQUEUED | PMOK+1 |
| ZTREQ | PMOK+1*, EN+4! |
| ZTSK | PMOKA! |