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

Package Total Caller Graph
Lab Service 1 LR7OF0  

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 #
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, PO, OF, PD, 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, PO, OF, PD
, 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