Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGMPPURG

Package: Patient Registration MPI

Routine: AGMPPURG


Information

AGMPPURG ; IHS/SD/TPF - MPI HLO MESSAGE PURGE

Source Information

Source file <AGMPPURG.m>

Call Graph

Call Graph Total: 3

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All