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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SRHLUO

Package: Surgery

Routine: SRHLUO


Information

SRHLUO ;B'HAM ISC/DLR - Surgery Interface Utilities for building Outgoing HL7 Segment ; [ 05/06/98 7:14 AM ]

Source Information

Source file <SRHLUO.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 2 C^%DTC  Y^DIQ  
Adverse Reaction Tracking 1 ^GMRADPT  
DRG Grouper 1 $$ICDDX^ICDCODE  
General Medical Record - Vitals 1 EN6^GMRVUTL  
Health Level Seven 1 $$HLDATE^HLFNC  
Registration 1 $$EN^VAFHLPID  
Surgery 1 $$HNAME^SRHLU  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Surgery 4 SRHLOORU  SRHLORU  SRHLZIU  SRHLZQR  

Entry Points

Name Comments DBIA/ICR reference
PID(SRI,SRENT) ;PID segment builder returns patient information
  • ICR #6782
    • Status: Pending
    • Usage: Private
    OBX(SRI,SRENT) ;OBX segment(s)
    ; This segment builds OBX segments for the following Preoperative data
    ; - vitals\measurements ^GMRVUTL routine:
    ; height, weight, blood pressure, pulse rate, and temperature
    ; - IN\OUT-PATIENT STATUS field in File #130
    ; - CANCEL DATE and CANCEL REASON for cancelled and aborted cases
    ; - SURGICAL SPECIALTY (OR) or MEDICAL SPECIALTY (NON OR)
    ; - SURGEON PGY and ANES SUPERVISE CODE
  • ICR #6782
    • Status: Pending
    • Usage: Private
    MSA(SRI,SRAC) ;MSA segment
    ; SRAC = Acknowledgement code (ID)
    ; AA = Application Accepted (responsed with information)
    ; AE = Application Error (bad data send error response)
    ; AR = Application Reject (no data in date range ... )
    ERR(SRI,SRERR)
    AL1(SRI,SRENT) ;AL1 segment(s) - allergy information from the generic call to (GMRADPT)
  • ICR #6782
    • Status: Pending
    • Usage: Private
    SOBX ;sets the OBX segment
    DG1(SRI,SRENT) ;DG1 segment(s) - surgery diagnosis information
  • ICR #6782
    • Status: Pending
    • Usage: Private

    External References

    Name Field # of Occurrence
    C^%DTC OBX+16
    Y^DIQ OBX+15
    ^GMRADPT AL1+5
    EN6^GMRVUTL OBX+16
    $$HLDATE^HLFNC OBX+17, OBX+24
    $$ICDDX^ICDCODE DG1+4, DG1+10
    $$HNAME^SRHLU OBX+17, OBX+24
    $$EN^VAFHLPID PID+3

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" AL1+2, OBX+16
    ^DD(130 OBX+15
    ^ECC(723 OBX+11
    ^SRF - [#130] DG1+3, DG1+4, DG1+7, DG1+9, DG1+10, OBX+11, OBX+12, OBX+13, OBX+14, OBX+15
    , OBX+23, OBX+24
    ^SRO(135 - [#135] OBX+24
    ^SRO(137.45 - [#137.45] OBX+12
    ^TMP( AL1+9*, SOBX+3*, PID+3*
    ^TMP("HLA" ERR+2*, MSA+8*
    ^TMP("HLS" DG1+6*, DG1+8*, DG1+11*

    Label References

    Name Line Occurrences
    SOBX OBX+11, OBX+12, OBX+13, OBX+14, OBX+15, OBX+18, OBX+19, OBX+20, OBX+21, OBX+22
    , OBX+24

    Naked Globals

    Name Field # of Occurrence
    ^( OBX+14
    ^("NON" OBX+11
    ^(0 DG1+10, OBX+12, OBX+15
    ^(200 OBX+13

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    AL1 AL1+3~
    AL1( AL1+8*, AL1+9
    >> C OBX+15*
    >> CASE DG1+1, DG1+3, DG1+4, DG1+7, DG1+9, DG1+10, OBX+8, OBX+11, OBX+12, OBX+13
    , OBX+14, OBX+15, OBX+23, OBX+24
    CNT AL1+3~, AL1+6*, AL1+8, AL1+9*, OBX+9~, OBX+10*, SOBX+2, SOBX+4*
    >> DFN AL1+1, PID+1, PID+3
    DG1 DG1+2~, DG1+5*, DG1+6*, DG1+7*, DG1+8*
    DT OBX+16
    GMRAL AL1+10!
    GMRAL( AL1+7, AL1+8
    >> GMRVSTR OBX+16*
    >> HL("FS" AL1+8, DG1+5, DG1+7, DG1+11, ERR+2, MSA+8, SOBX+3
    >> HL("MID" MSA+7
    >> HLCOMP AL1+8, ERR+2, OBX+11, OBX+12, OBX+13, OBX+14, OBX+15, OBX+18, OBX+19, OBX+20
    , OBX+21, OBX+22, OBX+24
    I9 DG1+2~, DG1+4*, DG1+5, DG1+10*, DG1+11
    MSA MSA+6~
    MSA( MSA+8
    MSA(1 MSA+7*
    MSA(2 MSA+7*
    MSA(3 MSA+7*
    OBX OBX+9~
    OBX( SOBX+3*
    OBX(1 SOBX+2*
    OBX(11 OBX+17*, SOBX+1*
    OBX(14 OBX+17*, OBX+24*
    OBX(16 OBX+17*, OBX+24*
    OBX(2 OBX+11*, OBX+12*, OBX+13*, OBX+14*, OBX+15*, OBX+17*, OBX+24*
    OBX(3 OBX+11*, OBX+12*, OBX+13*, OBX+14*, OBX+15*, OBX+18*, OBX+19*, OBX+20*, OBX+21*, OBX+22*
    , OBX+24*
    OBX(5 OBX+11*, OBX+12*, OBX+13*, OBX+14*, OBX+15*, OBX+17*, OBX+18*, OBX+19*, OBX+20*, OBX+21*
    , OBX+24*
    OBX(6 OBX+19*, OBX+20*, OBX+21*, OBX+22*
    PID PID+2~
    SRAC MSA~, MSA+7
    SRENT AL1~, AL1+9, DG1~, OBX~, SOBX+3, PID~, PID+3
    SRERR ERR~, ERR+2, MSA+7
    SRERR(1 ERR+2
    SRERR(2 ERR+2
    SRI AL1~, AL1+9*, DG1~, DG1+6*, DG1+8*, DG1+11*, ERR~, ERR+2*, MSA~, MSA+8
    , MSA+9*, OBX~, SOBX+3, SOBX+4*, PID~, PID+3, PID+4*
    >> SRX OBX+16*, OBX+17, OBX+18
    TYPE AL1+3~, AL1+8*, OBX+9~, OBX+16*, OBX+18, OBX+19, OBX+20, OBX+21, OBX+22
    U DG1+3, DG1+4, DG1+5, DG1+7, DG1+10, DG1+11, OBX+11, OBX+12, OBX+13, OBX+14
    , OBX+15, OBX+17, OBX+23, OBX+24
    X AL1+2*, AL1+3~, AL1+7*, AL1+8, AL1+9, DG1+2~, DG1+9*, OBX+9~, OBX+16*
    X1 DG1+2~, DG1+9*, DG1+11*, OBX+16*
    >> X2 OBX+16*
    >> XX MSA+8*, SOBX+3*
    Y OBX+9~, OBX+15*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All