SCMCCV3 ;bp/cmf - 195 Test/177 File - 404.57 preceptors to 404.53 ; Sep 1999
Source file <SCMCCV3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENXPD | ||
| ENPRE | ||
| EN(SCF) | ;input = 1: Postinit(file)
; = 0: PrePatch(validate) |
|
| LOOP | ||
| SCF() | ||
| ACTTP(SCTP) | ||
| GETPRTP(SCTP) | ||
| LINK() | ||
| AS(SC1,SC2,SC3) | ; test for existing entry on filing
; input SC1 := tm pos ien ; SC2 := tm pos name ; SC3 := line reference |
|
| SCY(SC1,SC2,SC3) | ;build msg array
; input SC1=line reference or text string ; SC2=name string ; SC3=line reference or text string |
|
| BLDI(SCX) | ; input = text string
|
|
| BLD(SCX) | ; input = text string
|
|
| SCII | ||
| W(SCX) | ;input = 1:177 KIDS post-init, 0:177 pre-patch
|
|
| DTU() | ||
| ENMAIN(SCX) | ;
; input = 21: sd*5.3*177 preceptor filer post init ; = 23: sd*5.3*195 preceptor tester option |
|
| Q(SCX) | ; run job in background
; input = line reference ; output = task #, report via mailman |
|
| S(SCX) | ;input = line reference
|
|
| T | ;;
|
|
| 1 | ;;Move current preceptor assignments to Preceptor History file;;
|
|
| 5 | ;;--> Team: ;;
|
|
| 10 | ;;: Preceptor must be PC if position is PC.;;
|
|
| 15 | ;;: must have Staff Assigned.;;
|
|
| 20 | ;;: No Preceptor Assignments.;;
|
|
| 25 | ;; Link Already Seeded, filer stopped.;;
|
| FileNo | Call Tags |
|---|---|
| ^SD(403.44 - [#403.44] | FIND1^DIC |
