©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
VALMD ;MJK/ALB - List Manager Demo Routine; APR 2, 1992
Source file <VALMD.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | (EN,WP)^VALM ($$SETFLD,$$SETSTR,FULL,PAUSE)^VALM1 (CLEAN,FLDCTRL,FLDTEXT,MSG,SELECT,SET)^VALM10 EN^VALM2 |
| VA Fileman | 4 | ^DIC ^DIE EN^DIQ ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- option entry point
|
|
| HDR | ; -- demo header
|
|
| CHG | ; -- change package action
|
|
| EDIT | ; -- edit action
|
|
| NUL | ; -- set nul message
|
|
| UPD(TEXT,FLD,VALMAT) | ; -- update data for screen
|
|
| ENQ | ||
| INIT | ; -- build array
|
|
| PKG | ; -- entry pt if package known
|
|
| INITQ | ||
| CHGQ | ||
| EXP | ; -- expand action
|
|
| FNL | ; -- clean up
|
|
| DESC | ; -- display description action
|
| Name | Field # of Occurrence |
|---|---|
| ^DIC | INIT+1, CHG+3 |
| ^DIE | EDIT+8 |
| EN^DIQ | EXP+7 |
| ^DIR | CHG+6 |
| EN^VALM | EN+2 |
| WP^VALM | DESC+6 |
| $$SETFLD^VALM1 | PKG+7, PKG+8, PKG+9 |
| $$SETSTR^VALM1 | HDR+3 |
| FULL^VALM1 | EXP+1 |
| PAUSE^VALM1 | EXP+7, DESC+5 |
| CLEAN^VALM10 | PKG+3, FNL+2 |
| FLDCTRL^VALM10 | PKG+13, PKG+14, PKG+15, UPD+1 |
| FLDTEXT^VALM10 | UPD+2 |
| MSG^VALM10 | EDIT+2, EDIT+12 |
| SELECT^VALM10 | EDIT+5, EDIT+11 |
| SET^VALM10 | PKG+11, NUL+2 |
| EN^VALM2 | EXP+3, EDIT+3, DESC+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | Classic Fileman Calls |
| ^DIC(9.4 - [#9.4] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(9.4 - [#9.4] | PKG+4, HDR+2 |
| ^ORD(101 - [#101] | PKG+5, EDIT+8, EDIT+9, DESC+5, DESC+6 |
| ^TMP("VALMZIDX" | PKG+12*, NUL+3*, FNL+1!, EXP+5, EDIT+6, DESC+4 |
| Name | Line Occurrences |
|---|---|
| CHG | CHG+3 |
| CHGQ | CHG+4 |
| HDR | CHG+8 |
| INITQ | INIT+2 |
| NUL | PKG+16 |
| PKG | CHG+8 |
| UPD | EDIT+10 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | PKG+5 |
| ^(2 | NUL+3* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | FNL+1!, EXP+7*, EDIT+8*, EDIT+9 |
| DE | FNL+1! |
| DIC | INIT+1*!, FNL+1!, EXP+7*, CHG+3*! |
| DIC("A" | INIT+1* |
| DIC(0 | INIT+1*, CHG+3* |
| DIE | FNL+1!, EDIT+8*! |
| DIR | CHG+6! |
| DIR(0 | CHG+6* |
| DQ | FNL+1! |
| DR | FNL+1!, EXP+7*, EDIT+8*! |
| DTIME | CHG+2 |
| FLD | UPD~, UPD+1, UPD+2 |
| >> IOINHI | UPD+1 |
| >> IOINORM | UPD+1 |
| >> IOUOFF | PKG+15 |
| >> IOUON | PKG+15 |
| TEXT | UPD~, UPD+2 |
| U | PKG+4, PKG+8, PKG+9, PKG+12, HDR+2, HDR+3, HDR+4, EXP+7, EDIT+8, EDIT+10 , DESC+4, DESC+6, CHG+1 |
| VALMA | EDIT+1~, EDIT+9*, EDIT+10 |
| >> VALMAR | EXP+6, EDIT+7 |
| VALMAT | EXP+2~, EXP+5*, EXP+6, EXP+7, EDIT+1~, EDIT+6*, EDIT+7, EDIT+8, EDIT+10, DESC+1~ , DESC+4*, DESC+5, DESC+6, UPD~, UPD+1, UPD+2 |
| >> VALMBCK | EXP+8*, EDIT+13*, DESC+7*, CHG+7*, CHG+8* |
| >> VALMBG | CHG+8* |
| >> VALMCC | EDIT+13, UPD+1 |
| >> VALMCNT | PKG+4*, PKG+10*, PKG+11, PKG+12, PKG+13, PKG+14, PKG+15, PKG+16, NUL+1, NUL+2* |
| VALMCNTI | PKG+1~, PKG+4*, PKG+6*, PKG+7, PKG+9, PKG+11, PKG+12 |
| VALMEVL | EN+1! |
| >> VALMHDR(1 | HDR+3* |
| >> VALMHDR(2 | HDR+4* |
| VALMI | EXP+2~, EXP+3*, EXP+4*, EXP+5, EDIT+1~, EDIT+3*, EDIT+4*, EDIT+5, EDIT+6, EDIT+11 , DESC+1~, DESC+2*, DESC+3*, DESC+4 |
| VALMIFN | PKG+1~, PKG+5*, PKG+12 |
| VALMP | EDIT+1~, EDIT+8*, EDIT+10 |
| VALMPKG | PKG+2*, PKG+4, HDR+2, FNL+1! |
| VALMPRE | PKG+1~, PKG+4*, PKG+5 |
| VALMPRO | PKG+1~, PKG+4*, PKG+5* |
| >> VALMQUIT | INIT+2* |
| >> VALMSG | EXP+8* |
| VALMX | PKG+1~, PKG+5*, PKG+8, PKG+9, HDR+1~, HDR+2*, HDR+3, HDR+4 |
| VALMY | FNL+1!, EXP+2~, EDIT+1~, DESC+1~ |
| VALMY( | EXP+4, EDIT+4, DESC+3 |
| X | PKG+1~, PKG+7*, PKG+8*, PKG+9*, PKG+11, HDR+2*, HDR+3, NUL+2*, CHG+1!*, CHG+2* , CHG+3 |
| >> XQORNOD(0 | EXP+3, EDIT+3, DESC+2, CHG+1 |
| XQORS | EN+1! |
| >> Y | INIT+2, PKG+2, CHG+4 |
| Z | PKG+1~, PKG+9!*, PKG+11 |