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 ; 11/18/2003 11:17

Source Information

Source file <HLDIE.m>

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

Caller Graph Total: 15

Package Total Caller Graph
Health Level Seven 14 HLCS2  HLCSAS1  HLCSDR2  HLCSLM  HLCSLNCH  HLCSLSM  HLCSTCP  HLEMU  
HLMA2  HLTF  HLTF0  HLTP3A  HLTP4  HLUTIL  
IHS Changes To Lab 1 BLRRLMST  

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] STORE+8*
^HLMA - [#773] STORE+9*
^XTMP("HLDIE-DEBUG" CHECKS+42, DEBUG+10

Label References

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

Marked Items

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