DIETLIBF ;SFISC/MKO,GFT - LIBRARY FOR FIELD ATTRIBUTES ;23JUN2017
Source file <DIETLIBF.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VALEXT(DDTFILE,DDTFIELD) | ;Return code to validate and transform user input --PERHAPS INTERACTIVELY
|
|
| VALEXTS(DDTFILE,DDTFIELD) | ;Return code to SILENTLY validate and transform user input
|
|
| VALINT(DDTFILE,DDTFIELD) | ;Return code to validate internal form
|
|
| XHELP(DDTFILE,DDTFIELD) | ;Return the executable help of a field
|
|
| OUTPUT(DDTFILE,DDTFIELD) | ;Return the executable code to output a field's value. No arguments means ^DD(DDTFILE,DDTFIELD,0) is already in naked ref
|
|
| DIPA(DDTFILE,DDTFIELD) | ;CREATE DIPA NODES FROM PROPERTIES IN THE FIELD
|
|
| VALEXTL() | ||
| VALEXTSL() | ||
| VALINTL() | ||
| XHELPL() | ||
| OUTPUTL() | ||
| GETMETH(DDTFILE,DDTFIELD,DDTMETL) | ;Look for methods in the ;-delimited string
|
|
| DIC | ;SET THE DIC VARIABLE FROM PARAMETERS
|
|
| GETPROP(DDTFILE,DDTFIELD,DDTPROL) | ;Look for PROPERTIES in the ;-delimited string
|
|
| PROP4TYP(T,I) | ;FOR PROPERTY 'T' IN DATA TYPE 'I', RETURN THE VALUE
|
|
| METH4TYP(T,I) | ;FOR METHOD 'T' IN DATA TYPE 'I', RETURN THE VALUE
|
| Name | Line Occurrences |
|---|---|
| $$GETMETH | VALEXT+1, VALEXTS+3, VALINT+1, XHELP+2, OUTPUT+1 |
| $$OUTPUTL | OUTPUT+1 |
| $$PROP4TYP | GETMETH+19, GETPROP+16 |
| $$VALEXTL | VALEXT+1 |
| $$VALEXTSL | VALEXTS+3 |
| $$VALINTL | VALINT+1 |
| $$XHELPL | XHELP+2 |
| DIPA | XHELP+1, GETMETH+18 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DIPA+3, DIPA+4 |
| ^(0 | GETMETH+11, GETMETH+20, GETPROP+9 |
| ^(101 | GETPROP+15 |
| ^(2 | GETMETH+21 |
| ^(31 | GETMETH+16, GETPROP+15, PROP4TYP+1, METH4TYP+1 |
| ^(4 | GETMETH+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | VALEXTS+2~, VALEXTS+3*, VALEXTS+4*, VALEXTS+5 |
| D | VALEXTS+2~, VALEXTS+4* |
| DDTCOD | GETMETH+8~, GETMETH+14, GETMETH+16*, GETMETH+17, GETMETH+19*, GETMETH+20*, GETMETH+21*, GETMETH+22*, GETMETH+23, GETPROP+12~ , GETPROP+14, GETPROP+15*, GETPROP+16*, GETPROP+17 |
| DDTFIELD | VALEXT~, VALEXT+1, VALEXTS~, VALEXTS+3, VALINT~, VALINT+1, XHELP~, XHELP+1, XHELP+2, OUTPUT~ , OUTPUT+1, DIPA~, DIPA+2, DIPA+3, DIPA+4, GETMETH~, GETMETH+11, GETMETH+12, GETMETH+18, GETPROP~ , GETPROP+9, GETPROP+10 |
| DDTFILE | VALEXT~, VALEXT+1, VALEXTS~, VALEXTS+3, VALINT~, VALINT+1, XHELP~, XHELP+1, XHELP+2, OUTPUT~ , OUTPUT+1, DIPA~, DIPA+2, DIPA+3, DIPA+4, GETMETH~, GETMETH+11, GETMETH+12, GETMETH+18, GETPROP~ , GETPROP+9, GETPROP+10 |
| DDTMET | GETMETH+8~, GETMETH+14*, GETMETH+16, GETMETH+17, GETMETH+21, GETMETH+22 |
| DDTMETL | GETMETH~, GETMETH+9, GETMETH+14 |
| DDTP | GETMETH+8~, GETMETH+16*, GETMETH+19*, GETPROP+12~, GETPROP+14*, GETPROP+15, GETPROP+16 |
| DDTPC | GETMETH+8~, GETMETH+14*, GETPROP+12~, GETPROP+14* |
| DDTPROL | GETPROP~, GETPROP+8, GETPROP+14 |
| DIBTDH | DIC+2~ |
| DIC | DIC+2~, DIC+4* |
| DIC(0 | DIC+4* |
| DIFILE | DIC+2~ |
| DIP | GETPROP+12~, GETPROP+15* |
| >> DIPA( | DIPA+3*, DIPA+4* |
| >> DIPA("CODE TO | SET POINTER SCREEN" , DIC+3 |
| >> DIPA("EARLIES | T DATE" , %DT+3 |
| >> DIPA("IMPRECI | SE DATE" , %DT+7 |
| >> DIPA("LAYGO" | DIC+4 |
| >> DIPA("POINTER" | DIC+1, DIC+4 |
| >> DIPA("SECONDS | ALLOWED" , %DT+5 |
| >> DIPA("TIME OF | DAY" , %DT+6 |
| >> DIPA("TIME RE | QUIRED" , %DT+4 |
| >> DIQUIET | DIC+4 |
| DIS | DIC+2~ |
| EARLY | %DT+1~, %DT+2*, %DT+3*, %DT+8 |
| I | GETMETH+8~, GETMETH+15*, GETMETH+16, GETMETH+19, GETPROP+12~, GETPROP+13*, GETPROP+16, PROP4TYP~, PROP4TYP+1, METH4TYP~ , METH4TYP+1 |
| N | DIPA+1~, DIPA+3*, DIPA+4* |
| P | DIPA+1~, DIPA+3*, DIPA+4* |
| PARAM | %DT~, %DT+2*, %DT+4*, %DT+5*, %DT+6*, %DT+7*, %DT+8 |
| REF | GETMETH+8~, GETMETH+11*, GETMETH+12*, GETMETH+13, GETMETH+15, GETMETH+20, GETMETH+21, GETMETH+22, GETPROP+7~, GETPROP+9* , GETPROP+10*, GETPROP+11, GETPROP+13, GETPROP+15 |
| T | DIPA+1~, DIPA+2*, PROP4TYP~, PROP4TYP+1*, METH4TYP~, METH4TYP+1* |
| U | DIPA+2, DIPA+3, DIPA+4, GETMETH+15, GETMETH+20, GETPROP+13 |
| V | DIPA+1~, DIPA+3*, DIPA+4* |
| >> Y | DIC+1* |
