Routine: GMRCIAIT

Information

GMRCIAIT ;SLC/JFR - PRINT ALL INC. IFC TRANSACTIONS; 12/18/02 09:11

Name	Comments	DBIA/ICR reference
EN	; get the device to use
RPT	; sort logic
PRTLOG(LOG,CSLT,ACTVT)	;print the formatted entry
NOREC	; print the no records found message
HDR(PAGE)	; print the page hdr and increment page number

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Queued to Print, Task # ",ZTSK Line Location: EN+9
Function Call: WRITE	Prompt: !,"Sorry, Try again Later" Line Location: EN+10
Function Call: WRITE	Prompt: !!,?11,"CONSULT/REQUEST #: ",GMRCDA Line Location: RPT+14
Function Call: WRITE	Prompt: !!,?2,"Date/Time last transmitted: ",GMRCDT Line Location: PRTLOG+20
Function Call: WRITE	Prompt: ?51,"Trans. attempts: ",GMRCTRAN Line Location: PRTLOG+21
Function Call: WRITE	Prompt: !,?2,"Facility: ",GMRCFAC,?51,"Message: ",GMRCMSG Line Location: PRTLOG+22
Function Call: WRITE	Prompt: !,?2,"Consult #: ",CSLT,?51,"Activity: ",ACTVT Line Location: PRTLOG+23
Function Call: WRITE	Prompt: !,?2,"Patient name: ",GMRCPT,?51,"SSN: ",GMRCSSN Line Location: PRTLOG+24
Function Call: WRITE	Prompt: !,?2,"Ordered Service: ",$E(GMRCSER,1,31),?51,"Req. date: ",GMRCDTR Line Location: PRTLOG+25
Function Call: WRITE	Prompt: !,?2,"Error: ",GMRCERR Line Location: PRTLOG+26
Function Call: WRITE	Prompt: !,?5,"No incomplete IFC Transactions to report",! Line Location: NOREC+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: "Incomplete IFC Transaction Report" Line Location: HDR+3
Function Call: WRITE	Prompt: ?44,$$FMTE^XLFDT($$NOW^XLFDT),?69,"Page: ",PAGE Line Location: HDR+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",78) Line Location: HDR+5