Routine: LR7OAPKM

Information

LR7OAPKM ;DSS/FHS - INBOUND CPRS MESSAGE HANDLER ;May 13, 2022@10:40:38

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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+12, 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+22, SETUP0+2
$$FMTE^XLFDT	AP1+18, AP1+19
$$NOW^XLFDT	AP1+18, AP1+19
^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

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]	TASKAP1+10, 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+19, AP1+20, AP1+22* , TASKAP1+8, TASKAP1+20, PURGE+5, PURGE+6, PURGE+7!, PURGE+8!, PURGE+9!, SETUP0+1, SETUP0+2, SETUP0+3

Label References

Name	Line Occurrences
$$ID	TASKAP1+16
AP1LOAD	AP1+21
APSP69	TASKAP1+15
ASKORDER	ASKORDER+11
GETSPEC	TASKAP1+14
LOADIAG	TASKAP1+18
SETUP0	AP1+13

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*
>> DILOCKTM	AP1+12
DIR	ASKORDER+1~
DIR("?"	ASKORDER+4, ASKORDER+5
DIR("A"	ASKORDER+3*
DIR(0	ASKORDER+3*
DIRUT	ASKORDER+1~, ASKORDER+6
DT	AP1+22, SETUP0+2
DUZ	TASKAP1+11
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(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, 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+17, TASKAP1+9, PURGE+10!, TESTAP1+2*
LRCNT	AP1+11~, AP1+14, AP1+16, AP1+17, AP1+18, AP1+19, AP1+20, TASKAP1+8, TASKAP1+20, PURGE+6 , PURGE+10!, TESTAP1+2
LRCOL	TASKAP1+4~, 69+2~
LRCOLROOT	TASKAP1+4~
LRCOM	TASKAP1+4~
LRDATA	LOADIAG~
LRDFN	AP1+16, AP1+19, TASKAP1+4~, TASKAP1+5~, ASKORDER+12*
LRDUZ	TASKAP1+5~, TASKAP1+11*
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+13, TASKAP1+15, TASKAP1+18, APSP69~, 69+7, LOADIAG~, LOADIAG+2, FILDIA~, FILDIA+2 , ASKORDER+9, ASKORDER+10, ASKORDER+12
LRORD	TASKAP1+6~, TASKAP1+13, DIAG~, BH+2, ASKORDER+8, ASKORDER+9, ASKORDER+10
LRQS	TASKAP1+6~
LRREF	TASKAP1+6~, TASKAP1+12*, TASKAP1+13
LRSAMP	TASKAP1+6~, 69+11*, 69+15
LRSCR	TASKAP1+6~, TASKAP1+9, TASKAP1+10, DD+2, DD+3, LOADIAG+9
LRSN	TASKAP1+7~, TASKAP1+13, TASKAP1+15, TASKAP1+18, 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+14, TASKAP1+15, 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+20
NODE	69+2~
ORIFN	AP1+16, AP1+18, TASKAP1+9, TASKAP1+12, TASKAP1+14, TASKAP1+16, 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+18, 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*
U	AP1+14, AP1+16, AP1+22, TASKAP1+8, TASKAP1+20, PURGE+5, PURGE+8, GETSPEC+10, GETSPEC+13, GETSPEC+16 , LOOK+17, LOOK+19, LOOK+22, SETUP0+2
VAL	TASKAP1+7~, TASKAP1+16, TASKAP1+17, 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*

Customize PDF page

Package: Lab Service