Routine: IBTRE5

Information

IBTRE5 ;ALB/AAS - CLAIMS TRACKING EDIT PROVIDER ; 1-SEP-93

Source file <IBTRE5.m>

Name	Comments	DBIA/ICR reference
EN(IBTRN)	; -- entry point for protocols ; must do own rebuild actions ; -- Input - pointer to 356
ENQ	;
APRVD(IBTRN,IBETYP)	; -- add admitting provider
APRVDQ
PRVD(IBTRN,IBETYP)	; -- add/edit provider
PRVDQ
ADD(IBTRN,TYPE)	; -- Add a new provider
NXT
ADDQ
NEW(VA200,IBTRN,TYPE)	; -- file new entry
NEWQ
EDT(IBAPR,IBDR)	; -- edit entry
EDTQ
SET(IBTRN)	; -- set array
SETQ
LIST(IBXY)	;List Provider Array ; Input -- IBXY Provider Array Subscripted by a Number ; Output -- List Provider Array
DICS(Y)	; -- called by input transform and screen logic for type of provider
DICSQ
DTCHK(DA,X)	; -- input transform for 356.94;.01. date not before admission or after discharge
DTCHKQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Clinical Information comes from the parent package." Line Location: EN+10
Function Call: WRITE	Prompt: !!,"Can not add provider to outpatient visits prior to Check-out.",! Line Location: EN+15
Function Call: WRITE	Prompt: !!,"You can only enter and admitting provider for an admission",! Line Location: APRVD+5
Function Call: WRITE	Prompt: ! Line Location: APRVD+10
Function Call: WRITE	Prompt: ! Line Location: APRVD+13
Function Call: WRITE	Prompt: !!,"You can only enter a provider for an admission",! Line Location: PRVD+4
Function Call: WRITE	Prompt: !!,"--- ",IOINHI,"Provider",IOINORM," --- " Line Location: PRVD+7
Function Call: WRITE	Prompt: ! Line Location: LIST+4

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^IBT(356.94 - [#356.94]	Classic Fileman Calls