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 |