AG72ENMP ;IHS/SD/TPF - Patient Registration 7.2 MPI ENVIRONMENT CHECKER ;
Source file <AG72ENMP.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PRE | ;EP - PRE INSTALL | |
| ADDPORT | ;EP - ADD PORT | |
| ADDHLOAP | ;EP - ADD 'RPMS-MPI' RECEIVING APP TO HLO APPLICATION REGISTRY | |
| ASKPORT | ;EP - ASK PORT | |
| LINKHLO(DA) | ;EP - DO EDIT | |
| ADDMENU | ;EP - ADD MPI MENU TO AGMENU | |
| VCHK(AGPRE,AGVER,AGQUIT) | ;Check versions needed. | |
| PATCH(X) | ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn | |
| OPTSAV(AGM) | ; | |
| LINKMPI(DA) | ;EP - DO EDIT | |
| VERUPD | ;UPDATE THE PACKAGE VERSION NUMBER | |
| ASKIP | ;-EP - ASK FOR IP | |
| SORRY(X) | ; | |
| CHKSTAT(DUZ2) | ;EP - GET STATION NUMBER | |
| SUBSCRIB | ;EP - SUBSCRIBE TO PIMS PROTOCOLS | |
| CHKTASK | ;EP - CHECK 779.3 SETTINGS | |
| POST | ;EP - POST INSTALL ACTIONS | |
| CHKSYS | ;EP - CHECK 779.1 SETTINGS | |
| ADDLOGLK | ;EP - ADD OR EDIT 'HL LOGICAL LINK' | |
| INSTALLD(AGINSTAL) | ;EP | 
| Name | Field # of Occurrence | 
|---|---|
| ^DIC | INSTALLD+7, INSTALLD+10, SUBSCRIB+5, SUBSCRIB+16, SUBSCRIB+30, SUBSCRIB+41, CHKTASK+6, ADDLOGLK+5, ADDHLOAP+5 | 
| IX^DIC | AG72ENMP+51, INSTALLD+4 | 
| ^DIE | AG72ENMP+82, SUBSCRIB+25, SUBSCRIB+50, CHKTASK+16, CHKTASK+24, ASKIP+12, ASKIP+20, ASKIP+32, ASKIP+39, ASKIP+45 , ASKIP+51, ASKIP+57, ASKIP+63, ASKIP+69, ADDPORT+17, LINKMPI+21, ASKPORT+17, ADDHLOAP+22 | 
| $$GET1^DIQ | CHKSTAT+2, CHKTASK+10, CHKTASK+17, ASKIP+14, ASKIP+22, ASKIP+23, ASKIP+34, ASKIP+40, ASKIP+46, ASKIP+52 , ASKIP+58, ASKIP+64 | 
| ^DIR | AG72ENMP+74, ASKIP+5, ADDPORT+8, ASKPORT+8 | 
| $$DIR^XBDIR | AG72ENMP+93, SORRY+3 | 
| $$FMADD^XLFDT | OPTSAV+3 | 
| $$CJ^XLFSTR | AG72ENMP+6, AG72ENMP+7, AG72ENMP+10, AG72ENMP+11, AG72ENMP+13, AG72ENMP+14, AG72ENMP+16, AG72ENMP+17, AG72ENMP+22, AG72ENMP+23 , AG72ENMP+26, AG72ENMP+27, AG72ENMP+30, AG72ENMP+34, AG72ENMP+37, AG72ENMP+40, AG72ENMP+44, AG72ENMP+45, AG72ENMP+53, AG72ENMP+54 , AG72ENMP+55, AG72ENMP+62, AG72ENMP+63, AG72ENMP+64, AG72ENMP+67, AG72ENMP+68, AG72ENMP+69, AG72ENMP+70, AG72ENMP+76, AG72ENMP+86 , AG72ENMP+87, AG72ENMP+91, SORRY+3, VCHK+3, VCHK+4, SUBSCRIB+7, SUBSCRIB+8, SUBSCRIB+9, SUBSCRIB+10, SUBSCRIB+11 , SUBSCRIB+18, SUBSCRIB+19, SUBSCRIB+20, SUBSCRIB+32, SUBSCRIB+33, SUBSCRIB+34, SUBSCRIB+35, SUBSCRIB+36, SUBSCRIB+43, SUBSCRIB+44 , SUBSCRIB+45, CHKTASK+8, ASKIP+27, ASKIP+28, ADDLOGLK+7, ADDLOGLK+8, ADDHLOAP+7, ADDHLOAP+8, ADDHLOAP+9, ADDMENU+3 , ADDMENU+4 | 
| PKGVER^XPDIP | VERUPD+10 | 
| $$ADD^XPDMENU | ADDMENU+2 | 
| $$LAST^XPDUTL | AG72ENMP+25, AG72ENMP+29, AG72ENMP+32, AG72ENMP+39 | 
| $$PKG^XPDUTL | VERUPD+2 | 
| $$VER^XPDUTL | VERUPD+2 | 
| $$VERSION^XPDUTL | AG72ENMP+22, VCHK+2, VERUPD+4 | 
| BMES^XPDUTL | OPTSAV+1, OPTSAV+2, OPTSAV+6, ADDMENU+3, ADDMENU+4, VERUPD+9 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^ORD(101 - [#101] | Classic Fileman Calls | 
| ^DIC(4 - [#4] | Classic Fileman Calls, GET1^DIQ | 
| ^HLD(779.1 - [#779.1] | Classic Fileman Calls, GET1^DIQ | 
| ^HLD(779.2 - [#779.2] | Classic Fileman Calls | 
| ^HLD(779.3 - [#779.3] | Classic Fileman Calls, GET1^DIQ | 
| ^HLCS(870 - [#870] | Classic Fileman Calls | 
| ^DIC(9.4 - [#9.4] | Classic Fileman Calls | 
| ^AGFAC - [#9009061] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AGFAC - [#9009061] | ADDPORT+11, ADDPORT+12 | 
| ^DIC(19 - [#19] | OPTSAV+5, OPTSAV+8 | 
| ^DIC(4 - [#4] | AG72ENMP+70 | 
| ^DIC(9.4 - [#9.4] | AG72ENMP+52, PATCH+3, PATCH+4, PATCH+6, PATCH+7, VERUPD+8 | 
| ^HLD(779.1 - [#779.1] | ASKPORT+1 | 
| ^VA(200 - [#200] | AG72ENMP+5 | 
| ^XPD(9.7 - [#9.7] | AG72ENMP+33 | 
| ^XTMP("AG71" | OPTSAV+2, OPTSAV+3*, OPTSAV+8* | 
| Name | Line Occurrences | 
|---|---|
| $$CHKSTAT | AG72ENMP+60, AG72ENMP+83, ASKIP+25 | 
| $$PATCH | AG72ENMP+10, AG72ENMP+13, AG72ENMP+16, AG72ENMP+44 | 
| $$VCHK | AG72ENMP+36, AG72ENMP+42 | 
| ADDHLOAP | PRE+1 | 
| ADDLOGLK | POST+2 | 
| ADDMENU | POST+5 | 
| ADDPORT | ADDLOGLK+10 | 
| ASKIP | ASKIP+6 | 
| ASKPORT | ASKPORT+1 | 
| CHKSYS | POST+1 | 
| CHKTASK | POST+3 | 
| LINKMPI | ADDLOGLK+9 | 
| OPTSAV | AG72ENMP+58 | 
| SORRY | AG72ENMP+3, AG72ENMP+4, AG72ENMP+10, AG72ENMP+13, AG72ENMP+16, AG72ENMP+22, AG72ENMP+26, AG72ENMP+30, AG72ENMP+34, AG72ENMP+37 , AG72ENMP+40, AG72ENMP+44, AG72ENMP+89, AG72ENMP+93 | 
| SUBSCRIB | POST+4 | 
| VERUPD | POST+6 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | PATCH+2~, PATCH+7*, PATCH+8 | 
| A | OPTSAV+4~, OPTSAV+7*, OPTSAV+8* | 
| ACTIVE | CHKTASK+1~, CHKTASK+10*, CHKTASK+11 | 
| >> ACTRTN | ADDHLOAP+16* | 
| >> ACTTAG | ADDHLOAP+15* | 
| AGINSTAL | INSTALLD~, INSTALLD+2, INSTALLD+6, INSTALLD+9 | 
| AGM | OPTSAV~, OPTSAV+1, OPTSAV+2, OPTSAV+5, OPTSAV+6, OPTSAV+8 | 
| AGPRE | VCHK~, VCHK+2, VCHK+3 | 
| AGQUIT | AG72ENMP+8~, AG72ENMP+9*, AG72ENMP+10*, AG72ENMP+13*, AG72ENMP+16*, AG72ENMP+22*, AG72ENMP+26*, AG72ENMP+30*, AG72ENMP+34*, AG72ENMP+37* , AG72ENMP+40*, AG72ENMP+42*, AG72ENMP+44*, AG72ENMP+47, AG72ENMP+52*, AG72ENMP+65*, AG72ENMP+85*, AG72ENMP+89, VCHK~ | 
| AGV | VCHK+1~, VCHK+2*, VCHK+3, VCHK+4 | 
| AGVER | VCHK~, VCHK+3, VCHK+4 | 
| >> AUTSTART | LINKMPI+5* | 
| BADRET | ASKIP+1~, ASKIP+64*, ASKIP+65, ASKIP+66* | 
| BUFFUSE | ASKIP+1~ | 
| BUFHL7 | ASKIP+1~, ASKIP+46*, ASKIP+47, ASKIP+48* | 
| >> BUFUSE | ASKIP+52*, ASKIP+53, ASKIP+54* | 
| >> BVER | VERUPD+2*, VERUPD+7, VERUPD+10 | 
| >> D | AG72ENMP+50*, INSTALLD+3* | 
| DA | AG72ENMP+49~, AG72ENMP+77!, AG72ENMP+81*, SUBSCRIB+1!, SUBSCRIB+22*, SUBSCRIB+26!, SUBSCRIB+47*, SUBSCRIB+51!, CHKTASK+2!, CHKTASK+12! , CHKTASK+14*, CHKTASK+19!, CHKTASK+21*, ASKIP+10*, ASKIP+17*, ASKIP+30*, ASKIP+37*, ASKIP+43*, ASKIP+49*, ASKIP+55* , ASKIP+61*, ASKIP+67*, ASKIP+70!, ADDLOGLK+1!, ADDPORT+13!, ADDPORT+16*, LINKMPI~, LINKMPI+22!, LINKHLO~, ASKPORT+18! , ADDHLOAP+1!, ADDHLOAP+11!, ADDHLOAP+13*, ADDHLOAP+23! | 
| DA(1 | SUBSCRIB+12*, SUBSCRIB+13, SUBSCRIB+23, SUBSCRIB+37*, SUBSCRIB+38, SUBSCRIB+48 | 
| >> DEVTYP | LINKMPI+2* | 
| DIC | AG72ENMP+49~, AG72ENMP+50*, AG72ENMP+77!, INSTALLD+1~, INSTALLD+3*, INSTALLD+6*, INSTALLD+9*, SUBSCRIB+1!, SUBSCRIB+2*, SUBSCRIB+13* , SUBSCRIB+21!, SUBSCRIB+26!, SUBSCRIB+27*, SUBSCRIB+38*, SUBSCRIB+46!, SUBSCRIB+51!, CHKTASK+2!, CHKTASK+3*, CHKTASK+12!, CHKTASK+19! , ASKIP+70!, ADDLOGLK+1!, ADDLOGLK+2*, ADDPORT+13!, LINKMPI+22!, ASKPORT+18!, ADDHLOAP+1!, ADDHLOAP+2*, ADDHLOAP+11!, ADDHLOAP+23! | 
| DIC(0 | AG72ENMP+50*, INSTALLD+3*, SUBSCRIB+3*, SUBSCRIB+14*, SUBSCRIB+28*, SUBSCRIB+39*, CHKTASK+4*, ADDLOGLK+3*, ADDHLOAP+3* | 
| DIE | AG72ENMP+77!, AG72ENMP+78*, SUBSCRIB+1!, SUBSCRIB+21!, SUBSCRIB+23*, SUBSCRIB+26!, SUBSCRIB+46!, SUBSCRIB+48*, SUBSCRIB+51!, CHKTASK+2! , CHKTASK+12!, CHKTASK+13*, CHKTASK+19!, CHKTASK+20*, ASKIP+9*, ASKIP+16*, ASKIP+29*, ASKIP+70!, ADDLOGLK+1!, ADDPORT+13! , ADDPORT+14*, LINKMPI+1*, LINKMPI+22!, LINKHLO+2*, ASKPORT+18!, ADDHLOAP+1!, ADDHLOAP+11!, ADDHLOAP+12*, ADDHLOAP+23! | 
| DIE("NO^" | AG72ENMP+79* | 
| DIFQ | SORRY+1! | 
| DIR | AG72ENMP+72!, AG72ENMP+77!, SUBSCRIB+1!, SUBSCRIB+21!, SUBSCRIB+26!, SUBSCRIB+46!, SUBSCRIB+51!, CHKTASK+2!, CHKTASK+12!, CHKTASK+19! , ASKIP+2!, ASKIP+70!, ADDLOGLK+1!, ADDPORT+4!, ADDPORT+13!, LINKMPI+22!, ASKPORT+5!, ASKPORT+18!, ADDHLOAP+1!, ADDHLOAP+11! , ADDHLOAP+23! | 
| DIR("A" | ASKIP+3*, ADDPORT+6*, ASKPORT+7* | 
| DIR("B" | ADDPORT+7* | 
| DIR(0 | AG72ENMP+73*, ASKIP+4*, ADDPORT+5*, ASKPORT+6* | 
| DR | AG72ENMP+77!, AG72ENMP+80*, SUBSCRIB+1!, SUBSCRIB+21!, SUBSCRIB+24*, SUBSCRIB+26!, SUBSCRIB+46!, SUBSCRIB+49*, SUBSCRIB+51!, CHKTASK+2! , CHKTASK+12!, CHKTASK+15*, CHKTASK+19!, CHKTASK+23*, ASKIP+11*, ASKIP+19*, ASKIP+31*, ASKIP+38*, ASKIP+44*, ASKIP+50* , ASKIP+56*, ASKIP+62*, ASKIP+68*, ASKIP+70!, ADDLOGLK+1!, ADDPORT+13!, ADDPORT+15*, LINKMPI+12*, LINKMPI+13*, LINKMPI+14* , LINKMPI+15*, LINKMPI+16*, LINKMPI+17*, LINKMPI+18*, LINKMPI+19*, LINKMPI+20*, LINKMPI+22!, ASKPORT+11*, ASKPORT+12*, ASKPORT+13* , ASKPORT+14*, ASKPORT+15*, ASKPORT+16*, ASKPORT+18!, ADDHLOAP+1!, ADDHLOAP+11!, ADDHLOAP+18*, ADDHLOAP+19*, ADDHLOAP+20*, ADDHLOAP+21* , ADDHLOAP+23! | 
| DT | OPTSAV+3 | 
| >> DTOUT | ASKPORT+1 | 
| >> DUOUT | ASKPORT+1 | 
| DUZ | AG72ENMP+3, AG72ENMP+5 | 
| DUZ(0 | AG72ENMP+4 | 
| DUZ(2 | AG72ENMP+60, AG72ENMP+70, AG72ENMP+81, AG72ENMP+83, ASKIP+23, ASKIP+25 | 
| DUZ2 | CHKSTAT~, CHKSTAT+2 | 
| >> FAC | ADDPORT+10*, ADDPORT+11*, ADDPORT+12, ADDPORT+16 | 
| I | OPTSAV+4~, OPTSAV+5*, OPTSAV+6, OPTSAV+8, PATCH+2~, PATCH+3*, PATCH+4, PATCH+6, PATCH+7 | 
| IENS | CHKTASK+1~, CHKTASK+9*, CHKTASK+10, CHKTASK+14, CHKTASK+17, CHKTASK+21 | 
| >> INSTSTA | ASKIP+23*, ASKIP+24 | 
| IOM | AG72ENMP+6, AG72ENMP+7, AG72ENMP+10, AG72ENMP+11, AG72ENMP+13, AG72ENMP+14, AG72ENMP+16, AG72ENMP+17, AG72ENMP+22, AG72ENMP+23 , AG72ENMP+26, AG72ENMP+27, AG72ENMP+30, AG72ENMP+34, AG72ENMP+37, AG72ENMP+40, AG72ENMP+44, AG72ENMP+45, AG72ENMP+53, AG72ENMP+54 , AG72ENMP+55, AG72ENMP+62, AG72ENMP+63, AG72ENMP+64, AG72ENMP+67, AG72ENMP+68, AG72ENMP+69, AG72ENMP+70, AG72ENMP+76, AG72ENMP+86 , AG72ENMP+87, AG72ENMP+91, SORRY+3, VCHK+3, VCHK+4, SUBSCRIB+7, SUBSCRIB+8, SUBSCRIB+9, SUBSCRIB+10, SUBSCRIB+11 , SUBSCRIB+18, SUBSCRIB+19, SUBSCRIB+20, SUBSCRIB+32, SUBSCRIB+33, SUBSCRIB+34, SUBSCRIB+35, SUBSCRIB+36, SUBSCRIB+43, SUBSCRIB+44 , SUBSCRIB+45, CHKTASK+8, ASKIP+27, ASKIP+28, ADDLOGLK+7, ADDLOGLK+8, ADDHLOAP+7, ADDHLOAP+8, ADDHLOAP+9 | 
| IP | ASKIP+1~, ASKIP+8* | 
| >> IVER | VERUPD+4*, VERUPD+7 | 
| J | PATCH+2~, PATCH+4*, PATCH+6, PATCH+7 | 
| LINK | CHKTASK+1~, CHKTASK+17*, CHKTASK+18, CHKTASK+22* | 
| LISTNR | ASKIP+1~, ASKIP+14*, ASKIP+15, ASKIP+18* | 
| >> LLPTYP | LINKMPI+4*, LINKHLO+4* | 
| MAXSTR | ASKIP+1~, ASKIP+40*, ASKIP+41, ASKIP+42* | 
| MSGRET | ASKIP+1~, ASKIP+58*, ASKIP+59, ASKIP+60* | 
| >> PERS | LINKMPI+10* | 
| >> PKG | VERUPD+2*, VERUPD+4, VERUPD+8 | 
| >> PKGIEN | VERUPD+8*, VERUPD+9, VERUPD+10 | 
| >> PKGLINK | ADDHLOAP+17* | 
| PROD | ASKIP+1~, ASKIP+34*, ASKIP+35, ASKIP+36* | 
| >> PRVTQUE | ADDHLOAP+14* | 
| >> QUESIZE | LINKMPI+6*, LINKHLO+5* | 
| >> RECORD | ADDHLOAP+10*, ADDHLOAP+13 | 
| RET | ADDMENU+1~, ADDMENU+2*, ADDMENU+4 | 
| >> SHUTLLP | LINKMPI+3*, LINKHLO+3* | 
| STATNUM | AG72ENMP+60*, AG72ENMP+61, AG72ENMP+68, AG72ENMP+83*, AG72ENMP+84, CHKSTAT+1~, CHKSTAT+2*, CHKSTAT+3, ASKIP+1~, ASKIP+22* , ASKIP+24, ASKIP+25*, ASKIP+26, ASKIP+33 | 
| >> TCPIP | LINKMPI+7*, LINKHLO+6* | 
| >> TCPPORT | ADDPORT+9*, LINKMPI+8*, LINKHLO+7*, ASKPORT+9* | 
| >> TCPTYPE | LINKMPI+9* | 
| U | AG72ENMP+5, AG72ENMP+26, AG72ENMP+30, AG72ENMP+40, AG72ENMP+70, OPTSAV+3, OPTSAV+8, ASKPORT+1 | 
| X | AG72ENMP+5*, AG72ENMP+6, AG72ENMP+25*, AG72ENMP+26, AG72ENMP+29*, AG72ENMP+30, AG72ENMP+32*, AG72ENMP+39*, AG72ENMP+40, AG72ENMP+50* , SORRY~, SORRY+2, INSTALLD+1~, INSTALLD+2*, INSTALLD+6*, INSTALLD+9*, PATCH~, PATCH+1, PATCH+3, PATCH+4* , PATCH+6, PATCH+7, PATCH+8, SUBSCRIB+4*, SUBSCRIB+15*, SUBSCRIB+29*, SUBSCRIB+40*, CHKTASK+5*, ADDLOGLK+4*, ASKPORT+1 , ADDHLOAP+4*, ADDHLOAP+7 | 
| >> XPDABORT | VERUPD+7, VERUPD+9* | 
| >> XPDDIQ("XPZ1" | AG72ENMP+57* | 
| >> XPDDIQ("XPZ2" | AG72ENMP+57* | 
| >> XPDENV | AG72ENMP+56 | 
| >> XPDNM | VERUPD+2 | 
| >> XPDQUIT | SORRY+2* | 
| Y | AG72ENMP+52, AG72ENMP+75, INSTALLD+1~, INSTALLD+5, INSTALLD+6, INSTALLD+8, INSTALLD+9, INSTALLD+11, SUBSCRIB+6, SUBSCRIB+12 , SUBSCRIB+17, SUBSCRIB+22, SUBSCRIB+31, SUBSCRIB+37, SUBSCRIB+42, SUBSCRIB+47, CHKTASK+7, CHKTASK+9, ASKIP+6, ASKIP+8 , ADDLOGLK+6, ADDLOGLK+9, ADDPORT+9, ASKPORT+9, ADDHLOAP+6, ADDHLOAP+10 | 
| >> ZTQUEUED | AG72ENMP+86, AG72ENMP+87, SORRY+3, ASKIP+27, ASKIP+28, ADDLOGLK+7, ADDLOGLK+8, ADDHLOAP+7, ADDHLOAP+8, ADDHLOAP+9 |