HLDIE ;CIOFO-O/LJA - Direct 772 & 773 Sets ; 11/18/2003 11:17
Source file <HLDIE.m>
Package | Total | Call Graph |
---|---|---|
Health Level Seven | 2 | DEBUG^HLDIEDBG (DEL772,DEL773)^HLUOPT3 |
Kernel | 1 | $$NOW^XLFDT |
VA Fileman | 1 | FILE^DIE |
Name | Comments | DBIA/ICR reference |
---|---|---|
BEGIN | ; Always call here before any ^HLDIE or ^DIE calls...
|
|
ERRNO(NUM,TXT,FILE,PNO) | ; Return next ERROR number and create general data...
|
|
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. |
|
EDITALL(ROOT,FILE,IEN) | ; Edit 772 or 773 by direct sets...
|
|
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. |
|
GENLERR(ETXT) | ; Store GENERAL (and fatal) error...
; ERR -- req |
|
EOR | ;HLDIE - Direct 772 & 773 Sets ; 11/18/2003 11:17
|
|
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@(...) -> |
|
CHECKS() | ; Check ROOT() for file and validity of data...
; FLAGS, ROOT() -- req --> FILE,IEN |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | CHKFLD+4 |
^HL(772 - [#772] | STORE+8* |
^HLMA - [#773] | STORE+9* |
^XTMP("HLDIE-DEBUG" | CHECKS+42, DEBUG+10 |
Name | Line Occurrences |
---|---|
$$CHECKS | FILE+15 |
$$CHKFLD | CHECKS+30 |
$$ERRNO | EDITALL+15, EDITALL+39, CHKFLD+7 |
$$GBL | EDITALL+6 |
@( | EDITALL+45, EDITALL+56 |
BEGIN | FILE+12 |
DEBUG | BEGIN+1, END+1 |
EDITALL | FILE+35 |
END | FILE+23, FILE+38 |
GETNODES | EDITALL+23 |
STORE | EDITALL+51 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DATA | STORE+1~, STORE+6*, STORE+8, STORE+9 |
DEBUG | FILE+8~, DEBUG+10*, DEBUG+11, DEBUG+16 |
DT | FILE+10* |
ERR | FILE~, FILE+20, FILE+32*, EDITALL+16, EDITALL+40, EDITALL+41, CHKFLD+8, CHKFLD+9, ERRNO+2, ERRNO+3 , ERRNO+4, ERRNO+5, ERRNO+6, ERRNO+7, GENLERR+3, GENLERR+4 |
ERRNO | EDITALL+4~, EDITALL+15*, EDITALL+16, EDITALL+39*, EDITALL+40, EDITALL+41, CHKFLD+7*, CHKFLD+8, CHKFLD+9 |
ETXT | GENLERR~, GENLERR+4 |
FIELD | EDITALL+4~, EDITALL+28*, EDITALL+29*, EDITALL+31, EDITALL+37, EDITALL+39, EDITALL+40, EDITALL+41, EDITALL+45, 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+15, EDITALL+20, EDITALL+23 , EDITALL+29, EDITALL+31, EDITALL+37, EDITALL+39, EDITALL+45, EDITALL+51, GETNODES~, STORE~, STORE+8, STORE+9 , 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 |
GBL | EDITALL+4~, EDITALL+6*, EDITALL+14, GETNODES+8 |
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+16, EDITALL+23, EDITALL+29 , EDITALL+31, EDITALL+51, GETNODES~, STORE~, STORE+8, STORE+9, 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+8, STORE+9 |
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+23, EDITALL+51, GETNODES~, GETNODES+3*, GETNODES+8, GETNODES+9, STORE~ |
NODE( | GETNODES+8*, GETNODES+9*, STORE+6 |
NODE("CHG" | EDITALL+48, 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+29, EDITALL+31, CHECKS+5, CHECKS+7 , CHECKS+10, CHECKS+13, CHECKS+19, CHECKS+29 |
ROUTINE | EDITALL+4~, EDITALL+20*, EDITALL+37, EDITALL+45, EDITALL+56 |
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+37* |
TAG(1 | EDITALL+38* |
TXT | ERRNO~, ERRNO+6 |
U | EDITALL+37, EDITALL+45, EDITALL+56, ERRNO+2, GENLERR+3, GENLERR+4, DEBUG+11, DEBUG+16 |
VALUE | EDITALL+4~, EDITALL+31*, EDITALL+34* |
X | FILE+8~ |
XECMCODE | FILE+8~, DEBUG+11*, DEBUG+20, DEBUG+23 |
XRF | EDITALL+4~, EDITALL+54*, EDITALL+55*, EDITALL+56 |
XRF( | EDITALL+55 |
Name | Field # of Occurrence |
---|---|
$T(@TAG | EDITALL+38 |