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 |  Local Variables |  All
Print Page as PDF
Routine: HLOASUB1

Package: Health Level Seven

Routine: HLOASUB1


Information

HLOASUB1 ;IRMFO-ALB/CJM - Subscription Registry (continued) ;03/24/2004 14:43

Source Information

Source file <HLOASUB1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Health Level Seven 3 $$UPD^HLEMU  $$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

Caller Graph Total: 6

Package Total Caller Graph
Health Level Seven 5 HLOAPI1  HLOASUB  HLOASUB1  HLOPOST  HLOUSR1  
Kernel 1 XU8P585  

Entry Points

Name Comments DBIA/ICR reference
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>
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
    KILLAH(IEN) ;kills the AH x~ref on file 779.4 for a particular subscription registry entry=ien
    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
    $$UPD^HLEMU DELETE+3
    $$STATNUM^HLOASUB1 CHECKWHO+34
    $$DOMAIN^HLOTLNK CHECKWHO+48
    $$FINDLINK^HLOTLNK CHECKWHO+40
    $$PORT^HLOTLNK CHECKWHO+75
    $$STATNUM^HLOTLNK CHECKWHO+43
    $$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+37, CHECKWHO+55, CHECKWHO+59, CHECKWHO+63, CHECKWHO+67
    ^HLD(779.4 - [#779.4] INDEX+16, INDEX+24*, KILLAH+4, KILLAH+7!

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA 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+20!, CHECKWHO+30*, CHECKWHO+56*, CHECKWHO+60*, CHECKWHO+64*, CHECKWHO+68*, CHECKWHO+69*, CHECKWHO+72*
    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+15~, INDEX+20*, INDEX+21*, FIND+17~, FIND+19*, FIND+20*
    IEN INDEX~, INDEX+14, INDEX+16, INDEX+23, INDEX+24, KILLAH~, KILLAH+1, KILLAH+4, KILLAH+7, ADD~
    , ADD+35, ADD+39*, ADD+41*, ADD+44, ADD+45, STATNUM~, STATNUM+5, STATNUM+6, STATNUM+7
    IENA ADD+23~
    IENA(1 ADD+35*, ADD+41
    IENS UPD+16~, UPD+22*, UPD+25, ADD+23~, ADD+31*, ADD+34
    INDEX INDEX+15~, INDEX+19*, INDEX+21*, INDEX+22*, INDEX+23, INDEX+24, FIND+17~, FIND+18*, FIND+20*, FIND+21*
    , FIND+22
    LEN CHECKWHO+26~, CHECKWHO+27*, CHECKWHO+28, CHECKWHO+29
    LOCATION KILLAH+2~, KILLAH+5*, KILLAH+6
    NEXT KILLAH+2~, KILLAH+3*, KILLAH+4*, KILLAH+5
    OK INDEX+12~*, INDEX+25*, INDEX+27, FIND+12~*, FIND+22*, FIND+24, CHECKWHO+19~, CHECKWHO+21*, CHECKWHO+28*, CHECKWHO+29*
    , CHECKWHO+30, CHECKWHO+56*, CHECKWHO+60*, CHECKWHO+64*, CHECKWHO+68*, CHECKWHO+69*, CHECKWHO+72*, CHECKWHO+78
    OWNER INDEX+15~, INDEX+16*, INDEX+17, INDEX+24, FIND~, FIND+16
    PARMARY INDEX~, INDEX+18, INDEX+26!, FIND~, FIND+15, FIND+23!
    PARMARY( INDEX+21, FIND+20
    PARMS CHECKWHO~
    PARMS("LINK I EN" , CHECKWHO+22*, CHECKWHO+54*, CHECKWHO+55, CHECKWHO+59*, CHECKWHO+60, CHECKWHO+62*, CHECKWHO+63, CHECKWHO+67*, CHECKWHO+68
    , CHECKWHO+69
    PARMS("LINK N AME" , CHECKWHO+22*, CHECKWHO+55*, CHECKWHO+56, CHECKWHO+58*, CHECKWHO+63*, CHECKWHO+64, CHECKWHO+66*, CHECKWHO+69
    PARMS("RECEIV ING APPLICATION" , CHECKWHO+31*, ING FACILITY" , CHECKWHO+45*, CHECKWHO+48*, CHECKWHO+50*, CHECKWHO+72, CHECKWHO+75*, CHECKWHO+76*
    RETURN STATNUM+3~, STATNUM+4*, STATNUM+8*, STATNUM+10*, STATNUM+11
    STATION STATNUM+3~, STATNUM+7*, STATNUM+8
    WHO CHECKWHO~
    WHO("FACILITY LINK IEN" , CHECKWHO+37*, CHECKWHO+40*, CHECKWHO+43, CHECKWHO+48, CHECKWHO+61, CHECKWHO+62, CHECKWHO+75,  LINK NAME" , CHECKWHO+37
    , CHECKWHO+65, CHECKWHO+66, CHECKWHO+67
    WHO("IE LINK IEN" , CHECKWHO+53, CHECKWHO+54, NAME" , CHECKWHO+57, CHECKWHO+58, CHECKWHO+59
    WHO("INSTITUT ION IEN" , CHECKWHO+34
    WHO("PORT" CHECKWHO+75, CHECKWHO+76
    WHO("RECEIVIN G APPLICATION" , CHECKWHO+27, CHECKWHO+31
    WHO("STATION NUMBER" , CHECKWHO+34*, CHECKWHO+40, CHECKWHO+43*, CHECKWHO+45
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All