Routine: LR52P508

Entry Points

Name	Comments	DBIA/ICR reference
ERR	; keep a history of any error that happened during the installation
POST	; save the DESCRPTION field in EXECUTE CODE file (#62.07) before changes ; lrdsc displays exec code descriptions for bacteriology, tb bacteriology, and mycology ; lrien values are national standard IENs for the 3 exec codes above
POST1	; edit field #1 for the Bacteriology record (#7)
UPDATE	; common code for update of field #1, Execute Code File

Name	Field # of Occurrence
$$FIND1^DIC	POST1+6, POST1+7
^DIE	POST1+15, POST1+29
FILE^DIE	UPDATE+2
WP^DIE	POST+21, POST+33, POST+46, POST+58
$$GET1^DIQ	POST+12, POST+34, POST+47, POST+59, POST1+10, POST1+20, POST1+25, POST1+34
^XMD	ERR+13
BMES^XPDUTL	ERR+1, POST+3, POST+4, POST+13, POST+15, POST+19, POST+20, POST+22, POST+24, POST+35 , POST+48, POST+60, POST+63, POST1+2, POST1+8, POST1+11, POST1+12, POST1+19, POST1+21, POST1+22 , POST1+26, POST1+27, POST1+33, POST1+35, POST1+36, UPDATE+3
MES^XPDUTL	ERR+2, POST+5, POST+6, POST+7, POST+14, POST+36, POST+37, POST+49, POST+50, POST+61 , POST+62

FileNo	Call Tags
^LAB(62.07 - [#62.07]	Classic Fileman Calls, FIND1^DIC, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^LAB(62.07 - [#62.07]	POST+19, POST1+8, POST1+37

Name	Field # of Occurrence
DA	POST1+3~, POST1+8, POST1+15, POST1+17, POST1+29, POST1+31, POST1+37, UPDATE+1, UPDATE+3
DIE	POST1+3~, POST1+15, POST1+29
DIFROM	ERR+5~
DR	POST1+3~, POST1+15, POST1+29
DUZ	ERR+8, POST+3
LRCODE1	POST1+3~, POST1+5*, POST1+6
LRCODE2	POST1+3~
LRCODE3	POST1+3~, POST1+5*, POST1+7
>> LRCOMM	POST+32*, POST+33, POST+46, POST+58
LRDSC	POST+9, POST+12, POST+34, POST+47, POST+59*, POST+64!
LRERR	ERR+2, ERR+4, POST1+3~, UPDATE+3
LRFDA	POST1+3~
LRFDA(	UPDATE+1*
LRFILE	POST+8~, POST+10*, POST+12, POST+21, POST+33, POST+34, POST+46, POST+47, POST+58, POST+59
LRFLD	POST+8~, POST+10*, POST+12, POST+21, POST+34, POST+47, POST+59
LRIEN	POST+8~, POST+11, POST+12, POST+13, POST+19, POST+21, POST+33, POST+34, POST+46, POST+47 , POST+58, POST+59
>> LRIEN1	POST1+6*, POST1+8, POST1+10, POST1+15, POST1+17, POST1+20, POST1+37
>> LRIEN3	POST1+7*, POST1+8, POST1+25, POST1+29, POST1+31, POST1+34, POST1+37
LRMICROEC	POST1+3~, POST1+10, POST1+12, POST1+25, POST1+27
LRNEC	POST1+3~, POST1+20, POST1+21, POST1+34, POST1+35
LRNECODE	POST1+3~, POST1+13, POST1+28, UPDATE+1
LRROOT	POST+8~, POST+10*, POST+21
LRTEXT	ERR+5~
LRTEXT(1	ERR+9*
LRTEXT(2	ERR+10*
LRTEXT(3	ERR+11*
LRTXT	POST+27!, POST+41!, POST+54!, POST+64!
LRTXT(1	POST+28, POST+42, POST+55*
LRTXT(2	POST+29, POST+43, POST+56*
LRTXT(3	POST+30, POST+44, POST+57*
LRTXT(4	POST+31, POST+45
WP	POST+14!, POST+27!, POST+37, POST+41!, POST+50, POST+54!, POST+62, POST+64!
XMDUZ	ERR+5~, ERR+7*, ERR+8
XMSUB	ERR+5~, ERR+6*
XMTEXT	ERR+5~, ERR+12*
XMY	ERR+5~
XMY(	ERR+8*