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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: VAFHLZMH

Package: Registration

Routine: VAFHLZMH


Information

VAFHLZMH ;BAY/JAT,PJH,DJS - Create HL7 Military History seg. (ZMH) ;2 Nov 2017 7:16pm

Source Information

Source file <VAFHLZMH.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Health Level Seven 1 $$HLDATE^HLFNC  
Registration 1 ENTER^VAFHLZM1  
VA FileMan 1 $$GET1^DIQ  

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

Package Total Caller Graph
Registration 2 DGRUGA01  DGRUGA08  
Income Verification Match 1 IVMPTRN8  
Scheduling 1 SDRPA07  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,VAFHMIEN,VAFSTR) ; RAI/MDS Reserved entry point!!
; !!!!!!!!!! don't enter here !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MSDSD ;Returns last service separation date from ESR sourced data
ENTER(DFN,VAFARRAY,VAFTYPE,VAFSTR,VAFHLS,VAFHLC,VAFHLQ)
  • ICR #4495
    • Status: Active
    • Usage: Private
    MSDS ;Returns latest service episodes from ESR sourced data
    EDIT(X)
    UNCRUNCH ; reformat VAFTYPE by translating any range of numbers,
    ; for example replace "1:3,6,9:11" by "1,2,3,6,9,10,11,"
    NOGO ;

    External References

    Name Field # of Occurrence
    $$GET1^DIQ EN+12, EN+13
    $$HLDATE^HLFNC EN+12, EN+13, MSDSD+9, MSDSD+10
    ENTER^VAFHLZM1 ENTER+93

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] EN+11, MSDSD+3, MSDSD+4, MSDSD+5, ENTER+65, ENTER+77, ENTER+78, ENTER+79, ENTER+80, ENTER+81
    , ENTER+82, ENTER+83, ENTER+84, ENTER+89, ENTER+91, MSDS+7, MSDS+8, MSDS+9
    ^TMP("VAFHLZMH" ENTER+54

    Label References

    Name Line Occurrences
    $$EDIT ENTER+70
    MSDS ENTER+84
    MSDSD EN+14
    NOGO ENTER+64, ENTER+65, ENTER+67, ENTER+70
    UNCRUNCH ENTER+71

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    A UNCRUNCH+2~, UNCRUNCH+5*, UNCRUNCH+6, UNCRUNCH+7*
    B UNCRUNCH+2~, UNCRUNCH+5*, UNCRUNCH+7
    BRANCH MSDS+4~, MSDS+13*, MSDS+18
    CNT EDIT+1~, EDIT+8*, EDIT+13*
    COMP MSDS+4~, MSDS+13*, MSDS+22
    COUNT MSDS+4~, MSDS+5*, MSDS+7, MSDS+12*, MSDS+16, MSDS+22
    DA MSDSD+1~, MSDSD+4*, MSDSD+5, MSDS+4~, MSDS+8*, MSDS+9
    DFN EN~, EN+11, EN+12, EN+13, MSDSD+3, MSDSD+4, MSDSD+5, ENTER~, ENTER+64, ENTER+65
    , ENTER+77, ENTER+78, ENTER+79, ENTER+80, ENTER+81, ENTER+82, ENTER+83, ENTER+84, ENTER+89, ENTER+91
    MSDS+7, MSDS+8, MSDS+9
    DONE MSDSD+1~, MSDSD+2*, MSDSD+3, MSDSD+6*, MSDSD+8, MSDS+4~
    DTYP MSDS+4~, MSDS+14*, MSDS+17
    EDATA MSDSD+1~, MSDSD+5*, MSDSD+10, MSDS+4~, MSDS+9*, MSDS+11, MSDS+12, MSDS+13, MSDS+14
    EDATE EN+10~, EN+12*, EN+15, MSDSD+2*, MSDSD+3*, MSDSD+4, MSDSD+9*, MSDS+4~, MSDS+5*, MSDS+7*
    MSDS+8, MSDS+19
    ERR EDIT+1~*, EDIT+8*, EDIT+9, EDIT+17*, EDIT+18
    >> HL("ECH" EN+15
    >> HL("FS" EN+7, EN+8, EN+15
    P EDIT+1~, EDIT+7*, EDIT+8
    Q EDIT+1~, EDIT+10*, EDIT+11
    R EDIT+1~, EDIT+10*, EDIT+11
    SDATE EN+10~, EN+13*, EN+15, MSDSD+2*, MSDSD+10*, MSDS+4~, MSDS+12*, MSDS+20
    SERVNO MSDS+4~, MSDS+14*, MSDS+21
    SUB MSDS+4~, MSDS+16*, MSDS+17, MSDS+18, MSDS+19, MSDS+20, MSDS+21
    U MSDSD+10, MSDS+11, MSDS+12, MSDS+13, MSDS+14, MSDS+17, MSDS+18, MSDS+19, MSDS+20, MSDS+21
    MSDS+22
    VAF321N ENTER+76~, ENTER+77*
    VAF322N ENTER+76~, ENTER+78*
    VAF3291N ENTER+76~, ENTER+83*, MSDS+5*, MSDS+22*
    VAF32N ENTER+76~, ENTER+82*, MSDS+5*, MSDS+17*, MSDS+18*, MSDS+19*, MSDS+20*, MSDS+21*
    VAF52N ENTER+76~, ENTER+79*
    VAF53N ENTER+76~, ENTER+80*
    VAFARRAY ENTER~, ENTER+54*, ENTER+55, NOGO+1
    VAFHA EN+6~
    VAFHADD EN+6~
    VAFHLC ENTER~, ENTER+61*, ENTER+62*
    VAFHLOC EN+6~
    VAFHLQ ENTER~, ENTER+63*
    VAFHLREC EN+6~, EN+7*, EN+8*, EN+15*, EN+16
    VAFHLS ENTER~, ENTER+59*, ENTER+60*, NOGO+1
    VAFHMIEN EN~
    VAFHSUB EN+6~*
    VAFINDX ENTER+73~, ENTER+74*
    VAFOPS ENTER+86~
    VAFOPS( ENTER+91*
    VAFREC ENTER+86~, ENTER+87*, ENTER+89*, ENTER+91
    VAFSTR EN~, EN+9, ENTER~, ENTER+58*, ENTER+66*, ENTER+67, ENTER+68*
    VAFSUB ENTER+86~, ENTER+87*, ENTER+90*, ENTER+91
    VAFTAG ENTER+73~
    VAFTYPE ENTER~, ENTER+56*, ENTER+57*, ENTER+69*, ENTER+70, ENTER+71, ENTER+84, UNCRUNCH+3, UNCRUNCH+8*
    VAFX ENTER+73~
    VAFY ENTER+73~
    VAFZ ENTER+73~
    X EDIT~, EDIT+2*, EDIT+3, EDIT+4, EDIT+5, EDIT+8, EDIT+11, EDIT+13, UNCRUNCH+2~, UNCRUNCH+3*
    Y UNCRUNCH+2~*, UNCRUNCH+4*, UNCRUNCH+6*, UNCRUNCH+7*, UNCRUNCH+8
    Z EDIT+1~, EDIT+8*, EDIT+13*, EDIT+14, EDIT+15, UNCRUNCH+2~, UNCRUNCH+3*, UNCRUNCH+4, UNCRUNCH+5
    Z1 EDIT+1~, EDIT+15*, EDIT+16
    Z2 EDIT+1~, EDIT+15*, EDIT+16
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All