Routine: IBOMTLTC

Name	Comments	DBIA/ICR reference
QUERY	; main entry point for user to request a query of mt and ltc copay info
DQ	; tasked entry point
PAUSE(IBNEW)	; ; IBNEW = optional variable, it is a flag for new site
RETURN(IBR,IBICN,DFN,IBBDT,IBEDT)	; ; this is called from the main query for local data and from the remote ; procedure IBO MT LTC COPAY QUERY for remote data. The return is ; in a global array. ; if DFN then that will be used to identify the patient ; if no DFN, then the ICN (ibicn) needs to be there to identify patient
SPACE(IBTEXT)	; spaces out return info (sub-header info)

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There is no ICN for this patient." Line Location: QUERY+9
Function Call: WRITE	Prompt: !!,"Performing query locally only" Line Location: QUERY+13
Function Call: WRITE	Prompt: "." Condition for execution: $D(IBTFL)>9 Line Location: QUERY+13
Function Call: WRITE	Prompt: ", the patient has no remote facilities." Line Location: QUERY+13
Function Call: WRITE	Prompt: !,^(IBX) Line Location: DQ+40
Function Call: WRITE	Prompt: @IOF,!,"MT and LTC Copay Information ",$$FMTE^XLFDT(IBBDT)," to ",$$FMTE^XLFDT(IBEDT),?IOM-15,"Page: ",IBP Line Location: PAUSE+8
Function Call: WRITE	Prompt: !,"Patient: ",VADM(1)," (",$P(VADM(2),"-",3),") For Site: ",$P(IBS(0),"^")," (",$P(IBS(0),"^",2),")",! Line Location: PAUSE+9
Function Call: WRITE	Prompt: "-" Line Location: PAUSE+10

Information