PSN576PO ;BP/AGV - Patch 576 Post Install routine ;7/11/24
Source file <PSN576PO.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ; post install routine to initialize PGx field values
|
|
| SETNO | ; sets all values to '0' in the PGX ELIGIBILE and PGX SUPPRESSED fields in the VA PRODUCT (#50.68) and DRUG INGREDIENTS (#50.416) files
|
|
| SETYES | ; sets values for specified entries to '1' in the PGX ELIGIBLE and PGX SUPPRESSED fields in the VA PRODUCT (#50.68) and DRUG INGREDIENTS (#50.416) files
|
|
| ; sends mailman message
|
||
| ERROR | ; an error condition needs to be reported
|
|
| SETTXT(PSNTXT) | ; setting plain PSNTEXT
|
|
| PGXVPE | ; PGX ELIGIBLE (#46) field is set to '1' in the VA PRODUCT (#50.68) file for below specified records
|
|
| PGXVPS | ; PGX SUPPRESSED (#47) field is set to '1' in the VA PRODUCT (#50.68) file for below specified records
|
|
| PGXDIE | ; PGX ELIGIBLE (#5) field is set to '1' in the DRUG INGREDIENTS (#50.416) file for below specified records
|
|
| PGXDIS | ; PGX SUPPRESSED (#6) field is set to '1' in the DRUG INGREDIENTS (#50.416) file for below specified records
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(50.416 - [#50.416] | SETNO+13, SETNO+14* |
| ^PSNDF(50.68 - [#50.68] | POST+2!, SETNO+4, SETNO+5* |
| ^TMP("PSN576PO" | POST+2!, SETTXT+1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIFROM | MAIL+1~ |
| DUZ | MAIL+3 |
| P1 | SETYES+1~, SETYES+5*, SETYES+7*, SETYES+19*, SETYES+21* |
| PSNCNT | POST+1~, POST+4*, POST+8*, POST+12*, SETNO+1~*, SETNO+5*, SETNO+6*, SETNO+10~*, SETNO+14*, SETNO+15* , SETYES+2*, SETYES+6*, SETYES+8*, SETYES+16* |
| PSNERR | SETYES+1~, SETYES+15~ |
| PSNERR("DIERR" | SETYES+10, SETYES+24, ERROR+5 |
| PSNFDA | SETYES+1~, SETYES+15~ |
| PSNFDA( | SETYES+6*, SETYES+8*, SETYES+20*, SETYES+22* |
| PSNFILE | SETYES+1~, SETYES+2*, SETYES+6, SETYES+8, SETYES+15~, SETYES+16*, SETYES+20, SETYES+22 |
| PSNIEN | SETYES+1~, SETYES+6*, SETYES+8*, SETYES+15~, SETYES+20*, SETYES+22* |
| PSNLINE | POST+1~*, SETTXT+1* |
| PSNSTR | SETYES+1~, SETYES+5*, SETYES+6, SETYES+7*, SETYES+8, SETYES+19*, SETYES+20, SETYES+21*, SETYES+22 |
| PSNTEXT | POST+1~*, POST+4*, POST+5, POST+8*, POST+9, POST+12*, POST+13, SETNO+1~*, SETNO+2*, SETNO+3 , SETNO+4*, SETNO+6*, SETNO+7*, SETNO+8, SETNO+10~*, SETNO+11*, SETNO+12, SETNO+13*, SETNO+15*, SETNO+16* , SETNO+17, SETYES+2*, SETYES+3*, SETYES+4, SETYES+11*, SETYES+12*, SETYES+13, SETYES+16*, SETYES+17*, SETYES+18 , SETYES+25*, SETYES+26*, SETYES+27, ERROR+1*, ERROR+2, ERROR+3*, ERROR+4, ERROR+5*, ERROR+6, ERROR+7* , ERROR+8 |
| PSNTXT | SETTXT~, SETTXT+1 |
| X | SETNO+4~*, SETNO+5, SETNO+13~*, SETNO+14, SETYES+11*, SETYES+25* |
| XMDUZ | MAIL+1~, MAIL+4* |
| XMSUB | MAIL+1~, MAIL+3* |
| XMTEXT | MAIL+1~, MAIL+4* |
| XMY | MAIL+1~ |
| XMY( | MAIL+3* |
