GMRCYP15 ;SLC/JFR-- CONVERT PROCEDURES FROM 101 TO 123.3; 3/08/01 22:00
Source file <GMRCYP15.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SERVS(PROC,PROT) | ;get related servisces from 123.5 and move to 123.3
|
|
CVT4(PCL) | ;convert field 4 from 101 to 123.3
; PCL = pointer to file 101 |
|
EN | ;called from post-install of GMRC*3*15
|
|
NWMAL | ;make post-install message new
|
|
CVTPRO(PROT) | ;move protocol entry to 123.3
|
|
CVTOIS | ;loop through ORD ITEMS in S.PROC x-ref
|
|
CHK123 | ;loop 123 and check field 4 to make sure it's converted
|
|
CNVT(IEN) | ;move it from 101.43 to 123.3
|
|
SYN(OITM,PROC) | ;get any synonyms from 101.43 and update 123.3
|
|
CVT123 | ; loop through file 123 and convert field #4 and #13
|
|
CK10143 | ;loop thru S.PROC x-ref in 101.43 and check for complete conv
|
|
; check conversion and send mail to installer
|
||
OKTOGO(NAME,NUM) | ;OK to move from 101.43 to 123.3?
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | MAIL+18 |
^DIC | CNVT+5, SYN+7, SERVS+6, CVTPRO+6 |
$$FIND1^DIC | CVT123+5, CVT123+6 |
^DIE | CNVT+9, CVTPRO+9 |
$$ID^ORDD43 | CVTOIS+13 |
$$FMADD^XLFDT | CVTOIS+4, MAIL+16 |
$$NOW^XLFDT | CVTOIS+4, CVTOIS+5, MAIL+16 |
$$UP^XLFSTR | CNVT+4, CVTPRO+5 |
MAKENEW^XMXUTIL | NWMAL+3 |
$$GET^XPAR | EN+2 |
EN^XPAR | EN+6, EN+8, CVTOIS+2, CVT123+2 |
UPDATE^XPDID | CVT123+8, CHK123+6 |
BMES^XPDUTL | EN+3, CVTOIS+3, CVT123+3, MAIL+12, CK10143+2 |
FileNo | Call Tags |
---|---|
^ORD(101 - [#101] | FIND1^DIC |
^GMR(123.3 - [#123.3] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD(123.3 | SYN+5, SERVS+5 |
^GMR(123 - [#123] | CVT123+4, CVT123+7, CVT123+9, CVT123+10, CVT123+14, CVT123+16*, CVT123+17*, CHK123+5, CHK123+9 |
^GMR(123.3 - [#123.3] | CVT4+3 |
^GMR(123.5 - [#123.5] | SERVS+3, SERVS+4 |
^ORD(101 - [#101] | CVTPRO+2, CVTPRO+3, CVTPRO+4 |
^ORD(101.43 - [#101.43] | CVTOIS+7, CVTOIS+9, CVTOIS+12, OKTOGO+2, OKTOGO+3, OKTOGO+4, CNVT+3, CNVT+8, SYN+3, SYN+6 , CK10143+4, CK10143+5, CK10143+6, CK10143+7 |
^TMP("GMRCP15" | MAIL+3, MAIL+4*, MAIL+5*, MAIL+8, MAIL+19!, CHK123+3, CHK123+4*, CHK123+11, CHK123+12*, CK10143+8 , CK10143+9* |
^XTMP("GMRCCVPR" | CVTOIS+4*, CVTOIS+5*, CVTOIS+6*, CVTOIS+14*, OKTOGO+1, CVT123+15* |
Name | Line Occurrences |
---|---|
$$CNVT | CVTOIS+11 |
$$CVT4 | CVT123+14 |
$$CVTPRO | CVT4+4 |
$$OKTOGO | CVTOIS+10 |
CHK123 | MAIL+2 |
CK10143 | MAIL+1 |
CVT123 | EN+7 |
CVTOIS | EN+5 |
EN+9 | |
SERVS | CNVT+11 |
SYN | CNVT+10 |
Name | Field # of Occurrence |
---|---|
^( | SYN+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | CNVT+1~, CNVT+6*, SYN+1~, SERVS+1~, CVTPRO+1~, CVTPRO+8* |
DA(1 | SYN+4*, SERVS+4* |
DIC | CNVT+1~, CNVT+2*, CNVT+6, SYN+1~, SYN+4*, SERVS+1~, SERVS+4*, CVTPRO+1~, CVTPRO+5*, CVTPRO+9 |
DIC("P" | SYN+5*, SERVS+5* |
DIC(0 | CNVT+2*, SYN+5*, SERVS+5*, CVTPRO+5* |
DIE | CNVT+1~, CNVT+6*, CVTPRO+1~, CVTPRO+9* |
DLAYGO | CNVT+1~, CNVT+2*, CVTPRO+1~ |
DR | CNVT+1~, CNVT+7*, CNVT+8*, CNVT+9, SYN+1~, SERVS+1~, CVTPRO+1~, CVTPRO+9* |
DTOUT | CNVT+1~, SYN+1~, SERVS+1~ |
DUOUT | CNVT+1~ |
DUZ | MAIL+9, MAIL+14, NWMAL+3 |
GMR0 | CVT123+1~, CVT123+10*, CVT123+11, CVT123+12, CVT123+15 |
GMRCCSLT | CVT123+1~, CVT123+5* |
GMRCDUZ | MAIL+13~, MAIL+14*, NWMAL+2 |
GMRCID | CVTOIS+1~, CVTOIS+13*, CVTOIS+14 |
GMRCIEN | CHK123+1~, CHK123+2*, CHK123+5*, CHK123+6, CHK123+7, CHK123+8, CHK123+9, CHK123+12 |
GMRCMSG | MAIL+6~, MAIL+11, MAIL+12, NWMAL+2, NWMAL+3 |
GMRCPRC | CVT123+1~, CVT123+6* |
GMRCPROC | CNVT+1~, CNVT+6*, CNVT+10, CNVT+11, CNVT+12 |
GMRCPROG | EN+1~, EN+2*, EN+3, EN+4 |
GMRCSB | MAIL+6~, MAIL+7* |
GMRCTO | MAIL+6~ |
GMRCTO( | MAIL+9* |
GMRCTXT | MAIL+6~, MAIL+8* |
IEN | CNVT~, CNVT+3, CNVT+8, CNVT+10, CVT123+1~, CVT123+7*, CVT123+8, CVT123+9, CVT123+10, CVT123+14 , CVT123+15, CVT123+16, CVT123+17 |
ITMNM | CVTOIS+1~, CVTOIS+4*, CVTOIS+7*, CVTOIS+9, CVTOIS+10 |
NAME | OKTOGO~, OKTOGO+2, CVTPRO+1~, CVTPRO+3*, CVTPRO+5 |
NEW | CNVT+1~, CNVT+6*, CNVT+7 |
NEXT | CHK123+1~, CHK123+11*, CHK123+12, CK10143+1~, CK10143+8*, CK10143+9 |
NUM | OKTOGO~, OKTOGO+1, OKTOGO+2, OKTOGO+3, OKTOGO+4 |
NWPROC | CVT123+13~, CVT123+14*, CVT123+15, CVT123+16 |
OINAME | CK10143+1~, CK10143+3*, CK10143+4*, CK10143+5, CK10143+6 |
OINUM | CK10143+1~, CK10143+5*, CK10143+6, CK10143+7, CK10143+9 |
OITM | SYN~, SYN+3, SYN+6 |
ORD0 | CNVT+1~, CNVT+3*, CNVT+4, CNVT+7, CNVT+11 |
ORDITM | CVTOIS+1~, CVTOIS+8*, CVTOIS+9*, CVTOIS+10, CVTOIS+11, CVTOIS+12, CVTOIS+14 |
PCL | CVT4~, CVT4+3, CVT4+4 |
PROC | CVTOIS+1~, CVTOIS+11*, CVTOIS+13, CVTOIS+14, SYN~, SYN+4, SERVS~, SERVS+4, CVTPRO+1~, CVTPRO+8* , CVTPRO+10, CVT123+1~, CVT4+2~, CVT4+3*, CVT4+4*, CVT4+5, CHK123+1~, CHK123+9*, CHK123+10, CHK123+12 |
PROT | SERVS~, SERVS+3, CVTPRO~, CVTPRO+2, CVTPRO+3, CVTPRO+4 |
PROTID | CVTOIS+1~, CVTOIS+12*, CVTOIS+13, CVTOIS+14 |
SERV | SERVS+1~, SERVS+2*, SERVS+3*, SERVS+4 |
SYN | SYN+1~, SYN+2*, SYN+3*, SYN+6 |
U | CVTOIS+5, CVTOIS+6, CVTOIS+12, CVTOIS+14, OKTOGO+2, OKTOGO+3, OKTOGO+4, CNVT+4, CNVT+6, CNVT+7 , CNVT+11, SYN+5, SYN+6, SERVS+4, SERVS+5, CVTPRO+3, CVTPRO+7, CVT123+4, CVT123+11, CVT123+12 , CVT123+14, CVT123+15, CVT123+16, CVT123+17, CHK123+9, CK10143+7 |
X | CNVT+1~, CNVT+4*, SYN+1~, SYN+6*, SERVS+1~, SERVS+4*, CVTPRO+1~, CVTPRO+5* |
XPDIDTOT | EN+1~, CVT123+4*!, CVT123+8, CHK123+6 |
>> XPDNM | CHK123+7, CHK123+8 |
Y | CNVT+1~, CNVT+5, CNVT+6, SYN+1~, SERVS+1~, CVTPRO+1~, CVTPRO+6, CVTPRO+7, CVTPRO+8 |
ZTDESC | MAIL+13~, MAIL+17* |
ZTDTH | MAIL+13~, MAIL+16* |
ZTIO | MAIL+13~, MAIL+17* |
>> ZTREQ | NWMAL+1* |
ZTRTN | MAIL+13~, MAIL+16* |
ZTSAVE | MAIL+13~ |
ZTSAVE("GMRCDUZ" | MAIL+15* |
ZTSAVE("GMRCMSG" | MAIL+15* |
ZTSK | MAIL+13~ |