Routine: IBCIUT1

Information

IBCIUT1 ;DSI/SLM - MISC UTILITIES FOR CLAIMSMANAGER INTERFACE ;21-DEC-2000

Source file <IBCIUT1.m>

Name	Comments	DBIA/ICR reference
NOW	;get current (or specific) date/time and convert to ClaimsManager format
NOW1(X)	;change date from mmddyyyy to yyyymmdd
NAMSP	;split name into three pieces LAST^FIRST^MIDDLE
CM(IBIFN)	; ; ClaimsManager environment check for IB routines. Checks to make ; sure CM is running and that the bill is a HCFA 1500 form type bill. ; Any other condition will return false.
CK0()	;checks to see if running ClaimsManager
CK1(IBIFN)	;checks to see if it's a HCFA 1500 claim form
CK2()	;checks to see if ClaimsManager is working ok
ST(IBCIST)	;set status field to ibcist
STAT(IBIFN)	;return value of status field in 351.9
LITMS(IBIFN)	; Returns the number of line items
LSTA(IBCISNT)	; return the correct Ingenix line status based on the value ; of IBCISNT - where is the interface called from?
RPHY(IBIFN)	; Attending/rendering physician information
RPHYX	;
CKNER()	;check for no errors
CKLI(IBIFN)	;check for line items
CKFT(IBIFN)	; Check for a form type change by the user
CKFTX	;
DIAG(IBIFN)	;return array of diagnosis codes for each line item
EDATP(IBIFN,COMMCHG)	;edit assigned to person (ATP)
EDATPX	; ; Display a press return to continue message if coming in from ; the Listman screens

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,?2,"Please enter the person to whom this bill should be assigned.",! Line Location: EDATP+14
Function Call: WRITE	Prompt: !!!?2,"Claim ",$P($G(^DGCR(399,IBIFN,0)),U,1)," has been assigned to " Line Location: EDATP+31
Function Call: WRITE	Prompt: $P($G(^VA(200,IBCIATPN,0)),U,1),"." Line Location: EDATP+32
Function Call: WRITE	Prompt: !!!?2,"If you want to send a MailMan message about this bill assignment" Line Location: EDATP+38
Function Call: WRITE	Prompt: !?2,"to a specific Mail Group, then please choose that Mail Group here.",! Line Location: EDATP+39
Function Call: WRITE	Prompt: !!?2,"A MailMan message has been sent to " Line Location: EDATP+67
Function Call: WRITE	Prompt: CONMSG(X) Line Location: EDATP+69
Function Call: WRITE	Prompt: !?30,"and to " Line Location: EDATP+69
Function Call: WRITE	Prompt: "." Line Location: EDATP+70
Function Call: WRITE	Prompt: !! Line Location: EDATPX+3

FileNo	Call Tags
^XMB(3.8 - [#3.8]	Classic Fileman Calls
^IBA(351.9 - [#351.9]	Classic Fileman Calls