©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
GMPLBLDF ; SLC/MKB -- Build Problem Selection List from IB Enc Form ;5/12/94 10:26
Source file <GMPLBLDF.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | FILE^DICN ^DIE ^DIR |
| Automated Information Collection System | 1 | ($$COPYFORM,$$GETFORM)^IBDF18 |
| Kernel | 1 | $$UP^XLFSTR |
| Problem List | 1 | NEW^GMPLBLD2 |
| Package | Total | Caller Graph |
|---|---|---|
| Problem List | 1 | GMPL BUILD ENC FORM LIST |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Start here.
|
|
| EN0 | ||
| EN1 | ; Create list to copy problems into
|
|
| EN2 | ||
| EN3 | ; Here we go ...
|
|
| EXIT | ; Clean-up
|
|
| NGQ | ||
| NEWGRP(FORM,HDR,SEQ) | ; Create new group entries in #125.1 and #125.11
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^GMPL(125 - [#125] | Classic Fileman Calls |
| ^GMPL(125.1 - [#125.1] | Classic Fileman Calls |
| ^GMPL(125.11 - [#125.11] | Classic Fileman Calls |
| ^GMPL(125.12 - [#125.12] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TEST" | EN+1 |
| ^GMPL(125 - [#125] | EN1+2, EN2+1 |
| ^GMPL(125.11 - [#125.11] | NEWGRP+3 |
| Name | Line Occurrences |
|---|---|
| $$NEWGRP | EN3+5, EN3+9 |
| EN0 | EN0+3 |
| EN2 | EN2+1 |
| EXIT | EN0, EN2, EN2+3 |
| NGQ | NEWGRP+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | EN2+4*, EXIT+1! |
| DD | EN2+2!, NEWGRP+1~ |
| DIC | EN2+2*, EN2+4, EXIT+1!, NEWGRP+1~, NEWGRP+2* |
| DIC("DR" | EN2+2*, NEWGRP+2* |
| DIC(0 | EN2+2*, NEWGRP+2* |
| DIE | EN2+4*, EXIT+1! |
| DIK | EN3+10*, EN3+11, EXIT+1!, NEWGRP+1~, NEWGRP+6*, NEWGRP+7 |
| DIR | EXIT+1! |
| DIR("?" | EN1+3*, EN1+4* |
| DIR("A" | EN1+1* |
| DIR("B" | EN1+2* |
| DIR(0 | EN1+1* |
| DLAYGO | EN2+2*, EXIT+1!, NEWGRP+1~, NEWGRP+2* |
| DO | EN2+2!, NEWGRP+1~ |
| DR | EN2+4*, EXIT+1! |
| DT | EN2+2, NEWGRP+2 |
| >> DTOUT | EN2 |
| >> DUOUT | EN2 |
| FORM | NEWGRP~, NEWGRP+4 |
| GHDR | EN3+4*, EN3+5, EXIT+1! |
| GMPL | EXIT+1! |
| GMPL( | EN3+6, EN3+7 |
| GMPL(0 | EN0+2* |
| GMPL(1 | EN3+4 |
| GMPLFORM | EN0*, EN0+2, EN1+2, EN3+1, EN3+2, EN3+5, EN3+9, EXIT+1! |
| GMPLGRP | EN3+5*, EN3+9*, EN3+11, EXIT+1! |
| GMPLI | EN3+4*, EN3+6*, EN3+7, EXIT+1! |
| GMPLSLST | EN2+4*, EN3+2, EN3+3, EXIT+1!, NEWGRP+7 |
| GSEQ | EN3+4*, EN3+5*, EN3+9*, EXIT+1! |
| HDR | NEWGRP~, NEWGRP+3, NEWGRP+6 |
| ITEM | EN3+7*, EN3+8, EN3+9, EN3+10*, EN3+11, NEWGRP+1~, NEWGRP+6*, NEWGRP+7 |
| PSEQ | EN3+4*, EN3+9*, EN3+10*, EXIT+1! |
| SEQ | NEWGRP~, NEWGRP+4, NEWGRP+6 |
| U | EN1+2, EN2+4, EN3+1, EN3+2, EN3+3, EN3+4, EN3+9, EN3+10, NEWGRP+4, NEWGRP+6 , NGQ |
| X | EN+1*, EN0+2*, EN0+3, EXIT+1!, NEWGRP+1~, NEWGRP+3*, NEWGRP+4* |
| Y | EN2+1, EN2+3, EN2+4, EXIT+1!, NEWGRP+1~, NEWGRP+5, NEWGRP+6, NGQ*, NGQ+1 |