Routine: LRCAPES

Information

LRCAPES ;DALOI/FHS/KLL -MANUAL PCE CPT WORKLOAD CAPTURE ;11/18/11 15:21

Source file <LRCAPES.m>

Name	Comments	DBIA/ICR reference
EN	;
EX1	;Parse the read entry
END1	;
END	;
WLN	;Interactive entry point
LCK	;
PRO	;Get provider,patient/location information
LOC	;Reporting Location
ASKLOC	;Check to see if outpatient location
ES()	;Entry point for front end application.
ASK	; Option entry point - Check and setup PCE reporting variables
PKG	;Check to see if Lab Package is installed
PCE	;Check to see if PCE is turned on
OOS	;Check to see if the LRDLOC is an OOS location
LOOP	;
CPTEN	;Entry point from CPT API call
WKL
LOAD	;Setup ^TMP("LRPXAPI" to load CPT workload
SENDWKL	; Store LMIP workload
ADDPREV	;Add CPT quantities from PCE to current totals
CLEAN	;Final Cleanup
CPT(LRAA,LRAD,LRAN,LRPRO)	;AP Release entry point

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"END ",! Line Location: END+3
Function Call: WRITE	Prompt: !?5,"This accession is corrupt",! Line Location: WLN+14
Function Call: WRITE	Prompt: !?5,"Someone else is editing this accession",! Line Location: LCK+2
Function Call: WRITE	Prompt: !?5,"This accession does not have a Collection Date/Time",! Line Location: LCK+11
Function Call: WRITE	Prompt: !?10,"CAN NOT PROCEED",! Line Location: LCK+12
Function Call: WRITE	Prompt: !?5,"No Active Provider Selected",! Line Location: PRO+13
Function Call: WRITE	Prompt: !?5,"The accession is corrupt - missing zero node",! Line Location: PRO+16
Function Call: WRITE	Prompt: !?5,"LAB SERVICE PACKAGE is not loaded",! Line Location: PKG+2
Function Call: WRITE	Prompt: !?5,"PCE Is not installed",! Line Location: PCE+2
Function Call: WRITE	Prompt: !?5,"PCE is not turned on",! Line Location: PCE+5
Function Call: WRITE	Prompt: !?5,"DEFAULT LAB OOS LOCATION is not defined correctly",! Line Location: OOS+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("PCE Wkld Abort "_$P(LRNOP,U,2),IOM) Line Location: LOAD+9