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

Package: Health Level Seven

Routine: HLOASUB1


Information

HLOASUB1 ;IRMFO-ALB/CJM/RBN - Subscription Registry (continued) ;07/12/2012

Source Information

Source file <HLOASUB1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Health Level Seven 2 $$STATNUM^HLOASUB1  ($$DOMAIN,$$FINDLINK,$$PORT,$$STATNUM)^HLOTLNK  
VA FileMan 2 (FILE,UPDATE)^DIE  ($$IENS,CLEAN)^DILF  
Kernel 1 $$NNT^XUAF4  
Registration 1 $$SITE^VASITE  

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 12 HLOAPI2  HLOASUB  HLOASUB1  HLOCNRT1  HLOCVU  HLOP146  HLOPING  HLOPOST  
HLOQUE  HLOUSR1  HLP153  ^HLD(779.4  
Kernel 1 XU8P585  
Radiology Nuclear Medicine 1 RAIPS144  

Entry Points

Name Comments DBIA/ICR reference
KILLAH1(OWNER,LOOKUP1,LOOKUP2,LOOKUP3,LOOKUP4,LOOKUP5,LOOKUP6) ;
STATNUM(IEN) ;
UPD(FILE,DA,DATA,ERROR) ;File data into an existing record.
; Input:
; FILE - File or sub-file number
; DA - Traditional DA array, with same meaning.
; Pass by reference.
; DATA - Data array to file (pass by reference)
; Format: DATA(<field #>)=<value>
ONLIST(IEN,WHO) ;
ADD(FILE,DA,DATA,ERROR,IEN) ;
INDEX(IEN,PARMARY) ;
  • ICR #4726
    • Status: Active
    • Usage: Supported
    DELETE(FILE,DA,ERROR)
  • ICR #6865
    • Status: Pending
    • Usage: Private
    ZB25
    KILLAH(IEN) ;kills the AH x~ref on file 779.4 for a particular subscription registry entry=ien
    SETAH(IEN,OWNER,PARMS) ;
    SETAH1(DA,OWNER,X1,X2,X3,X4,X5,X6) ;
    CHECKWHO(WHO,PARMS,ERROR) ;
    FIND(OWNER,PARMARY) ;
  • ICR #4726
    • Status: Active
    • Usage: Supported

    External References

    Name Field # of Occurrence
    FILE^DIE UPD+26
    UPDATE^DIE ADD+36
    $$IENS^DILF UPD+22, ADD+31
    CLEAN^DILF UPD+32, ADD+43
    $$STATNUM^HLOASUB1 CHECKWHO+36
    $$DOMAIN^HLOTLNK CHECKWHO+50
    $$FINDLINK^HLOTLNK CHECKWHO+42
    $$PORT^HLOTLNK ZB25+3, ZB25+7
    $$STATNUM^HLOTLNK CHECKWHO+45
    $$SITE^VASITE STATNUM+10
    $$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: ADD+18
    Function Call: WRITE
    • Prompt: !,"DONE"
    • Line Location: ADD+21
    Routine Call
    • DIE
    • Line Location:
      • ADD+36
    Routine Call
    • DIE
    • Line Location:
      • UPD+26

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(4 - [#4] STATNUM+6
    ^HLCS(870 - [#870] CHECKWHO+39, CHECKWHO+63, CHECKWHO+67, CHECKWHO+71, CHECKWHO+75
    ^HLD(779.4 - [#779.4] INDEX+15, INDEX+22*, KILLAH+3, KILLAH+5, ONLIST+20, ONLIST+22, ONLIST+30

    Label References

    Name Line Occurrences
    $$CHECKWHO ONLIST+17
    $$UPD DELETE+3
    KILLAH INDEX+17
    KILLAH1 KILLAH+7
    SETAH INDEX+19, SETAH1+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA SETAH1~, SETAH1+1, SETAH1+5, UPD~, UPD+21, UPD+22, ADD~, ADD+30*, ADD+31, ADD+44*
    , DELETE~, DELETE+3
    DATA UPD~, ADD~, DELETE+1~, DELETE+3
    DATA( UPD+24, UPD+25, ADD+33, ADD+34, DELETE+2*
    >> DIERR UPD+27, UPD+33, ADD+37
    ERROR UPD~, UPD+21*, UPD+28*, UPD+30*, ADD~, ADD+38*, ADD+42*, DELETE~, DELETE+3, CHECKWHO~
    , CHECKWHO+22!, CHECKWHO+32*, CHECKWHO+64*, CHECKWHO+68*, CHECKWHO+72*, CHECKWHO+78*, CHECKWHO+80*, ZB25*
    ERRORS UPD+16~, ADD+23~
    ERRORS(1 UPD+28, ADD+38
    FDA UPD+16~, ADD+23~
    FDA( UPD+25*, ADD+34*
    FIELD UPD+16~, UPD+23*, UPD+24*, UPD+25, ADD+23~, ADD+32*, ADD+33*, ADD+34
    FILE UPD~, UPD+25, ADD~, ADD+34, DELETE~, DELETE+3
    I INDEX+13~, INDEX+18*, INDEX+21*, SETAH+5*, SETAH+6, SETAH+7, SETAH1+3~, SETAH1+4*, KILLAH1+2~, KILLAH1+4*
    , KILLAH1+5, KILLAH1+6, KILLAH+2~, KILLAH+6*, FIND+17~, FIND+19*, FIND+20, FIND+21
    IEN INDEX~, INDEX+14, INDEX+15, INDEX+17, INDEX+19, INDEX+22, SETAH~, SETAH+1, SETAH+9, KILLAH~
    , KILLAH+1, KILLAH+3, KILLAH+5, ADD~, ADD+35, ADD+39*, ADD+41*, ADD+44, ADD+45, STATNUM~
    , STATNUM+5, STATNUM+6, STATNUM+7, ONLIST~, ONLIST+20, ONLIST+22, ONLIST+30
    IENA ADD+23~
    IENA(1 ADD+35*, ADD+41
    IENS UPD+16~, UPD+22*, UPD+25, ADD+23~, ADD+31*, ADD+34
    INDEX SETAH+3~, SETAH+4*, SETAH+7*, SETAH+8*, SETAH+9, KILLAH1+2~, KILLAH1+3*, KILLAH1+6*, KILLAH1+7*, KILLAH1+8
    , FIND+17~, FIND+18*, FIND+21*, FIND+22*, FIND+23
    LEN CHECKWHO+28~, CHECKWHO+29*, CHECKWHO+30, CHECKWHO+31
    LOOKUP1 KILLAH1~
    LOOKUP2 KILLAH1~
    LOOKUP3 KILLAH1~
    LOOKUP4 KILLAH1~
    LOOKUP5 KILLAH1~
    LOOKUP6 KILLAH1~
    NODE INDEX+13~, INDEX+20*, INDEX+21*, INDEX+22, KILLAH+2~, KILLAH+5*, KILLAH+6
    OK FIND+12~*, FIND+23*, FIND+25, CHECKWHO+21~, CHECKWHO+23*, CHECKWHO+30*, CHECKWHO+31*, CHECKWHO+32, CHECKWHO+64*, CHECKWHO+68*
    , CHECKWHO+72*, CHECKWHO+78*, CHECKWHO+80*, ZB25*, ZB25+10
    OWNER INDEX+13~, INDEX+15*, INDEX+16, INDEX+19, SETAH~, SETAH+2, SETAH1~, SETAH1+2, SETAH1+5, KILLAH1~
    , KILLAH1+1, KILLAH+2~, KILLAH+3*, KILLAH+4, KILLAH+7, FIND~, FIND+16
    PARMARY INDEX~, INDEX+19, INDEX+23!, FIND~, FIND+15, FIND+24!
    PARMARY( INDEX+18*, INDEX+21, FIND+20*, FIND+21
    PARMS SETAH~, SETAH1+3~, SETAH1+5, CHECKWHO~, ONLIST+13~, ONLIST+17
    PARMS( SETAH+6*, SETAH+7, SETAH1+4*
    PARMS("LINK I EN" , CHECKWHO+24*, CHECKWHO+62*, CHECKWHO+63, CHECKWHO+67*, CHECKWHO+68, CHECKWHO+70*, CHECKWHO+71, CHECKWHO+75*, CHECKWHO+78
    , CHECKWHO+80, ZB25+7, ONLIST+20, ONLIST+22, ONLIST+26, ONLIST+27
    PARMS("LINK N AME" , CHECKWHO+24*, CHECKWHO+63*, CHECKWHO+64, CHECKWHO+66*, CHECKWHO+71*, CHECKWHO+72, CHECKWHO+74*, CHECKWHO+80
    PARMS("LINK P ORT" , ZB25+6*, ZB25+7*
    PARMS("RECEIV ING APPLICATION" , CHECKWHO+33*, ONLIST+20, ONLIST+22, ONLIST+30, ING FACILITY" , CHECKWHO+47*, CHECKWHO+50*, CHECKWHO+53*, CHECKWHO+56*
    , ZB25, ZB25+3*, ZB25+4*, ONLIST+20, ONLIST+22, ONLIST+26, ONLIST+28, ONLIST+30
    RETURN STATNUM+3~, STATNUM+4*, STATNUM+8*, STATNUM+10*, STATNUM+11
    STATION STATNUM+3~, STATNUM+7*, STATNUM+8
    SUBIEN ONLIST+13~, ONLIST+14*, ONLIST+20*, ONLIST+21, ONLIST+22*, ONLIST+23
    TLINK ONLIST+13~, ONLIST+27*, ONLIST+28*, ONLIST+30
    WHO CHECKWHO~, ONLIST~, ONLIST+17
    WHO("FACILITY LINK IEN" , CHECKWHO+39*, CHECKWHO+42*, CHECKWHO+45, CHECKWHO+50, CHECKWHO+53, CHECKWHO+69, CHECKWHO+70, ZB25+3,  LINK NAME"
    , CHECKWHO+39, CHECKWHO+73, CHECKWHO+74, CHECKWHO+75
    WHO("IE LINK IEN" , CHECKWHO+59*, CHECKWHO+61, CHECKWHO+62, NAME" , CHECKWHO+60*, CHECKWHO+65, CHECKWHO+66, CHECKWHO+67
    WHO("INSTITUT ION IEN" , CHECKWHO+36
    WHO("MIDDLEWA RE LINK IEN" , CHECKWHO+59, RE LINK NAME" , CHECKWHO+60
    WHO("PORT" ZB25+3, ZB25+4, ZB25+6
    WHO("RECEIVIN G APPLICATION" , CHECKWHO+29, CHECKWHO+33
    WHO("STATION NUMBER" , CHECKWHO+36*, CHECKWHO+42, CHECKWHO+45*, CHECKWHO+47
    X1 SETAH1~, KILLAH+2~, KILLAH+7
    X2 SETAH1~, KILLAH+2~, KILLAH+7
    X3 SETAH1~, KILLAH+2~, KILLAH+7
    X4 SETAH1~, KILLAH+2~, KILLAH+7
    X5 SETAH1~, KILLAH+2~, KILLAH+7
    X6 SETAH1~, KILLAH+2~, KILLAH+7
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All