HLDIE ;CIOFO-O/LJA - Direct 772 & 773 Sets ; 08/05/2009 16:00
Source file <HLDIE.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FILE(FLAGS,ROOT,ERR,SUB,RTN) | ; FILE^DIE functional equivalent...
; This call has similar parameters to FILE^DIE, but changes data ; using hard sets. The first two parameters of this API are the ; same as FILE^DIE. So, if any file other than 772 or 773 is being ; edited, this API just passes on the FLAGS,ROOT,ERR parameters to ; FILE^DIE and quits. If file 772 or 773 is being edited, the hard ; set code in HLDIE772 and HLDIE773 is called. |
|
| EDITALL(ROOT,FILE,IEN) | ; Edit 772 or 773 by direct sets...
|
|
| GETNODES(FILE,IEN,NODE) | ; Load pre-change data for each node in
; NODE(node,0), and load node to be changed in NODE(node,1). ; GBL -- req |
|
| STORE(FILE,IEN,NODE) | ; Store changes in file...
|
|
| GBL(FILE,IEN) | ||
| CHKFLD(FILE,FIELD) | ; Does passed-in field exist?
; Returns -- @ERR@(...) -> |
|
| ERRNO(NUM,TXT,FILE,PNO) | ; Return next ERROR number and create general data...
|
|
| GENLERR(ETXT) | ; Store GENERAL (and fatal) error...
; ERR -- req |
|
| CHECKS() | ; Check ROOT() for file and validity of data...
; FLAGS, ROOT() -- req --> FILE,IEN |
|
| BEGIN | ; Always call here before any ^HLDIE or ^DIE calls...
|
|
| END | ; Always call here after all ^HLDIE or ^DIE actions...
|
|
| DEBUG(LOC) | ; Debug presets and setup...
; Most variables created here should be left around. These variables ; are newed above. |
|
| EOR | ;HLDIE - Direct 772 & 773 Sets ; 11/18/2003 11:17
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | CHKFLD+4 |
| ^HL(772 - [#772] | EDITALL+68, EDITALL+103, STORE+12, STORE+13*, STORE+14 |
| ^HLMA - [#773] | EDITALL+66, EDITALL+83, EDITALL+85, EDITALL+95, EDITALL+102, STORE+17, STORE+18*, STORE+19 |
| ^HLMA("AH-NEW" | EDITALL+97* |
| ^XTMP("HLDIE-DEBUG" | CHECKS+42, DEBUG+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AH | EDITALL+79~, EDITALL+95*, EDITALL+96, EDITALL+97 |
| COUNT | EDITALL+19~, EDITALL+20*, EDITALL+79~, GETNODES+18~, GETNODES+19* |
| DATA | STORE+1~, STORE+6*, STORE+13, STORE+18 |
| DEBUG | FILE+8~, DEBUG+10*, DEBUG+11, DEBUG+16 |
| DT | FILE+10* |
| ERR | FILE~, FILE+20, FILE+32*, EDITALL+26, EDITALL+50, EDITALL+51, CHKFLD+8, CHKFLD+9, ERRNO+2, ERRNO+3 , ERRNO+4, ERRNO+5, ERRNO+6, ERRNO+7, GENLERR+3, GENLERR+4 |
| ERRNO | EDITALL+4~, EDITALL+25*, EDITALL+26, EDITALL+49*, EDITALL+50, EDITALL+51, CHKFLD+7*, CHKFLD+8, CHKFLD+9 |
| ETXT | GENLERR~, GENLERR+4 |
| FIELD | EDITALL+4~, EDITALL+38*, EDITALL+39*, EDITALL+41, EDITALL+47, EDITALL+49, EDITALL+50, EDITALL+51, EDITALL+55, CHKFLD~ , CHKFLD+4, CHKFLD+7, CHKFLD+8, CHKFLD+9, CHECKS+2~, CHECKS+28*, CHECKS+29*, CHECKS+30, CHECKS+31, CHECKS+32 , CHECKS+33 |
| FILE | FILE+8~, FILE+35, EDITALL~, EDITALL+6, EDITALL+9, EDITALL+10, EDITALL+11, EDITALL+25, EDITALL+30, EDITALL+33 , EDITALL+39, EDITALL+41, EDITALL+47, EDITALL+49, EDITALL+55, EDITALL+62, EDITALL+65, EDITALL+76, EDITALL+102, GETNODES~ , GETNODES+17, STORE~, STORE+11, STORE+16, GBL~, CHKFLD~, CHKFLD+4, CHKFLD+7, ERRNO~, ERRNO+5 , CHECKS+5*, CHECKS+6, CHECKS+7, CHECKS+10, CHECKS+13, CHECKS+19, CHECKS+29, CHECKS+30, CHECKS+31, CHECKS+32 , CHECKS+33 |
| FLAGS | FILE~, FILE+20, FILE+41!, CHECKS+22, CHECKS+24 |
| FLD | EDITALL+79~, EDITALL+87*, EDITALL+88, EDITALL+89 |
| GBL | EDITALL+4~, EDITALL+6*, EDITALL+17, EDITALL+20, EDITALL+22, EDITALL+23, GETNODES+5, GETNODES+11, GETNODES+20, GETNODES+22 |
| HDR | EDITALL+79~, EDITALL+83*, EDITALL+84, EDITALL+86*, EDITALL+87, EDITALL+89*, EDITALL+90, EDITALL+97, EDITALL+98 |
| HDR(2 | EDITALL+85*, EDITALL+86 |
| >> HL("HDR FLDS: | 3-6" , EDITALL+98* |
| HLDGBL | EDITALL+16~, EDITALL+22*, EDITALL+24 |
| HLEDITOR | FILE+8~, FILE+17*, FILE+25* |
| HLERR | FILE+32~ |
| I | CHECKS+2~, CHECKS+24* |
| IEN | FILE+8~, FILE+35, EDITALL~, EDITALL+6, EDITALL+9, EDITALL+10, EDITALL+11, EDITALL+26, EDITALL+33, EDITALL+39 , EDITALL+41, EDITALL+62, EDITALL+66, EDITALL+68, EDITALL+83, EDITALL+85, EDITALL+95, EDITALL+97, EDITALL+102, EDITALL+103 , GETNODES~, STORE~, STORE+12, STORE+13, STORE+14, STORE+17, STORE+18, STORE+19, GBL~, CHECKS+7* , CHECKS+13*, CHECKS+15, CHECKS+17, CHECKS+19, CHECKS+29 |
| LERR | FILE+8~ |
| LOC | DEBUG~, DEBUG+8, DEBUG+16, DEBUG+23 |
| ND | STORE+1~, STORE+4*, STORE+5*, STORE+6, STORE+12, STORE+13, STORE+14, STORE+17, STORE+18, STORE+19 |
| NO | ERRNO+1~, ERRNO+2*, ERRNO+3, ERRNO+4, ERRNO+5, ERRNO+6, ERRNO+7, ERRNO+8, GENLERR+2~, GENLERR+3* , GENLERR+4 |
| NODE | EDITALL+4~, EDITALL+33, EDITALL+62, GETNODES~, GETNODES+6*, GETNODES+11, GETNODES+17, GETNODES+19, GETNODES+20, GETNODES+21 , STORE~ |
| NODE( | GETNODES+11*, GETNODES+17, GETNODES+19, GETNODES+20*, GETNODES+21*, STORE+6 |
| NODE("CHG" | EDITALL+58, STORE+5 |
| NUM | ERRNO~, ERRNO+3, ERRNO+7 |
| OK | CHECKS+2~, CHECKS+22, CHECKS+23*, CHECKS+24*, CHECKS+28*, CHECKS+29, CHECKS+30*, CHECKS+31*, CHECKS+32*, CHECKS+33* , CHECKS+36, CHECKS+46 |
| PNO | ERRNO~, ERRNO+4 |
| ROOT | FILE~, FILE+20, FILE+35, FILE+41, EDITALL~, EDITALL+9, EDITALL+39, EDITALL+41, GETNODES+17, CHECKS+5 , CHECKS+7, CHECKS+10, CHECKS+13, CHECKS+19, CHECKS+29 |
| ROUTINE | EDITALL+4~, EDITALL+30*, EDITALL+47, EDITALL+55, EDITALL+73 |
| RTN | FILE~, DEBUG+5*, DEBUG+9*, DEBUG+23 |
| STORE | DEBUG+3~, DEBUG+16*, DEBUG+20, DEBUG+23 |
| SUB | FILE~, DEBUG+5*, DEBUG+9 |
| TAG | EDITALL+4~, EDITALL+47* |
| TAG(1 | EDITALL+48* |
| TXT | ERRNO~, ERRNO+6 |
| U | EDITALL+47, EDITALL+55, EDITALL+73, ERRNO+2, GENLERR+3, GENLERR+4, DEBUG+11, DEBUG+16 |
| VALUE | EDITALL+4~, EDITALL+41*, EDITALL+44* |
| X | FILE+8~ |
| XECMCODE | FILE+8~, DEBUG+11*, DEBUG+20, DEBUG+23 |
| XRF | EDITALL+4~, EDITALL+71*, EDITALL+72*, EDITALL+73, EDITALL+76 |
| XRF( | EDITALL+72 |
| Name | Field # of Occurrence |
|---|---|
| $T(@TAG | EDITALL+48 |
