GMRCYP15 ;SLC/JFR-- CONVERT PROCEDURES FROM 101 TO 123.3; 3/08/01 22:00
Source file <GMRCYP15.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;called from post-install of GMRC*3*15
|
|
| CVTOIS | ;loop through ORD ITEMS in S.PROC x-ref
|
|
| OKTOGO(NAME,NUM) | ;OK to move from 101.43 to 123.3?
|
|
| CNVT(IEN) | ;move it from 101.43 to 123.3
|
|
| SYN(OITM,PROC) | ;get any synonyms from 101.43 and update 123.3
|
|
| SERVS(PROC,PROT) | ;get related servisces from 123.5 and move to 123.3
|
|
| CVTPRO(PROT) | ;move protocol entry to 123.3
|
|
| CVT123 | ; loop through file 123 and convert field #4 and #13
|
|
| CVT4(PCL) | ;convert field 4 from 101 to 123.3
; PCL = pointer to file 101 |
|
| ; check conversion and send mail to installer
|
||
| NWMAL | ;make post-install message new
|
|
| CHK123 | ;loop 123 and check field 4 to make sure it's converted
|
|
| CK10143 | ;loop thru S.PROC x-ref in 101.43 and check for complete conv
|
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC |
| ^GMR(123.3 - [#123.3] | Classic Fileman Calls |
