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

Package: Lab Service

Routine: LR7OAPKM


Information

LR7OAPKM ;DSS/FHS - INBOUND CPRS MESSAGE HANDLER ;09/16/16 09:43

Source Information

Source file <LR7OAPKM.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 ^DIC  (UPDATE,WP)^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  ^XUP  
Lab Service 2 ORDER^LROS  PT^LRX  

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

Package Total Caller Graph
Lab Service 1 LR7OF0  
Order Entry Results Reporting 1 ORMBLDLR  

Entry Points

Name Comments DBIA/ICR reference
AP1(MSG,LRAP1) ;Entry point to store CPRS AP orders messages
; CALL FROM LR7OF0
AP1LOAD ;Call ZTLOAD with LRCNT value
TASKAP1 ;Entry point for TASK
PURGE ;Purge old entries - keep the last 300 entries in the file
GETSPEC(ORIFN,RET) ;Retrieve Spec Description/Specimen/Sample
ZAPLOOK(LRAOE) ; Pointer Lookup into a multiple
DD ;Get the Data Dictionary values
ID(ORIFN) ;This is the entry point to extract CPRS user response for at CPRS AP Window
ORITEM(ORIFN) ;Return the ^LAB(60,IEN orderable item for an CPRS Order
APSP69(LRODT,LRSN,LRSPDATA) ;Load AOE Specimen/Sample into ^LRO(69,DT,1,LRSN,
69 ; Load LRAPDATA(INSTANCE,"NAME") into ^LRO(69,LRODT,1,LRSN
LOOK(LRTST,LRSPEC,RET) ;Find CPRS SCREEN pointer
; CALLED FROM ORMBLDLR
; LROUT(TEST,AP)=CPRS Screen #
  • ICR #7215
    • Status: Active
    • Usage: Controlled Subscription
    LOADIAG(LRODT,LRSN,LRDATA) ;Load CPRS Dialog into ^LRO(69
    DIAG(LRORD,LRSN)
    BH ;
    PO
    OF
    PD
    ORDATA(ORIFN,LRVAL) ;Get data from CPRS Dialog fields
    FILDIA(LRODT,LRSN,FLD,ARRAY) ;File CPRS AP Dialog into ^LRO(69,LRODT,1,LRSN
    TESTAP1 ;
    ASKORDER ;
    SETUP0 ;

    External References

    Name Field # of Occurrence
    ^%ZTLOAD AP1LOAD+5
    ^DIC ZAPLOOK+3
    UPDATE^DIE 69+16, LOADIAG+12
    WP^DIE LOADIAG+3, LOADIAG+4, LOADIAG+5, LOADIAG+6, FILDIA+4
    $$GET1^DIQ TASKAP1+11, ORITEM+5, ORITEM+8, BH+3, POOFPD, ORDATA+4
    ^DIR ASKORDER+6
    ORDER^LROS ASKORDER+14
    PT^LRX ASKORDER+13
    $$FMADD^XLFDT AP1+20, SETUP0+2
    $$FMTE^XLFDT AP1+16, AP1+17
    $$NOW^XLFDT AP1+16, AP1+17
    ^XUP TESTAP1+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,IENX_" &&&"
    • Line Location: 69+17
    Function Call: WRITE
    • Prompt: !!
    • Line Location: PD+2
    Function Call: WRITE
    • Prompt: !!
    • Line Location: ASKORDER+2
    Function Call: WRITE
    • Prompt: !!,"OUT",!
    • Line Location: ASKORDER+6
    Function Call: WRITE
    • Prompt: !,Y
    • Line Location: ASKORDER+8
    Function Call: WRITE
    • Prompt: !!,"INVALID ORDER NUMBER"
    • Line Location: ASKORDER+11
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: ASKORDER+14
    Routine Call
    • DIC
    • Line Location:
      • ZAPLOOK+3
    Routine Call
    • DIE
    • Line Location:
      • 69+16
      • LOADIAG+12
    Routine Call
    • DIE
    • Line Location:
      • LOADIAG+3
      • LOADIAG+4
      • LOADIAG+5
      • LOADIAG+6
      • FILDIA+4
    Routine Call
    • DIR
    • Line Location:
      • ASKORDER+6

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^OR(100 - [#100] GET1^DIQ
    100.001 GET1^DIQ
    100.045 GET1^DIQ
    ^ORD(101.43 - [#101.43] GET1^DIQ
    69.01 GET1^DIQ,  WP^DIE

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^LAB(60 - [#60] ORITEM+9, LOOK+15, LOOK+17, LOOK+18, LOOK+21
    ^LAB(69.71 - [#69.71] DD+2, DD+3, LOOK+19, LOOK+22
    ^LRO(69 - [#69] ASKORDER+9, ASKORDER+10, ASKORDER+12
    ^OR(100 - [#100] GETSPEC+7, GETSPEC+9, GETSPEC+10, GETSPEC+12, GETSPEC+13, GETSPEC+15, GETSPEC+16, ID+8, ID+10, ID+11
    , ID+12, ID+13, ID+14, ID+15, ID+16, ID+17, ID+18, ID+19, ID+20, ID+21
    , ID+22, ID+23
    ^ORD(101.43 - [#101.43] ORITEM+7
    ^TMP("LRAOE" TASKAP1+3!
    ^TMP("LRAP1" TESTAP1+3!
    ^XTMP("LRAP1" AP1+12, AP1+13*, AP1+14*, AP1+15*, AP1+16*, AP1+17*, AP1+18*, AP1+20*, TASKAP1+8*, TASKAP1+19*
    PURGE+5, PURGE+6, PURGE+7!, PURGE+8!, PURGE+9!, SETUP0+1, SETUP0+2*, SETUP0+3*

    Label References

    Name Line Occurrences
    $$ID TASKAP1+15
    AP1LOAD AP1+19
    APSP69 TASKAP1+14
    ASKORDER ASKORDER+11
    GETSPEC TASKAP1+13
    LOADIAG TASKAP1+17
    SETUP0 AP1+12

    Naked Globals

    Name Field # of Occurrence
    ^( PURGE+6
    ^(0 ASKORDER+12
    ^(1 GETSPEC+10, GETSPEC+13, GETSPEC+16

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ANS ORITEM+2~, ORITEM+5, ORITEM+8, 69+2~, 69+12!, BH+1!, ORDATA+1!, ORDATA+5, FILDIA+1!
    ANSY 69+2~
    ARRAY FILDIA~
    DA ZAPLOOK+1!, ZAPLOOK+2*
    DA(1 ZAPLOOK+2*
    DATA TASKAP1+4~
    DIC ZAPLOOK+1!, ZAPLOOK+2*
    DIC(0 ZAPLOOK+3*
    DIR ASKORDER+1~
    DIR("?" ASKORDER+4*, ASKORDER+5*
    DIR("A" ASKORDER+3*
    DIR(0 ASKORDER+3*
    DIRUT ASKORDER+1~, ASKORDER+6
    DT AP1+20, SETUP0+2
    DUZ TASKAP1+10
    ERR ORITEM+8!, 69+2~, LOADIAG+1!, BH+1!, ORDATA+1!, FILDIA+1!
    ERR1 69+2~, 69+12!, 69+17
    ERR2 69+2~
    FDA TASKAP1+4~, 69+2~, 69+12!, LOADIAG+1!, FILDIA+1!
    FDA( LOADIAG+11*
    FDA(2 69+13*, 69+14*, 69+15*, LOADIAG+7*, LOADIAG+8*, LOADIAG+9*, LOADIAG+10*
    FIL BH+1!, BH+2*, ORDATA+1!, ORDATA+2*, FILDIA+3*, FILDIA+4
    FLD BH+1!, BH+2*, ORDATA+1!, ORDATA+2*, ORDATA+4, FILDIA~, FILDIA+3*, FILDIA+4
    ID TASKAP1+4~, ID+7!, ID+10*, ID+11, ID+12*, ID+13, ID+14*, ID+15, ID+16*, ID+17
    , ID+18*, ID+19, ID+20*, ID+21, ID+22*, ID+23
    IEN TASKAP1+4~, PURGE+4~, PURGE+5*, PURGE+6*, PURGE+7, PURGE+8, PURGE+9, GETSPEC+5~, GETSPEC+9*, GETSPEC+10
    , ID+7!, ORITEM+2~, ORITEM+4*, ORITEM+5, 69+2~, 69+7*, 69+13, 69+14, 69+15, LOOK+13~
    , LOOK+14*, LOOK+18*, LOOK+19, LOOK+21*, LOOK+22, LOADIAG+2*, LOADIAG+3, LOADIAG+4, LOADIAG+5, LOADIAG+6
    , LOADIAG+7, LOADIAG+8, LOADIAG+9, LOADIAG+10, LOADIAG+11, BH+2*, BH+3, POOFPD
    , ORDATA+3*, ORDATA+4, FILDIA+1!, FILDIA+2*, FILDIA+4
    IEN(1 GETSPEC+12*, GETSPEC+13
    IEN(2 GETSPEC+15*, GETSPEC+16
    IENX TASKAP1+4~, DD+2*, DD+3, ID+7!, 69+2~, 69+8*, 69+9, 69+10, 69+11, 69+17
    , LOOK+13~, LOOK+14*, LOOK+17, LOOK+19*, LOOK+21, LOOK+22*, LOOK+24
    IENXX TASKAP1+4~
    INST GETSPEC+5~, GETSPEC+6*, GETSPEC+10*, GETSPEC+11, GETSPEC+13*, GETSPEC+14, GETSPEC+16*, GETSPEC+17
    IOF ASKORDER+14
    LRAOE ZAPLOOK~, ZAPLOOK+2
    LRAP1 AP1~, AP1+15, TASKAP1+9, PURGE+10!, TESTAP1+2*
    LRCNT AP1+11~, AP1+13*, AP1+14, AP1+15, AP1+16, AP1+17, AP1+18, TASKAP1+8, TASKAP1+19, PURGE+6
    PURGE+10!, TESTAP1+2*
    LRCOL TASKAP1+4~, 69+2~
    LRCOLROOT TASKAP1+4~
    LRCOM TASKAP1+4~
    LRDATA LOADIAG~
    LRDFN AP1+14, AP1+17, TASKAP1+4~, TASKAP1+5~, ASKORDER+12*
    LRDUZ TASKAP1+5~, TASKAP1+10*
    LRFIELD TASKAP1+4~
    LRFILE TASKAP1+4~
    LRGLOB TASKAP1+5~
    LRHEAD TASKAP1+5~
    LRID TASKAP1+6~, ID+7!
    LRID( DD+1, DD+3*
    LRJ TASKAP1+6~, TASKAP1+9*, 69+3~, 69+7*
    LRNODE 69+3~
    LRODT TASKAP1+6~, TASKAP1+12*, TASKAP1+14, TASKAP1+17, APSP69~, 69+7, LOADIAG~, LOADIAG+2, FILDIA~, FILDIA+2
    ASKORDER+9*, ASKORDER+10, ASKORDER+12
    LRORD TASKAP1+6~, TASKAP1+12*, DIAG~, BH+2, ASKORDER+8*, ASKORDER+9, ASKORDER+10
    LRQS TASKAP1+6~
    LRREF TASKAP1+6~, TASKAP1+11*, TASKAP1+12
    LRSAMP TASKAP1+6~, 69+11*, 69+15
    LRSCR TASKAP1+6~, TASKAP1+9*, DD+2, DD+3, LOADIAG+9
    LRSN TASKAP1+7~, TASKAP1+12*, TASKAP1+14, TASKAP1+17, APSP69~, 69+7, LOADIAG~, LOADIAG+2, DIAG~, BH+2
    , FILDIA~, FILDIA+2, ASKORDER+10*, ASKORDER+11, ASKORDER+12
    LRSP TASKAP1+7~, 69+2~, 69+10*, 69+14
    LRSPCOM TASKAP1+7~, 69+9*, 69+13
    LRSPCOMROOT TASKAP1+7~
    LRSPDATA TASKAP1+7~, TASKAP1+13, TASKAP1+14, APSP69~
    LRSPDATA( 69+8, 69+9, 69+10, 69+11
    LRSPEC LOOK~, LOOK+21
    LRSPROOT TASKAP1+7~
    LRTST LOOK~, LOOK+15, LOOK+17, LOOK+18, LOOK+21
    LRTXT TASKAP1+7~, DD+1*, DD+2, DD+3
    LRVAL ORDATA~, ORDATA+2*, ORDATA+5*
    LRX GETSPEC+5~, GETSPEC+18
    LRX( GETSPEC+11*, GETSPEC+14*, GETSPEC+17*
    LRXSS TASKAP1+7~, TASKAP1+9*, LOADIAG+8
    MSG AP1~, AP1+18
    NODE 69+2~
    ORIFN AP1+14, AP1+16, TASKAP1+9*, TASKAP1+11, TASKAP1+13, TASKAP1+15, PURGE+10!, GETSPEC~, GETSPEC+7, GETSPEC+9
    , GETSPEC+10, GETSPEC+12, GETSPEC+13, GETSPEC+15, GETSPEC+16, ID~, ID+8, ID+10, ID+11, ID+12
    , ID+13, ID+14, ID+15, ID+16, ID+17, ID+18, ID+19, ID+20, ID+21, ID+22
    , ID+23, ORITEM~, ORITEM+3*, ORITEM+4, ORDATA~, ORDATA+3, TESTAP1+2*
    RET GETSPEC~, GETSPEC+6*, GETSPEC+7*, GETSPEC+18*, ORITEM+2~, ORITEM+4*, ORITEM+6, ORITEM+9*, ORITEM+10, LOOK~
    , LOOK+14!*, LOOK+15*, LOOK+17*, LOOK+23*, BH+2*
    TMP TASKAP1+7~, TASKAP1+17, ID+7!
    TMP("CL" ID+11*!, LOADIAG+3
    TMP("OP" ID+13*!, LOADIAG+5
    TMP("PO" ID+15*!, LOADIAG+6
    TMP("PR" ID+17*!, LOADIAG+4
    TMP("SUB" ID+19*, LOADIAG+7
    TMP("SURG" ID+21*, LOADIAG+10
    TMP("SURGCASE" ID+23*, LOADIAG+11
    U AP1+13, AP1+14, AP1+20, TASKAP1+8, TASKAP1+19, PURGE+5, PURGE+8, GETSPEC+10, GETSPEC+13, GETSPEC+16
    , LOOK+17, LOOK+19, LOOK+22, SETUP0+2
    VAL TASKAP1+7~, TASKAP1+15*, TASKAP1+16, PURGE+4~, PURGE+6*, PURGE+7, PURGE+8, GETSPEC+5~, GETSPEC+6*, GETSPEC+10*
    , GETSPEC+13*, GETSPEC+16*, ORITEM+2~, ORITEM+5*, ORITEM+6, ORITEM+7, ORITEM+8, LOOK+13~, LOOK+14*, LOOK+17
    , LOOK+23, ORDATA+3*, ORDATA+4
    VAL( LOOK+19*, LOOK+22*
    VAL(1 GETSPEC+13*, GETSPEC+14
    VAL(2 ORITEM+8*, ORITEM+9
    VAL1 GETSPEC+5~, GETSPEC+10*, GETSPEC+11, GETSPEC+16*, GETSPEC+17
    WPIEN68 69+2~
    X TASKAP1+7~, GETSPEC+5~, ZAPLOOK+1!, ORITEM+2~, BH+1!, BH+3*, PO*, OF*, PD*, ORDATA+1!
    , ORDATA+4*, FILDIA+1!
    XXY ID+7!
    Y TASKAP1+7~, GETSPEC+5~, ZAPLOOK+1!, ORITEM+2~, BH+1!, ORDATA+1!, FILDIA+1!, ASKORDER+7, ASKORDER+8
    ZTDESC AP1LOAD+1~, AP1LOAD+3*
    ZTDTH AP1LOAD+1~, AP1LOAD+3*
    ZTIO AP1LOAD+1~, AP1LOAD+3*
    >> ZTQUEUED PURGE+11
    >> ZTREQ PURGE+11*
    ZTRTN AP1LOAD+1~, AP1LOAD+4*
    ZTSAVE AP1LOAD+1~
    ZTSAVE("DUZ*" AP1LOAD+2*
    ZTSAVE("LRAP1" AP1LOAD+2*
    ZTSAVE("LRCNT" AP1LOAD+3*
    ZTSAVE("ORIFN" AP1LOAD+2*
    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