GMPLY49 ;ISP/TC - Pre/Post Install Routine for GMPL*2.0*49 ;08/23/17 08:15
Source file <GMPLY49.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ASGNRPT | ; Retrieve pre-existing user/clinic selection list assignment report
|
|
| CASECHK | ; Check for mixed/lower case list/category name entries
|
|
| DUPCHK | ; Check for duplicate selection list/category entry names
|
|
| DUPL(GMPLARY,GMPLENT) | ; Check if GMPLENT is a duplicate in GMPLARY
|
|
| POST | ; Post-install subroutine
|
|
| PRE | ; Pre-install subroutine
; Remove old data dictionary for the Problem Selection List Files |
|
| RSEQPROT | ; Resequence GMPL MENU BUILD GROUP protocol menu items
|
|
| SENDARPT(GMPLULST,GMPLCLST,GMPLELST) | ; Build pre-existing user/clinic selection list assignment rpt and send via MailMan
|
|
| SENDCRPT(GMPLLIST,GMPLCAT) | ; Build mix/lower case name report and send to installer via MailMan
|
|
| SENDDRPT(GMPLDUPL,GMPLDUPC) | ; Build duplicate name report and send to installer via MailMan
|
|
| SENDLIST(GMPLSLST) | ; Export national list/category data if prefixed with VA-
|
|
| UPCHKMNU | ; Update GMPL SELECTION LIST CSV CHECK menu text
|
|
| UPDTDORD | ; Update display order of several menu items for GMPL BUILD LIST MENU option
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | RSEQPROT+3, UPCHKMNU+2, UPDTDORD+2, UPDTDORD+8 |
| FILE^DIE | ASGNRPT+17, CASECHK+7, CASECHK+16, RSEQPROT+12, UPCHKMNU+6, UPDTDORD+12 |
| EN^DIU2 | PRE+10, PRE+16 |
| GETCLNLT^GMPLSLRP | ASGNRPT+3 |
| GETUSRLT^GMPLSLRP | ASGNRPT+2 |
| SEND^GMPLUTL4 | SENDARPT+41, SENDCRPT+40, SENDDRPT+24 |
| $$MIXLOWCS^GMPLX | CASECHK+5, CASECHK+14 |
| EN^GMPLY49A | POST+13 |
| $$LJ^XLFSTR | SENDARPT+22, SENDARPT+31, SENDARPT+40, SENDCRPT+26, SENDCRPT+38 |
| $$UP^XLFSTR | CASECHK+6, CASECHK+15, DUPL+3 |
| OUT^XPDMENU | POST+6 |
| $$PATCH^XPDUTL | POST+12 |
| BMES^XPDUTL | ASGNRPT+11, CASECHK+25, DUPCHK+15, POST+2, POST+4, POST+8, POST+10, PRE+3, PRE+5, PRE+7 , PRE+13, RSEQPROT+4, RSEQPROT+16, UPCHKMNU+4, UPCHKMNU+10, UPDTDORD+3, UPDTDORD+16 |
| MES^XPDUTL | ASGNRPT+6, ASGNRPT+7, ASGNRPT+14, ASGNRPT+18, ASGNRPT+19, CASECHK+26, DUPCHK+16, POST+6, PRE+11, PRE+17 , RSEQPROT+17, UPCHKMNU+11, UPDTDORD+17 |
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC |
| ^DIC(19 - [#19] | FIND1^DIC |
| 19.01 | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMPL(125 - [#125] | CASECHK+3, CASECHK+4, DUPCHK+3, DUPCHK+4, PRE+18* |
| ^GMPL(125.11 - [#125.11] | CASECHK+12, CASECHK+13, DUPCHK+7, DUPCHK+8, PRE+19* |
| ^ORD(101 - [#101] | RSEQPROT+5, RSEQPROT+6 |
| ^TMP( | SENDARPT+7*, SENDARPT+8*, SENDARPT+9*, SENDARPT+10*, SENDARPT+11*, SENDARPT+12*, SENDARPT+13*, SENDARPT+14*, SENDARPT+15*, SENDARPT+18* , SENDARPT+19*, SENDARPT+22*, SENDARPT+23*, SENDARPT+24*, SENDARPT+27*, SENDARPT+28*, SENDARPT+31*, SENDARPT+32*, SENDARPT+35*, SENDARPT+36* , SENDARPT+37*, SENDARPT+40*, SENDCRPT+7*, SENDCRPT+8*, SENDCRPT+9*, SENDCRPT+10*, SENDCRPT+11*, SENDCRPT+12*, SENDCRPT+13*, SENDCRPT+14* , SENDCRPT+15*, SENDCRPT+17*, SENDCRPT+18*, SENDCRPT+20*, SENDCRPT+21*, SENDCRPT+23*, SENDCRPT+24*, SENDCRPT+26*, SENDCRPT+27*, SENDCRPT+29* , SENDCRPT+30*, SENDCRPT+32*, SENDCRPT+33*, SENDCRPT+35*, SENDCRPT+36*, SENDCRPT+38*, SENDCRPT+39*, SENDDRPT+7*, SENDDRPT+8*, SENDDRPT+9* , SENDDRPT+10*, SENDDRPT+11*, SENDDRPT+12*, SENDDRPT+14*, SENDDRPT+15*, SENDDRPT+17*, SENDDRPT+18*, SENDDRPT+20*, SENDDRPT+21*, SENDDRPT+23* |
| ^TMP("GMPLASGN" | SENDARPT+2! |
| ^TMP("GMPLCASE" | SENDCRPT+2! |
| ^TMP("GMPLDUP" | SENDDRPT+2! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIU | PRE+2~, PRE+9*, PRE+10!, PRE+12~, PRE+15*, PRE+16! |
| DIU(0 | PRE+8*, PRE+14* |
| DUZ | SENDARPT+6, SENDCRPT+6, SENDDRPT+6 |
| GMPLARY | DUPL~ |
| GMPLARY( | DUPL+2 |
| GMPLCAT | CASECHK+1~, CASECHK+21, CASECHK+22, CASECHK+27!, SENDCRPT~, SENDDRPT+1~, SENDDRPT+3*, SENDDRPT+22*, SENDDRPT+23 |
| GMPLCAT("FAIL" | CASECHK+18*, SENDCRPT+34, SENDCRPT+37, SENDCRPT+38 |
| GMPLCAT("PASS" | CASECHK+20*, SENDCRPT+28, SENDCRPT+31 |
| GMPLCDA | CASECHK+1~, CASECHK+2*, CASECHK+13*, CASECHK+15, CASECHK+18 |
| GMPLCLIN | SENDARPT+26~*, SENDARPT+29*, SENDARPT+30, SENDARPT+31 |
| GMPLCLST | ASGNRPT+1~, ASGNRPT+3, ASGNRPT+4, ASGNRPT+5, ASGNRPT+20!, DUPCHK+1~, DUPCHK+9, DUPCHK+17!, SENDARPT~, SENDARPT+25 |
| GMPLCLST( | DUPCHK+10*, SENDARPT+29, SENDARPT+30 |
| GMPLCLST("0" | DUPCHK+2* |
| GMPLCNM | CASECHK+1~, CASECHK+2*, CASECHK+12*, CASECHK+13, CASECHK+14, CASECHK+15, CASECHK+18, CASECHK+20, DUPCHK+1~, DUPCHK+2* , DUPCHK+7*, DUPCHK+8, DUPCHK+9, DUPCHK+10, SENDCRPT+1~, SENDCRPT+3*, SENDCRPT+31*, SENDCRPT+32, SENDCRPT+36*, SENDCRPT+37* , SENDCRPT+38 |
| GMPLCNT | SENDARPT+1~, SENDARPT+3*, SENDARPT+18*, SENDARPT+19*, SENDARPT+22*, SENDARPT+23*, SENDARPT+24*, SENDARPT+27*, SENDARPT+28*, SENDARPT+31* , SENDARPT+32*, SENDARPT+35*, SENDARPT+36*, SENDARPT+37*, SENDARPT+40*, SENDCRPT+1~, SENDCRPT+3*, SENDCRPT+17*, SENDCRPT+18*, SENDCRPT+20* , SENDCRPT+21*, SENDCRPT+23*, SENDCRPT+24*, SENDCRPT+26*, SENDCRPT+27*, SENDCRPT+29*, SENDCRPT+30*, SENDCRPT+32*, SENDCRPT+33*, SENDCRPT+35* , SENDCRPT+36*, SENDCRPT+38*, SENDCRPT+39*, SENDDRPT+1~, SENDDRPT+3*, SENDDRPT+14*, SENDDRPT+15*, SENDDRPT+17*, SENDDRPT+18*, SENDDRPT+20* , SENDDRPT+21*, SENDDRPT+23* |
| GMPLDA | DUPCHK+1~, DUPCHK+2*, DUPCHK+8*, RSEQPROT+1~, RSEQPROT+2*, RSEQPROT+5*, RSEQPROT+6, RSEQPROT+8 |
| GMPLDUPC | DUPCHK+1~, DUPCHK+11, DUPCHK+12, DUPCHK+17!, SENDDRPT~, SENDDRPT+19 |
| GMPLDUPC( | DUPCHK+9*, SENDDRPT+22 |
| GMPLDUPL | DUPCHK+1~, DUPCHK+11, DUPCHK+12, DUPCHK+17!, SENDDRPT~, SENDDRPT+13 |
| GMPLDUPL( | DUPCHK+5*, SENDDRPT+16 |
| GMPLDUZ | ASGNRPT+9~, ASGNRPT+15*, ASGNRPT+16 |
| GMPLELST | ASGNRPT+1~, ASGNRPT+2, ASGNRPT+4, ASGNRPT+5, ASGNRPT+8, ASGNRPT+20!, SENDARPT~, SENDARPT+33 |
| GMPLELST( | ASGNRPT+12, ASGNRPT+13, ASGNRPT+15, SENDARPT+38, SENDARPT+39 |
| GMPLENT | DUPL~, DUPL+3 |
| GMPLERR | CASECHK+1~, CASECHK+17, CASECHK+19!, RSEQPROT+1~, RSEQPROT+2*, RSEQPROT+15*, RSEQPROT+17, UPCHKMNU+1~, UPCHKMNU+7, UPDTDORD+1~* , UPDTDORD+15*, UPDTDORD+17 |
| GMPLERR("DIERR" | CASECHK+18, UPCHKMNU+9 |
| GMPLFDA | ASGNRPT+9~, CASECHK+1~, RSEQPROT+1~, UPCHKMNU+1~, UPDTDORD+5~ |
| GMPLFDA( | CASECHK+15*, RSEQPROT+9*, RSEQPROT+10*, RSEQPROT+11*, UPDTDORD+10*, UPDTDORD+11* |
| GMPLFDA(125 | CASECHK+6* |
| GMPLFDA(19 | UPCHKMNU+5* |
| GMPLFDA(200 | ASGNRPT+16* |
| GMPLFROM | SENDARPT+1~, SENDARPT+5*, SENDARPT+41, SENDCRPT+1~, SENDCRPT+5*, SENDCRPT+40, SENDDRPT+1~, SENDDRPT+5*, SENDDRPT+24 |
| GMPLI | UPDTDORD+1~, UPDTDORD+4*, UPDTDORD+6, UPDTDORD+7 |
| GMPLIEN | DUPCHK+1~, DUPCHK+2*, DUPCHK+4*, UPCHKMNU+1~, UPCHKMNU+2*, UPCHKMNU+3, UPCHKMNU+5 |
| GMPLIENS | RSEQPROT+1~, RSEQPROT+8*, RSEQPROT+9, RSEQPROT+10, RSEQPROT+11, UPDTDORD+5~, UPDTDORD+9*, UPDTDORD+10, UPDTDORD+11 |
| GMPLITEM | RSEQPROT+1~, RSEQPROT+6*, RSEQPROT+7 |
| GMPLLDA | CASECHK+1~, CASECHK+2*, CASECHK+4*, CASECHK+6, CASECHK+9 |
| GMPLLIST | CASECHK+1~, CASECHK+21, CASECHK+22, CASECHK+27!, SENDCRPT~, SENDDRPT+1~, SENDDRPT+3*, SENDDRPT+16*, SENDDRPT+17 |
| GMPLLIST("FAIL" | CASECHK+9*, SENDCRPT+22, SENDCRPT+25, SENDCRPT+26 |
| GMPLLIST("PASS" | CASECHK+11*, SENDCRPT+16, SENDCRPT+19 |
| GMPLLNM | CASECHK+1~, CASECHK+2*, CASECHK+3*, CASECHK+4, CASECHK+5, CASECHK+6, CASECHK+9, CASECHK+11, DUPCHK+1~, DUPCHK+2* , DUPCHK+3*, DUPCHK+4, DUPCHK+5, DUPCHK+6, SENDCRPT+1~, SENDCRPT+3*, SENDCRPT+19*, SENDCRPT+20, SENDCRPT+24*, SENDCRPT+25* , SENDCRPT+26 |
| GMPLLST | ASGNRPT+9~, ASGNRPT+10*, ASGNRPT+13*, ASGNRPT+14, ASGNRPT+15, SENDARPT+26~*, SENDARPT+30*, SENDARPT+31 |
| GMPLMIEN | UPDTDORD+5~, UPDTDORD+8*, UPDTDORD+9 |
| GMPLMSG | ASGNRPT+9~, ASGNRPT+18, CASECHK+1~, CASECHK+8, CASECHK+10!, CASECHK+27!, RSEQPROT+1~, RSEQPROT+13, UPCHKMNU+1~, UPDTDORD+1~ , UPDTDORD+13 |
| GMPLMSG("DIERR" | ASGNRPT+18, CASECHK+9, RSEQPROT+15, UPDTDORD+15 |
| GMPLOIEN | UPDTDORD+1~, UPDTDORD+2*, UPDTDORD+3, UPDTDORD+8, UPDTDORD+9 |
| GMPLOPT | POST+1~, POST+5*, POST+6, UPDTDORD+5~, UPDTDORD+6*, UPDTDORD+8, UPDTDORD+14 |
| GMPLOTXT | POST+1~, POST+5*, POST+6 |
| GMPLPIEN | RSEQPROT+1~, RSEQPROT+3*, RSEQPROT+4, RSEQPROT+5, RSEQPROT+6, RSEQPROT+8 |
| GMPLRSLT | DUPL+1~*, DUPL+3*, DUPL+4 |
| GMPLSLDA | SENDARPT+34~*, SENDARPT+39*, SENDARPT+40 |
| GMPLSLST | DUPCHK+1~, DUPCHK+5, DUPCHK+17!, SENDLIST~, SENDLIST+1 |
| GMPLSLST( | DUPCHK+6* |
| GMPLSLST("0" | DUPCHK+2* |
| GMPLST | SENDARPT+17~*, SENDARPT+21*, SENDARPT+22 |
| GMPLSUB | DUPL+1~*, DUPL+2*, DUPL+3 |
| GMPLSUC | ASGNRPT+9~, ASGNRPT+10*, ASGNRPT+18*, ASGNRPT+19 |
| GMPLTO | SENDARPT+1~, SENDARPT+41, SENDCRPT+1~, SENDCRPT+40, SENDDRPT+1~, SENDDRPT+24 |
| GMPLTO( | SENDARPT+6*, SENDCRPT+6*, SENDDRPT+6* |
| GMPLTO("G.OR | CACS" , SENDARPT+6*, SENDCRPT+6*, SENDDRPT+6* |
| GMPLTXT | ASGNRPT+1~, CASECHK+1~, CASECHK+25, DUPCHK+1~, DUPCHK+15, RSEQPROT+1~, RSEQPROT+16, UPCHKMNU+1~, UPCHKMNU+10, UPDTDORD+1~ , UPDTDORD+16 |
| GMPLTXT(1 | CASECHK+23*, DUPCHK+13*, RSEQPROT+14*, UPCHKMNU+8*, UPDTDORD+14* |
| GMPLTXT(2 | CASECHK+24*, DUPCHK+14*, RSEQPROT+15*, UPCHKMNU+9*, UPDTDORD+15* |
| GMPLULST | ASGNRPT+1~, ASGNRPT+2, ASGNRPT+4, ASGNRPT+5, ASGNRPT+20!, SENDARPT~, SENDARPT+16 |
| GMPLULST( | SENDARPT+20, SENDARPT+21 |
| GMPLUSNM | SENDARPT+34~*, SENDARPT+38*, SENDARPT+39, SENDARPT+40 |
| GMPLUSR | ASGNRPT+9~, ASGNRPT+10*, ASGNRPT+12*, ASGNRPT+13, ASGNRPT+14, ASGNRPT+15, SENDARPT+17~*, SENDARPT+20*, SENDARPT+21, SENDARPT+22 |
| GMPLVAL | UPDTDORD+5~, UPDTDORD+7*, UPDTDORD+10, UPDTDORD+11 |
| GMPXMSUB | SENDARPT+1~, SENDARPT+4*, SENDARPT+41, SENDCRPT+1~, SENDCRPT+4*, SENDCRPT+40, SENDDRPT+1~, SENDDRPT+4*, SENDDRPT+24 |
| SUB | SENDARPT+1~, SENDARPT+3*, SENDARPT+7, SENDARPT+8, SENDARPT+9, SENDARPT+10, SENDARPT+11, SENDARPT+12, SENDARPT+13, SENDARPT+14 , SENDARPT+15, SENDARPT+18, SENDARPT+19, SENDARPT+22, SENDARPT+23, SENDARPT+24, SENDARPT+27, SENDARPT+28, SENDARPT+31, SENDARPT+32 , SENDARPT+35, SENDARPT+36, SENDARPT+37, SENDARPT+40, SENDARPT+41, SENDCRPT+1~, SENDCRPT+3*, SENDCRPT+7, SENDCRPT+8, SENDCRPT+9 , SENDCRPT+10, SENDCRPT+11, SENDCRPT+12, SENDCRPT+13, SENDCRPT+14, SENDCRPT+15, SENDCRPT+17, SENDCRPT+18, SENDCRPT+20, SENDCRPT+21 , SENDCRPT+23, SENDCRPT+24, SENDCRPT+26, SENDCRPT+27, SENDCRPT+29, SENDCRPT+30, SENDCRPT+32, SENDCRPT+33, SENDCRPT+35, SENDCRPT+36 , SENDCRPT+38, SENDCRPT+39, SENDCRPT+40, SENDDRPT+1~, SENDDRPT+3*, SENDDRPT+7, SENDDRPT+8, SENDDRPT+9, SENDDRPT+10, SENDDRPT+11 , SENDDRPT+12, SENDDRPT+14, SENDDRPT+15, SENDDRPT+17, SENDDRPT+18, SENDDRPT+20, SENDDRPT+21, SENDDRPT+23, SENDDRPT+24 |
| U | CASECHK+9, CASECHK+18, PRE+18, PRE+19, RSEQPROT+7, SENDCRPT+26, SENDCRPT+38 |