Routine: LR7OAPKM

Information

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

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	;

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