SCAPMCA1 ;BP-CIOFO/KEITH - Get all assignment info. (cont.) ; 30 Jul 99 3:29 PM
Source file <SCAPMCA1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GETDAT | ;Get assignment data
|
|
GETTM | ;Get team information
|
|
GETPOS | ;Get position information
|
|
GAP(SCTAC,SCTINAC,SCADT,SCIDT) | ;Determine if a gap exists in pc assignments
|
|
G1(SCADT,SCIDT) | ;Loop through position assignments
|
|
PPOS(SCSTR,SCPPOS) | ;Get preceptor position information
|
|
DTRADJ(ADT,IDT,SCDT,SCDT2) | ;Adjust dates for provider information
|
|
SETF(SCPC,SUB,DATA) | ;Set "flat" array node
|