Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: HLDIE

Package: Health Level Seven

Routine: HLDIE


Information

HLDIE ;CIOFO-O/LJA - Direct 772 & 773 Sets ; 08/05/2009 16:00

Source Information

Source file <HLDIE.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Health Level Seven 2 DEBUG^HLDIEDBG  (DEL772,DEL773)^HLUOPT3  
Kernel 1 $$NOW^XLFDT  
VA FileMan 1 FILE^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Health Level Seven 14 HLCS2  HLCSAS1  HLCSDR2  HLCSLM  HLCSLNCH  HLCSLSM  HLCSTCP  HLEMU  
HLMA2  HLTF  HLTF0  HLTP3A  HLTP4  HLUTIL  

Entry Points

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

External References

Name Field # of Occurrence
FILE^DIE FILE+20
DEBUG^HLDIEDBG DEBUG+23
DEL772^HLUOPT3 EDITALL+11
DEL773^HLUOPT3 EDITALL+10
$$NOW^XLFDT FILE+10

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$CHECKS FILE+15
$$CHKFLD CHECKS+30
$$ERRNO EDITALL+25, EDITALL+49, CHKFLD+7
$$GBL EDITALL+6
@( EDITALL+55, EDITALL+73
BEGIN FILE+12
DEBUG BEGIN+1, END+1
EDITALL FILE+35
END FILE+23, FILE+38
GETNODES EDITALL+33
STORE EDITALL+62

Local Variables

Legend:

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

Marked Items

Name Field # of Occurrence
$T(@TAG EDITALL+48
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All