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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: HLEMU

Package: Health Level Seven

Routine: HLEMU


Information

HLEMU ;ALB/CJM Utility Routines ;02/04/2004 14:42

Source Information

Source file <HLEMU.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 6 $$GET1^DID  (CHK,UPDATE)^DIE  ($$IENS,CLEAN)^DILF  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Health Level Seven 3 FILE^HLDIE  $$UPD^HLEMU  LINK^HLUTIL3  
Kernel 1 ($$LKUP,$$NNT)^XUAF4  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Health Level Seven 14 HLEMDD  HLEME  HLEME1  HLEMEP  HLEMP  HLEMRCV  HLEMSA  HLEMSE  
HLEMSL  HLEMSL1  HLEMSND  HLEMST  HLEMU  HLUOPTF2  

Entry Points

Name Comments DBIA/ICR reference
STATNUM(IEN) ;
INSTIEN(STATION) ;
UPD(FILE,HLDA,DATA,ERROR) ;File data into an existing record.
; Input:
; FILE - File or sub-file number
; HLDA - New name for traditional DA array, with same meaning.
; Pass by reference.
; DATA - Data array to file (pass by reference)
; Format: DATA(<field #>)=<value>
GETFIELD(FILE,FIELD,HLDA,ERROR,EXT) ;Get field value from an existing record.
; Input:
; FILE - File or sub-file number
; HLDA - New name for traditional DA array, with same meaning.
; Pass by reference.
; FIELD - Field for which value is needed
; EXT - (optional) If $G(EXT) then returns the external display form of the value
; Output:
; Function Value - field value in internal format,"" if an error was encountered
; ERROR - optional error message - if needed, pass by reference
DELETE(FILE,DA,ERROR) ;Delete an existing record.
; Input:
; FILE - File or sub-file number
; DA - Traditional DA array, with same meaning.
; ** Pass by reference**
ADD(FILE,HLDA,DATA,ERROR,IEN) ;
TESTVAL(FILE,FIELD,VALUE) ;
GETLINK(INSTIEN) ;
ASKYESNO(PROMPT,DEFAULT) ;
MSGIEN(MSGID) ;
  • ICR #5732
    • Status: Active
    • Usage: Controlled Subscription
    LINK(MSGIEN) ;
    HL7EVENT(MSGIEN) ;
    MSGTYPE(MSGIEN) ;
    APP(MSGIEN) ;
    APPNAME(APPIEN) ;
    PROMPT(FILE,FIELD,DEFAULT,RESPONSE,REQUIRE) ;
    I(VAR,N) ;This funtion increments the local or global variable by the amount N
    INC(VAR,N) ;This funtion increments the local variable by the amount N

    External References

    Name Field # of Occurrence
    $$GET1^DID TESTVAL+12, PROMPT+17
    CHK^DIE TESTVAL+13
    UPDATE^DIE ADD+36
    $$IENS^DILF UPD+22, GETFIELD+17, ADD+31
    CLEAN^DILF UPD+32, UPD+33, GETFIELD+24, GETFIELD+25, ADD+43
    $$EXTERNAL^DILFD TESTVAL+9, PROMPT+17
    $$GET1^DIQ GETFIELD+18
    ^DIR ASKYESNO+12, PROMPT+20
    FILE^HLDIE UPD+26
    $$UPD^HLEMU DELETE+16
    LINK^HLUTIL3 GETLINK+8
    $$SITE^VASITE STATNUM+10
    $$LKUP^XUAF4 INSTIEN+2
    $$NNT^XUAF4 STATNUM+7

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"DONE"
    • Line Location: UPD+14
    Function Call: WRITE
    • Prompt: !,"DONE"
    • Line Location: DELETE+12
    Function Call: WRITE
    • Prompt: !,"DONE"
    • Line Location: ADD+18
    Function Call: WRITE
    • Prompt: !,"DONE"
    • Line Location: ADD+21
    Function Call: WRITE
    • Prompt: !,"This is a required response. Enter '^' to exit"
    • Line Location: PROMPT+32
    Routine Call
    • DIE
    • Line Location:
      • TESTVAL+13
    Routine Call
    • DIE
    • Line Location:
      • ADD+36
    Routine Call
    • DIR
    • Line Location:
      • ASKYESNO+12
      • PROMPT+20

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(4 - [#4] STATNUM+6
    ^HL(771 - [#771] APPNAME+2
    ^HL(771.2 - [#771.2] MSGTYPE+6
    ^HL(779.001 - [#779.001] HL7EVENT+6
    ^HLCS(870 - [#870] LINK+6
    ^HLMA - [#773] LINK+4, HL7EVENT+4, MSGTYPE+4, APP+5
    ^HLMA("C" MSGIEN+3

    Label References

    Name Line Occurrences
    $$APPNAME APP+6
    $$ASKYESNO PROMPT+24

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    AGAIN PROMPT+14~, PROMPT+22, PROMPT+23*, PROMPT+24*
    APPIEN APP+4~, APP+5*, APP+6, APPNAME~, APPNAME+2
    DA DELETE~, DELETE+16, PROMPT+14~
    DATA UPD~, DELETE+14~, DELETE+16, ADD~
    DATA( UPD+24, UPD+25, DELETE+15*, ADD+33, ADD+34
    DEFAULT ASKYESNO~, ASKYESNO+11, PROMPT~, PROMPT+17, PROMPT+26
    >> DIERR UPD+27, UPD+32, GETFIELD+19, GETFIELD+24, ADD+37
    DIR ASKYESNO+8~, PROMPT+14~
    DIR("A" ASKYESNO+10*, PROMPT+17*
    DIR("B" ASKYESNO+11*
    DIR(0 ASKYESNO+9*, PROMPT+16*
    >> DIRUT ASKYESNO+13
    DISPLAY TESTVAL+5~, TESTVAL+9*, TESTVAL+10
    >> DTOUT PROMPT+21, PROMPT+33
    >> DUOUT PROMPT+21, PROMPT+33
    ERROR UPD~, UPD+21*, UPD+28*, UPD+30*, GETFIELD~, GETFIELD+16*, GETFIELD+20*, GETFIELD+22*, DELETE~, DELETE+16
    , ADD~, ADD+38*, ADD+42*
    ERRORS UPD+16~, GETFIELD+11~, ADD+23~
    ERRORS(1 UPD+28, GETFIELD+20, ADD+38
    EVENT HL7EVENT+3~, HL7EVENT+4*, HL7EVENT+5, HL7EVENT+6
    EXT GETFIELD~, GETFIELD+18
    FDA UPD+16~, GETFIELD+11~, ADD+23~
    FDA( UPD+25*, ADD+34*
    FIELD UPD+16~, UPD+23*, UPD+24*, UPD+25, GETFIELD~, GETFIELD+18, ADD+23~, ADD+32*, ADD+33*, ADD+34
    , TESTVAL~, TESTVAL+3, TESTVAL+9, TESTVAL+12, TESTVAL+13, PROMPT~, PROMPT+12, PROMPT+16, PROMPT+17
    FILE UPD~, UPD+25, GETFIELD~, GETFIELD+18, DELETE~, DELETE+16, ADD~, ADD+34, TESTVAL~, TESTVAL+3
    , TESTVAL+9, TESTVAL+12, TESTVAL+13, PROMPT~, PROMPT+12, PROMPT+16, PROMPT+17
    HLDA UPD~, UPD+21, UPD+22, GETFIELD~, GETFIELD+16, GETFIELD+17, ADD~, ADD+30*, ADD+31, ADD+44*
    I GETLINK+5~, GETLINK+9*, GETLINK+10
    IEN STATNUM~, STATNUM+5, STATNUM+6, STATNUM+7, ADD~, ADD+35, ADD+39*, ADD+41*, ADD+44, ADD+45
    IENA ADD+23~
    IENA(1 ADD+35*, ADD+41
    IENS UPD+16~, UPD+22*, UPD+25, GETFIELD+11~, GETFIELD+17*, GETFIELD+18, ADD+23~, ADD+31*, ADD+34
    INSTIEN GETLINK~, GETLINK+3, GETLINK+8
    LINK GETLINK+5~, GETLINK+8
    LINK( GETLINK+10
    LINK(0 GETLINK+9
    LINKIEN LINK+3~, LINK+4*, LINK+5, LINK+6
    LINKNAME GETLINK+5~, GETLINK+6*, GETLINK+10*, GETLINK+11
    MSG MSGTYPE+3~, MSGTYPE+4*, MSGTYPE+5, MSGTYPE+6
    MSGID MSGIEN~, MSGIEN+2, MSGIEN+3
    MSGIEN LINK~, LINK+2, LINK+4, HL7EVENT~, HL7EVENT+2, HL7EVENT+4, MSGTYPE~, MSGTYPE+2, MSGTYPE+4, APP~
    , APP+3, APP+5
    N I~, I+9*, I+10, INC~, INC+7*, INC+8
    PROMPT ASKYESNO~, ASKYESNO+10
    QUIT PROMPT+14~, PROMPT+18*, PROMPT+19, PROMPT+21*, PROMPT+30*, PROMPT+31*
    REQUIRE PROMPT~, PROMPT+13*, PROMPT+16, PROMPT+24, PROMPT+31
    RESPONSE PROMPT~, PROMPT+25*, PROMPT+26*, PROMPT+27*, PROMPT+30
    RESULT TESTVAL+5~, TESTVAL+13
    RETURN STATNUM+3~, STATNUM+4*, STATNUM+8*, STATNUM+10*, STATNUM+11
    STATION STATNUM+3~, STATNUM+7*, STATNUM+8, INSTIEN~, INSTIEN+2
    VALID TESTVAL+5~, TESTVAL+6*, TESTVAL+10*, TESTVAL+12, TESTVAL+13*, TESTVAL+14
    VALUE GETFIELD+11~, GETFIELD+18*, GETFIELD+24, TESTVAL~, TESTVAL+9, TESTVAL+13
    VAR I~, I+8, I+10, I+11, I+12, INC~, INC+8*, INC+9
    X PROMPT+22, PROMPT+26, I+7~, I+10*, I+11, I+13
    Y ASKYESNO+8~, ASKYESNO+14, PROMPT+27
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All