Routine: AGMPPURG

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIK $$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
AC(MPIIEN,MSGID)	;DELETE "AC" XREF FOR IEN
INTERACT	;EP - USER INTERACTIVE PURGE
ADO(SCHEDPUR)	;DELETE "AD" XREF FOR "OUT" IEN
SELKILL	;EP ; 9/08/2017 - GCD - CR 7705 - Disabled this because it can delete data for any HLO application, not just MPI, among other issues.
PURGE
QUEUEO	;DELETE "QUEUE" XREF FOR IEN
QUEUEI	;DELETE "QUEUE" XREF FOR IEN
PRINT	;EP - PRINT COUNTS
ADI	;DELETE "AD" XREF FOR "IN" IEN

External References

Name	Field # of Occurrence
^%DT	PURGE+8
^DIK	PURGE+41, PURGE+42, SELKILL+6
$$GET1^DIQ	PURGE+6, QUEUEO+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"EVENT: ",EVENT,?25,EVENTTOT(EVENT) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"DIRECTION: ",MPIDIREC,?25,DIRECTOT(MPIDIREC) Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"MSG TYPE: ",MSGTYPE,?25,MSGTYPTO(MSGTYPE) Line Location: PRINT+7
Function Call: WRITE	Prompt: !,"ACK CODE: ",ACKCODE,?25,ACKCODET(ACKCODE) Line Location: PRINT+9
Function Call: WRITE	Prompt: !,"GRAND TOT PURGED: ",GRDTOTAL Line Location: PRINT+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^HLA - [#777]	Classic Fileman Calls
^HLB - [#778]	Classic Fileman Calls
^HLCS(870 - [#870]	GET1^DIQ
^AGFAC - [#9009061]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HLA - [#777]	PURGE+18, PURGE+19, PURGE+23, SELKILL+4
^HLB - [#778]	PURGE+11, PURGE+12, PURGE+14, PURGE+15, PURGE+16, PURGE+17, PURGE+21, PURGE+22, SELKILL+5
^HLB("AC"	AC+5!, AC+7!
^HLB("AD"	ADI+1!, ADO+3!
^HLB("QUEUE"	QUEUEI+2!, QUEUEO+6!
^HLC("FILE777"	SELKILL+8*
^HLC("FILE778"	SELKILL+9*
^HLCS(870 - [#870]	QUEUEO+3

Label References

Name	Line Occurrences
AC	PURGE+43
ADI	PURGE+44
ADO	PURGE+45
PRINT	PURGE+46
QUEUEI	PURGE+44
QUEUEO	PURGE+45

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACKCODE	PURGE+23, PURGE+30, PURGE+39, PRINT+1~, PRINT+8, PRINT+9*
ACKCODET	PURGE+3~
ACKCODET(	PURGE+30*, PRINT+9
>> BEGIN	SELKILL+8, SELKILL+9
>> CMP	AC+6*, AC+7
>> CNT	SELKILL+4*
>> COMSTAT	PURGE+15, PURGE+20, PURGE+31, PURGE+32
>> DA	PURGE+41, PURGE+42, SELKILL+6*
>> DIK	PURGE+41, PURGE+42, SELKILL+6*
DIRECTOT	PURGE+3~, PURGE+4*
DIRECTOT(	PURGE+28*, PRINT+5
DUZ(2	PURGE+6
EVENT	PURGE+19, PURGE+27, PURGE+38, PRINT+1~, PRINT+2, PRINT+3*, QUEUEI+2
EVENTTOT	PURGE+3~, PURGE+4*
EVENTTOT(	PURGE+27*, PRINT+3
GRDTOTAL	PURGE+3~, PURGE+4, PURGE+26, PRINT+10
HLOG	QUEUEO+2~, QUEUEO+3*, QUEUEO+4
>> IEN	SELKILL+4*, SELKILL+5, SELKILL+6
>> LINK	PURGE+12*, PURGE+13
MPIDATE	PURGE+2~
MPIDAYS	PURGE+2~, PURGE+6, PURGE+7, PURGE+8
MPIDIREC	PURGE+14, PURGE+28, PURGE+36, PURGE+44, PURGE+45, PRINT+1~, PRINT+4, PRINT+5*
MPIDT1	PURGE+2~
MPIIEN	PURGE+2~, PURGE+5, PURGE+11, PURGE+12, PURGE+14, PURGE+15, PURGE+16, PURGE+17, PURGE+21, PURGE+22 , PURGE+35, PURGE+41, PURGE+43, AC~, AC+5, AC+7, ADI+1, ADO+3, QUEUEI+2, QUEUEO+6
MPIIEN2	PURGE+2~, PURGE+5*
MPILINK	QUEUEO+2~, QUEUEO+5*, QUEUEO+6
MPITYPE	PURGE+2~
>> MSGBOD	PURGE+17*, PURGE+18, PURGE+19, PURGE+42
MSGID	PURGE+22*, PURGE+23, PURGE+43, AC~, AC+5, AC+6
MSGTYPE	PURGE+18, PURGE+29, PURGE+37, PRINT+1~, PRINT+6, PRINT+7*, QUEUEI+2
MSGTYPTO	PURGE+3~, PURGE+4*
MSGTYPTO(	PURGE+29*, PRINT+7
ONLYA08	INTERACT+1~
ONLYA28	INTERACT+1~
ONLYACK	INTERACT+1~
ONLYADT	INTERACT+1~
ONLYFAIL	INTERACT+1~
ONLYMFK	INTERACT+2~
ONLYMFN	INTERACT+2~
ONLYSUC	INTERACT+1~
PORT	QUEUEO+2~, QUEUEO+4*, QUEUEO+5
>> PURGDT	PURGE+8*, PURGE+25
QUIT	PURGE+2~, PURGE+5, PURGE+11, PURGE+25
REC	QUEUEO+2~
SCHEDPUR	PURGE+16*, PURGE+45, ADO~, ADO+1, ADO+3
STATUSTO	PURGE+3~, PURGE+4, PURGE+32
STATUSTO(	PURGE+32
>> TRANDATE	PURGE+21*, PURGE+25, PURGE+34, QUEUEI+2
U	PURGE+12, PURGE+14, PURGE+15, PURGE+16, PURGE+17, PURGE+18, PURGE+19, PURGE+21, PURGE+22, PURGE+23
>> X	PURGE+8*
>> Y	PURGE+8
>> ZTQUEUED	PURGE+33, PURGE+46

Customize PDF page

Package: Patient Registration MPI

Routine: AGMPPURG

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: