Routine: RTSYS

Information

RTSYS ;TROY ISC/MJK-Record Tracking System Definition Menu ; 5/19/87 11:34 AM ; 4/10/03 3:27pm

Source file <RTSYS.m>

Name	Comments	DBIA/ICR reference
A
1	;;Type of Record Set-up
Q
2	;;File Room Set-up
L2
Q2
3	;;Application Set-up
4	;;Reasons File Set-up
L4
Q4
5	;;Label Function Menu
6	;;Individual Borrower Set-up
L6
Q6
BOR
7	;;[FOR FUTURE USE]
TFR
8	;;Print Borrower Label
Q8
9	;;Add/Edit 'PERSON' Borrower
Q9
OTHER	;
10	;;Movement Type Set-up
DICS1	; DICS1^RTDPA31 is called by multiple routines ; copied from RTDPA31 isolate changes needed for patch RT237
DICSQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A+1
Function Call: WRITE	Prompt: ! Line Location: 1+1
Function Call: WRITE	Prompt: ! Line Location: 3+1
Function Call: WRITE	Prompt: ! Line Location: L4+0
Function Call: WRITE	Prompt: ! Line Location: L6+0
Function Call: WRITE	Prompt: !?3,*7,"No valid borrower label format assigned for application." Line Location: 8+1
Function Call: WRITE	Prompt: !?5,"- ",$S($D(^DIC(195.1,A,0)):$P(^(0),"^"),1:"UNKNOWN") Line Location: OTHER+1
Function Call: WRITE	Prompt: !!,"Be careful when changing the 'NAME' of this 'PERSON' borrower." Line Location: OTHER+2
Function Call: WRITE	Prompt: ! Line Location: 10+1