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 |