Routine: LR7OAPMG

Information

LR7OAPMG ;DSS/FHS - INBOUND CPRS MESSAGE HANDLER ;09/16/16 09:46

Name	Comments	DBIA/ICR reference
AP1(MSG,LRAP1)	;Entry point to process CPRS AP orders
AP1LOAD	;Call ZTLOAD with LRCNT value
TASKAP1	;Entry point for TASK
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 ; 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	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,IENX_" &&&" Line Location: 69+15
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