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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: EHMHL7

Package: Electronic Health Modernization

Routine: EHMHL7


Information

EHMHL7 ;ALB/WTC - EHRM HL7 MESSAGES ; Oct 24, 2023@15:01:46

Source Information

Source file <EHMHL7.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 6 IX^DIC  FILE^DICN  WP^DIE  ^DIK  EN^DIQ  ^DIR  
Kernel 2 APPERROR^%ZTER  ($$FMDIFF,$$NOW)^XLFDT  
Registration 1 $$CRNRSITE^VAFCCRNR  

Entry Points

Name Comments DBIA/ICR reference
SAVEHL7(TYPE,SENDER,RECEIVER,FS,CS,RS) ;
  • ICR #7424
    • Status: Active
    • Usage: Controlled Subscription
    SAVEHL7X(NODE,TYPE,SENDER,RECEIVER,FS,CS,RS) ;
  • ICR #7424
    • Status: Active
    • Usage: Controlled Subscription
    GETHL7(HL7MSG) ;
    FILE(HL7MSG,TYPE,SENDER,RECEIVER,FS,CS,RS) ;
    PARSE(HL7MSG,SEGID,FIELDNO) ;
    PURGE ; [EHMHL7 PURGE]
    INQUIRE ; [EHMHL7 INQUIRE]

    External References

    Name Field # of Occurrence
    APPERROR^%ZTER SAVEHL7+27, SAVEHL7X+17
    IX^DIC INQUIRE+10
    FILE^DICN FILE+34
    WP^DIE FILE+38
    ^DIK PURGE+16
    EN^DIQ INQUIRE+13
    ^DIR INQUIRE+6
    $$CRNRSITE^VAFCCRNR FILE+19
    $$FMDIFF^XLFDT PURGE+12
    $$NOW^XLFDT FILE+6

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: INQUIRE+8
    Function Call: WRITE
    • Prompt: "... Nothing found/selected"
    • Line Location: INQUIRE+10
    Function Call: WRITE
    • Prompt: !!,"--------------------------------------------------------------------------------",!
    • Line Location: INQUIRE+12
    Routine Call
    • DIC
    • Line Location:
      • INQUIRE+10
    Routine Call
    • DIE
    • Line Location:
      • FILE+38
    Routine Call
    • DIR
    • Line Location:
      • INQUIRE+6

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^EHMHL7(1609 - [#1609] WP^DIE

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(1609 PURGE+16, INQUIRE+13
    ^EHMHL7(1609 - [#1609] PURGE+12
    ^EHMHL7(1609.1 - [#1609.1] PURGE+8
    ^TMP( SAVEHL7X+13

    Label References

    Name Line Occurrences
    $$FILE SAVEHL7+27, SAVEHL7X+17
    $$PARSE FILE+7, FILE+8, FILE+10, FILE+17, FILE+24, FILE+30, FILE+32
    GETHL7 SAVEHL7+23

    Naked Globals

    Name Field # of Occurrence
    ^( PURGE+8, PURGE+12

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CERNER FILE+4~, FILE+18*, FILE+19*, FILE+20*, FILE+22
    CONSULT FILE+4~, FILE+18*, FILE+19*, FILE+20*, FILE+21
    CREATED PURGE+4~, PURGE+12*
    CS SAVEHL7~, SAVEHL7+18*, SAVEHL7+27, SAVEHL7X~, SAVEHL7X+10*, SAVEHL7X+17, FILE~, FILE+8, FILE+10, FILE+18
    , FILE+19, FILE+20, FILE+24, FILE+31, FILE+32
    D INQUIRE+4~, INQUIRE+10!*, INQUIRE+13!
    DA FILE+4~, FILE+36*, FILE+38, FILE+39, FILE+41, PURGE+4~, PURGE+8*, PURGE+12*, INQUIRE+13*
    DIC FILE+4~, FILE+6*, INQUIRE+4~, INQUIRE+10!*, INQUIRE+13!*
    DIC("DR" FILE+6*, FILE+7*, FILE+9*, FILE+11*, FILE+21*, FILE+22*, FILE+24*, FILE+31*, FILE+32*
    DIC(0 FILE+6*, INQUIRE+10*
    DIK PURGE+4~, PURGE+16!*
    DIR INQUIRE+4~
    DIR("A" INQUIRE+6*
    DIR(0 INQUIRE+6*
    DIRUT INQUIRE+4~, INQUIRE+6
    DT PURGE+12
    DTIME INQUIRE+8
    ERRMSG FILE+4~, FILE+39
    FIELDNO PARSE~, PARSE+8
    FILLER FILE+4~, FILE+17*, FILE+19, FILE+20
    FS SAVEHL7~, SAVEHL7+17*, SAVEHL7+27, SAVEHL7X~, SAVEHL7X+9*, SAVEHL7X+17, FILE~, PARSE+8
    HL7MSG SAVEHL7+15~, SAVEHL7+23, SAVEHL7+27, SAVEHL7X+7~, SAVEHL7X+13*, SAVEHL7X+17, GETHL7~, FILE~, FILE+7, FILE+8
    , FILE+10, FILE+17, FILE+24, FILE+30, FILE+32, PARSE~
    HL7MSG( GETHL7+7*, GETHL7+11*, PARSE+6
    >> HLNEXT GETHL7+6
    HLNODE GETHL7+4~, GETHL7+7
    HLNODE( GETHL7+11
    >> HLQUIT GETHL7+6
    I GETHL7+4~, GETHL7+6*, GETHL7+7, GETHL7+11, FILE+4~, FILE+31*, PARSE+4~, PARSE+6*
    ICN FILE+4~, FILE+30*, FILE+31*
    INQUIRE INQUIRE+4~, INQUIRE+6*, INQUIRE+8, INQUIRE+10
    J GETHL7+4~, GETHL7+7*, GETHL7+11*
    MSGID FILE+4~, FILE+7*
    NODE SAVEHL7X~, SAVEHL7X+4, SAVEHL7X+13
    PATIENT FILE+4~, FILE+24*, FILE+32*
    PLACER FILE+4~, FILE+17*, FILE+18, FILE+19, FILE+20
    RECEIVER SAVEHL7~, SAVEHL7+27, SAVEHL7X~, SAVEHL7X+17, FILE~, FILE+10*, FILE+11
    RETNTN PURGE+4~
    RETNTN( PURGE+8*, PURGE+12
    RS SAVEHL7~, SAVEHL7+19*, SAVEHL7+27, SAVEHL7X~, SAVEHL7X+11*, SAVEHL7X+17, FILE~, FILE+31
    RTNCODE SAVEHL7+15~, SAVEHL7+27*, SAVEHL7+29, SAVEHL7X+7~, SAVEHL7X+17*, SAVEHL7X+19
    RTNVALUE PARSE+4~, PARSE+6*, PARSE+8*, PARSE+10
    SEGID PARSE~, PARSE+8
    SENDER SAVEHL7~, SAVEHL7+27, SAVEHL7X~, SAVEHL7X+17, FILE~, FILE+8*, FILE+9
    SITE FILE+4~, FILE+18*, FILE+19
    TYPE SAVEHL7~, SAVEHL7+13, SAVEHL7+27, SAVEHL7X~, SAVEHL7X+5, SAVEHL7X+17, FILE~, FILE+6, FILE+15, FILE+28
    , PURGE+4~, PURGE+8*, PURGE+12*
    U SAVEHL7+27, SAVEHL7X+17, FILE+24, FILE+32, PURGE+8, PURGE+12
    X FILE+4~, FILE+6*, PARSE+4~, PARSE+6*, PARSE+8, PURGE+4~, PURGE+8*, PURGE+12*, INQUIRE+4~, INQUIRE+8*
    Y FILE+4~, FILE+30*, FILE+31, FILE+34, FILE+36, INQUIRE+4~, INQUIRE+6, INQUIRE+10, INQUIRE+13
    Z FILE+4~, FILE+31*
    Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All