Routine: HLDIE

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	Field # of Occurrence
FILE^DIE	FILE+20
DEBUG^HLDIEDBG	DEBUG+23
DEL772^HLUOPT3	EDITALL+11
DEL773^HLUOPT3	EDITALL+10
$$NOW^XLFDT	FILE+10

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

Local Variables

Legend:

>>	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

Customize PDF page

Package: Health Level Seven

Routine: HLDIE

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items