Routine: PSO744PI

Package	Total	Call Graph
Kernel	3	^%ZTLOAD $$FMADD^XLFDT (BMES,MES)^XPDUTL
MailMan	1	SENDMSG^XMXAPI
VA FileMan	1	$$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
POST	; Main entry point
START	; Start the correction process
ACTLOG	; Fix records in the File #52 [PRESCRIPTION] ; INC28706897 - ATP+4^PSO52API error for RXs missing the Activity Log Header node. ; Search File #52 [PRESCRIPTION] to find RXs missing the Activity Log Header node and correct.
SETTXT(TXT)	; Setting Plain Text
MAIL	; Sends Mailman message
END	; Exit point
MAILMSG(MSGSUBJ,MSGFROM,MSGTEXT)	; Build and send a MailMan message

Name	Field # of Occurrence
^%ZTLOAD	POST+14
$$GET1^DIQ	ACTLOG+20
$$FMADD^XLFDT	START+3
SENDMSG^XMXAPI	MAILMSG+7
BMES^XPDUTL	POST+1, POST+2, POST+16, POST+17, POST+20, ACTLOG+27, ACTLOG+28
MES^XPDUTL	POST+3, POST+4, POST+5, POST+6, POST+18, POST+19

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PSRX - [#52]	ACTLOG+15, ACTLOG+16, ACTLOG+18, ACTLOG+19*
^TMP("PSO744PI"	ACTLOG+4!, END+1!
^XTMP("PSO7.0744 POST INSTALL"	START+3*
^XTMP("PSO744PI"	ACTLOG+4!, SETTXT+1*, END+1!
^XUSEC("PSNMGR"	MAILMSG+5

Name	Line Occurrences
ACTLOG	START+4
MAIL	START+4
MAILMSG	MAIL+4
SETTXT	ACTLOG+6, ACTLOG+7, ACTLOG+8, ACTLOG+9, ACTLOG+10, ACTLOG+11, ACTLOG+12, ACTLOG+21, ACTLOG+23, ACTLOG+24 , ACTLOG+25

Name	Field # of Occurrence
COUNT	ACTLOG+3~, ACTLOG+18*, ACTLOG+19, ACTLOG+20
DT	START+3
DUZ	POST+12, MAILMSG+2
FOUND	ACTLOG+3~, ACTLOG+14, ACTLOG+17, ACTLOG+24, ACTLOG+25
MSGFROM	MAILMSG~, MAILMSG+3
MSGSUBJ	MAILMSG~, MAILMSG+7
MSGTEXT	MAILMSG~, MAILMSG+7
PSODUZ	POST+8~, POST+12, MAILMSG+2, MAILMSG+6, MAILMSG+7
PSOFROM	START+1~, MAIL+2*, MAIL+4
PSOLINE	ACTLOG+3~, ACTLOG+4, SETTXT+1
PSOMIN	MAILMSG+1~, MAILMSG+7
PSOMIN("FROM"	MAILMSG+3*
PSOMY	MAILMSG+1~, MAILMSG+7
PSOMY(	MAILMSG+5, MAILMSG+6
PSOMZ	MAILMSG+1~, MAILMSG+7
PSOREC	MAILMSG+1~, MAILMSG+4, MAILMSG+5
PSOSUB	START+1~, MAIL+1*, MAIL+4
PSOTEXT	START+1~, MAIL+3*, MAIL+4
RXIEN	ACTLOG+3~, ACTLOG+14, ACTLOG+15, ACTLOG+16, ACTLOG+18, ACTLOG+19, ACTLOG+20
TXT	SETTXT~, SETTXT+1
X1	ACTLOG+3~, ACTLOG+20*, ACTLOG+21
ZTDESC	POST+8~, POST+10*
ZTDTH	POST+8~, POST+11*
ZTIO	POST+8~, POST+11*
ZTQUEUED	POST+8~, START+5
ZTREQ	POST+8~, START+5*
ZTRTN	POST+8~, POST+9*
ZTSAVE	POST+8~
ZTSAVE("PSODUZ"	POST+13*
ZTSK	POST+8~, POST+18