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

Package: VBECS

Routine: VBECRPT


Information

VBECRPT ;HOIFO/RLM - APIS TO RETURN BLOOD BANK DATA FOR LAB ;Jan 31, 2020@13:10:43

Source Information

Source file <VBECRPT.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VBECS 5 ($$ABORH,ABID,TRRX)^VBECA1  DFN^VBECA1B  OEAPI^VBECA3  CPRS^VBECA3B  (AVUNIT,TRAN)^VBECA4  
VA FileMan 3 DD^%DT  FIND^DIC  $$GET1^DIQ  
Kernel 1 $$FMTE^XLFDT  
Registration 1 $$SITE^VASITE  
Toolkit 1 GETWP^XPAR  

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
Order Entry Results Reporting 3 ORCXPND1  ORCXPND3  ORWLR1  
Lab Service 1 LR7OSBR  

Entry Points

Name Comments DBIA/ICR reference
EN ;Add sections as they are finished.
  • ICR #7203
    • Status: Pending
    • Usage: Controlled Subscription
    EXIT ;Set up to print and clean up.
    HEADER ;Header for report
    TEST ;Calls
    OEAPI ;Call to OEAPI^VBECA3
    ABORH ;Call to ABORH^VBECA1 for ABO/Rh - DBIA 3181
    ABID ;Call to ABID^VBECA1 for Antibodies Identified - DBIA 3181, 3184
    TREQ ;W !!,"Transfusion Requirements"
    DFN ;Call to DFN^VBECA3A - DBIA 3879
    VBDAT ;CONVERT DATE 3200114.16132
    VBDAT1
    AVUNIT ;Available Units
    INSTLK ;Lookup Institution
    CPRS ;Call to CPRS^VBECA3B - DBIA 3880
    COMPREQ ;Component Requests
    TRAN ;Call to TRAN^VBECA4 for Tranfused Units - DBIA 3176
    TRRX ;Call to TRRX^VBECA1 for Transfusion Reactions - DBIA 3181, 3187
    TRRXHDR ;Transfusion Reaction Header
    PARSE ;Parse Record
    WRT ; Writes the Transfusion Record for each day
    INCRL(I) ;Increment line

    External References

    Name Field # of Occurrence
    DD^%DT VBDAT1, TRRX+7
    FIND^DIC INSTLK+1
    $$GET1^DIQ COMPREQ+9
    $$SITE^VASITE OEAPI+2
    $$ABORH^VBECA1 ABORH+1
    ABID^VBECA1 ABID+1
    TRRX^VBECA1 TRRX+1
    DFN^VBECA1B DFN+2
    OEAPI^VBECA3 OEAPI+3
    CPRS^VBECA3B CPRS+3
    AVUNIT^VBECA4 AVUNIT+1
    TRAN^VBECA4 TRAN+2
    $$FMTE^XLFDT PARSE+2
    GETWP^XPAR EN+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!!,"CROSSMATCHED UNITS: "
    • Line Location: TEST+3
    Function Call: WRITE
    • Prompt: !?2,^(ID)
    • Line Location: TEST+5
    Function Call: WRITE
    • Prompt: !!!,"Array returned from OEAPI^VBECA3 API in ORVB():",!
    • Line Location: OEAPI+5
    Function Call: WRITE
    • Prompt: !!!,"Specimen: "
    • Line Location: CPRS+4
    Function Call: WRITE
    • Prompt: !?2,^(ID)
    • Line Location: CPRS+6
    Function Call: WRITE
    • Prompt: TD
    • Line Location: WRT+3
    Function Call: WRITE
    • Prompt: ?(((GMI2-1)*15)+13),GMA(GMJ)
    • Line Location: WRT+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: WRT+8
    Routine Call
    • DIC
    • Line Location:
      • INSTLK+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(200 - [#200] GET1^DIQ
    ^DIC(4 - [#4] FIND^DIC

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] EN+1
    ^SC - [#44] OEAPI+2
    ^TMP("BBD" CPRS+2!, CPRS+5, CPRS+6, CPRS+7, CPRS+8
    ^TMP("OR" OEAPI+6!
    ^TMP("ORLRC" EXIT+1!, EXIT+2*
    ^TMP("TRAN" TEST+6!, TRAN+1!, TRAN+4, TRAN+8, TRAN+11
    ^TMP("TRRX" TEST+6!
    ^TMP("VBA" AVUNIT+3, AVUNIT+4, AVUNIT+8, AVUNIT+10
    ^TMP("VBDATA" TEST+4, TEST+5, TEST+6!, DFN+1!, DFN+5, DFN+6, DFN+7, DFN+8, DFN+11, DFN+12
    , DFN+13, DFN+16, DFN+18, DFN+19, DFN+22, DFN+23, COMPREQ+3, COMPREQ+6, COMPREQ+7
    ^TMP("VBECRPC" OEAPI+6!
    ^TMP("VBECS_XML_RES" OEAPI+6!
    ^TMP("VBEC_OE_DATA" OEAPI+6!
    ^TMP("VBRPTDTA" DFN+3!, DFN+15*, DFN+17*, DFN+18*, DFN+20*, DFN+21*, DFN+24*, DFN+25*, DFN+31, DFN+33
    , DFN+34, DFN+39, DFN+40
    ^TMP("ZTRAN" TRAN+1!, TRAN+5*, TRAN+6

    Label References

    Name Line Occurrences
    ABID EN+4, TEST+2
    ABORH EN+1, TEST+2
    AVUNIT EN+4
    COMPREQ EN+4
    CPRS TEST+2
    DFN EN+4, TEST+2
    EXIT EN+2
    HEADER EN+1
    INCRL EN+2, EXIT+1, ABORH+2, ABID+2, ABID+4, TREQ+1, TREQ+2, DFN+3, DFN+5, DFN+32
    , DFN+42, AVUNIT+1, AVUNIT+3, COMPREQ+1, COMPREQ+3, TRAN+7, TRAN+8, TRRX+2, TRRX+3
    INSTLK DFN+12
    TRAN EN+4, TEST+2
    TREQ ABID+4
    TRRX EN+4, TEST+2
    TRRXHDR TRRX+10
    VBDAT DFN+8
    VBDAT1 DFN+11, AVUNIT+9, AVUNIT+11, COMPREQ+8, TRAN+11

    Naked Globals

    Name Field # of Occurrence
    ^( TEST+5, CPRS+6, CPRS+7, CPRS+8, COMPREQ+7, TRAN+4, TRAN+6*, TRAN+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> ABO ABORH+4*, ABORH+5
    ABORH EN+2, TEST+1~, ABORH+1*, ABORH+3
    ARR TEST+1~
    BPN TEST+1~, PARSE+3*, PARSE+4*, PARSE+5, WRT+2, WRT+5, WRT+8
    >> CNT TRAN+3*, TRAN+6*
    >> COMP TRAN+4*
    >> COMPSEQ TRAN+4*, TRAN+5, TRAN+6
    >> DFN EN+1, DFN+2, AVUNIT+1, TRAN+2
    DI2 TEST+1~
    DIV OEAPI+1~, OEAPI+2*
    DT OEAPI+2
    ERR TEST+1~
    ERROR TEST+1~, OEAPI+1~, CPRS+1~
    >> GMA( PARSE+5*, WRT+7
    >> GMA(1 PARSE+3*, PARSE+4, PARSE+5, PARSE+6*
    GMI TEST+1~, PARSE+1~, PARSE+5*
    GMI1 WRT+1~, WRT+4*, WRT+5, WRT+6, WRT+8
    GMI2 WRT+1~, WRT+5*, WRT+6, WRT+7, WRT+8
    GMJ WRT+1~, WRT+6*, WRT+7
    GML WRT+1~, WRT+2*, WRT+4, WRT+5
    GMM WRT+1~, WRT+2*
    >> GMR TRAN+4*, TRAN+5, PARSE+2, PARSE+3
    I EN+3*, DFN+39*, INCRL~, INCRL+1*
    ID TEST+1~, TEST+5*, ABID+5*, ABID+6, TREQ+3*, TREQ+4, DFN+6*, DFN+7, DFN+8, DFN+11
    , DFN+12, DFN+13, DFN+16, DFN+18, DFN+19, DFN+22, DFN+23, CPRS+1~, CPRS+6*, CPRS+7
    , CPRS+8, COMPREQ+7*, TRAN+3*, TRAN+4*, TRAN+5, TRAN+6, TRAN+11*, TRRX+5*, TRRX+6, TRRX+7
    , TRRX+8, TRRX+9, TRRX+10*, TRRX+11, TRRX+12, TRRX+13
    ID1 TEST+1~, ABID+6*, ABID+10*, TREQ+4*, TREQ+7*, DFN+6*, CPRS+1~, CPRS+7*, CPRS+8, TRRX+9*
    , TRRX+10*, TRRX+11*, TRRX+12, TRRX+13
    ID2 TEST+1~, DFN+6*, CPRS+1~, CPRS+8*, TRRX+13*
    LRDFN TEST+1~
    >> ORARR ABID+1, TRRX+1
    >> ORARR("ABID" ABID+4, ABID+5, ABID+6, TREQ+2, TREQ+3, TREQ+4
    >> ORARR("TRRX" TRRX+3, TRRX+4, TRRX+5, TRRX+6, TRRX+7, TRRX+8, TRRX+9
    >> ORAY( TRAN+3*, TRAN+4
    >> ORL OEAPI+2
    >> ORPARNT ABID+1, TRRX+1
    ORSTN OEAPI+1~, OEAPI+2*, OEAPI+3
    ORVB OEAPI+1~, OEAPI+3
    ORVB(0 OEAPI+4
    ORVP TEST+1~, OEAPI+3
    PATDOB EN+1*, TEST+1~, ABORH+1, ABID+1, TRRX+1
    PATID EN+1*, TEST+1~, ABORH+1, ABID+1, TRRX+1
    PATNAM EN+1*, TEST+1~, ABORH+1, ABID+1, TRRX+1
    >> RH ABORH+5
    >> TD PARSE+2*, WRT+3
    U OEAPI+2, PARSE+3
    VBA EXIT+2*, EXIT+3!, AVUNIT+4*, AVUNIT+5, AVUNIT+8*, AVUNIT+9, AVUNIT+10, COMPREQ+7*, COMPREQ+8, COMPREQ+9
    , COMPREQ+10, TRAN+11*, TRAN+12, TRAN+14, TRAN+15, TRAN+16, TRAN+17
    VBABID EXIT+3!, ABID+5*, ABID+7, ABID+12!, TREQ+3*, TREQ+5
    VBABIDC EXIT+3!, ABID+12!
    VBABIDC( ABID+6*, ABID+10, TREQ+4*, TREQ+7
    >> VBABORH AVUNIT+13*, AVUNIT+18, TRAN+15*, TRAN+18
    VBB EXIT+3!, AVUNIT+8*
    VBC EXIT+3!, AVUNIT+10*, AVUNIT+11, AVUNIT+12, AVUNIT+13, AVUNIT+14, AVUNIT+15, AVUNIT+16, AVUNIT+17, AVUNIT+18
    >> VBCLDT DFN+11*, DFN+15
    >> VBCLDTI DFN+11*
    VBCM EXIT+3!, DFN+39*, DFN+40*
    VBCM1 EXIT+3!, DFN+40*
    VBCMO EXIT+3!
    VBCMO( DFN+40*, DFN+43
    VBCMO(0 DFN+41
    VBD EXIT+3!, VBDAT1+1*, VBDAT1+2, VBDAT1+3
    VBDATA EXIT+3!, DFN+31*, DFN+36, DFN+37, DFN+38
    VBDATE EXIT+3!, DFN+8*, DFN+11*, VBDAT+1, VBDAT1, VBDAT1+1, VBDAT1+2*, AVUNIT+9*, AVUNIT+11*, COMPREQ+8*
    , TRAN+11*
    VBDATI EXIT+3!, DFN+8, DFN+9, DFN+11, DFN+31*, DFN+33, DFN+34, DFN+39, VBDAT+1*
    >> VBDPDTI DFN+8*, DFN+9*, DFN+15, DFN+17, DFN+18, DFN+20, DFN+21, DFN+24, DFN+25
    >> VBDST AVUNIT+11*, AVUNIT+12*, AVUNIT+17
    >> VBDTA AVUNIT+9*, AVUNIT+17
    VBDTNT EXIT+3!, VBDAT1+3*, COMPREQ+8, TRAN+18
    VBECERR EXIT+3!, TEST+1~
    >> VBERR EN+3
    >> VBERR( EN+3
    >> VBI DFN+43*
    VBINST EXIT+3!, DFN+12*, DFN+15, INSTLK+1, INSTLK+2*
    >> VBINST1("DILIST" INSTLK+2
    VBLINE EN+1*, EN+3*, EXIT+3!, HEADER+1*, ABORH+3*, ABORH+5*, ABID+3*, ABID+4*, ABID+7*, ABID+8*
    , ABID+10, ABID+11*, TREQ+1*, TREQ+2*, TREQ+5*, TREQ+6*, TREQ+7, TREQ+8*, DFN+4*, DFN+5*
    , DFN+26*, DFN+27*, DFN+28*, DFN+29*, DFN+30*, DFN+32, DFN+33, DFN+34, DFN+35, DFN+36
    , DFN+37, DFN+38*, DFN+39*, DFN+42*, DFN+43*, AVUNIT+2*, AVUNIT+3*, AVUNIT+6*, AVUNIT+7*, AVUNIT+17
    , AVUNIT+18*, COMPREQ+2*, COMPREQ+3*, COMPREQ+4*, COMPREQ+5*, COMPREQ+10*, TRAN+7*, TRAN+8*, TRAN+9*, TRAN+10*
    , TRAN+18*, TRRX+2*, TRRX+3*, TRRX+10*, TRRX+11*, TRRX+12*, TRRX+13*, TRRXHDR+1*, INCRL+1*
    VBLINE( EN+3*, EXIT+2, HEADER+1*, ABORH+3*, ABORH+5*, ABID+3*, ABID+4*, ABID+7*, ABID+8*, ABID+10*
    , TREQ+1*, TREQ+2*, TREQ+5*, TREQ+6*, TREQ+7*, DFN+4*, DFN+5*, DFN+26*, DFN+27*, DFN+28*
    , DFN+29*, DFN+30*, DFN+32*, DFN+33*, DFN+34*, DFN+35*, DFN+36*, DFN+37*, DFN+38*, DFN+39*
    , DFN+42*, DFN+43*, AVUNIT+2*, AVUNIT+3*, AVUNIT+6*, AVUNIT+7*, AVUNIT+17*, AVUNIT+18*, COMPREQ+2*, COMPREQ+3*
    , COMPREQ+4*, COMPREQ+5*, COMPREQ+10*, TRAN+7*, TRAN+8*, TRAN+9*, TRAN+10*, TRAN+18*, TRRX+2*, TRRX+3*
    , TRRX+10*, TRRX+11*, TRRX+12*, TRRX+13*, TRRXHDR+1*, INCRL+1*
    VBLN EXIT+3!, DFN+18*, DFN+19*
    >> VBLOC AVUNIT+16*, AVUNIT+18
    VBM EXIT+3!, VBDAT1+1*, VBDAT1+2, VBDAT1+3
    VBPLC EXIT+3!, DFN+14*, DFN+17
    >> VBPRID AVUNIT+15*, AVUNIT+17
    >> VBPROD TRAN+17*, TRAN+18
    VBQ EXIT+3!, TRAN+13*
    VBREQBY EXIT+3!, COMPREQ+9*, COMPREQ+10
    VBREQD EXIT+3!, COMPREQ+8*, COMPREQ+10
    VBREQR EXIT+3!, COMPREQ+9*, COMPREQ+10
    VBRSLT EXIT+3!, DFN+16*, DFN+17
    VBRXTYP EXIT+3!, TRRX+6*, TRRX+7*, TRRX+8, TRRX+9
    VBSPCCLM EXIT+3!, DFN+21*, DFN+25*
    VBSPCCM EXIT+3!, DFN+19*, DFN+20, DFN+21, DFN+23*, DFN+24, DFN+25
    VBSPCCML EXIT+3!, DFN+3*, DFN+20*, DFN+24*
    >> VBSPCID DFN+7*, DFN+9, DFN+10*, DFN+15
    VBSPCL EXIT+3!, DFN+33*, DFN+34*
    >> VBSPDT DFN+8*, DFN+15
    VBT EXIT+3!, VBDAT1*, VBDAT1+2, TRAN+14*, TRAN+18
    VBTN EXIT+3!, DFN+13*, DFN+14
    VBTR EXIT+3!, TRAN+12*, TRAN+13
    VBTRRX EXIT+3!
    VBTRRX( TRRX+8*, TRRX+9*, TRRX+10, TRRX+11, TRRX+12, TRRX+13
    VBTXT EXIT+3!
    >> VBUNIT AVUNIT+14*, AVUNIT+17, TRAN+16*, TRAN+18
    VBWNTD EXIT+3!, COMPREQ+8*, COMPREQ+10
    VBX EXIT+3!, DFN+3*, DFN+10, DFN+36, DFN+37, DFN+38, AVUNIT+4*, AVUNIT+14, AVUNIT+15, AVUNIT+16
    , AVUNIT+17, COMPREQ+10, TRAN+7*, TRAN+14, TRAN+16, TRAN+17, TRRX+2*, TRRX+11
    VBY EXIT+3!, VBDAT1+1*, VBDAT1+2, VBDAT1+3
    X PARSE+1~
    >> Y VBDAT1*, TRRX+7*, TRRX+8
    Info |  Source |  Call Graph |  Caller 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