©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSAP56 ;VMP/PDW-DUPLICATE REMOVAL ;93/17/2006
Source file <PSAP56.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | ^DIK $$GET1^DIQ |
| MailMan | 1 | ^XMD |
| Registration | 1 | $$SETSTR^VALM1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| DUPS | ;compare synonyms of the identical VSN/drug found
|
|
| DRIEN | ;work the specific drug
|
|
| SYN | ;report the individual synonym that had duplicates deleted
|
|
| NOMSG | ; report no duplicates found to remove.
|
|
| LOGDUP | ;
|
|
| DRDA | ;process drug:VSN
|
|
| MAILMSG | ; generate mail message of duplicates deleted.
|
|
| TXT(VAL,COL) | ||
| EXIT | ;
|
|
| MORE | ;
|
|
| MMLN | ||
| SYNDR | ; work synonyms under a drug
|
|
| VSN | ;
|
|
| DELETE | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSDRUG - [#50] | MORE+3, LOGDUP+1, SYN+3 |
| ^PSDRUG("AVSN" | EN+2, VSN+1, DRDA+3, DRDA+5, MORE+2 |
| ^TMP($J | LOGDUP+2*, MAILMSG+1!, MAILMSG+3, MAILMSG+8, DRIEN+1, SYNDR+1, MMLN*, EXIT+2! |
| Name | Line Occurrences |
|---|---|
| DELETE | DUPS+6 |
| DRDA | VSN+1 |
| DRIEN | MAILMSG+8 |
| EXIT | EN+1, EN+3 |
| LOGDUP | DUPS+7 |
| MAILMSG | EN+3 |
| MMLN | MAILMSG+5, MAILMSG+6, MAILMSG+7, SYN+6, SYN+7, NOMSG+1, NOMSG+2, NOMSG+3 |
| MORE | DRDA+5 |
| NOMSG | MAILMSG+4 |
| SYN | SYNDR+1 |
| SYNDR | DRIEN+1 |
| TXT | MAILMSG+7, SYN+6, SYN+7 |
| VSN | EN+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COL | TXT~, EXIT+1! |
| >> DA | DELETE+4*, SYN+3* |
| >> DA(1 | DELETE+4*, SYN+3*, SYN+5* |
| DDOU | EXIT+1! |
| DIFROM | MAILMSG+2~ |
| DIK | DELETE+4!*, EXIT+1! |
| DRDA | VSN+1*, DRDA+3, DRDA+5, MORE+2, MORE+3, DELETE+4, LOGDUP+1, LOGDUP+2, DRIEN+1*, SYNDR+1 , SYN+3, SYN+5, SYN+6, EXIT+1! |
| DRGNM | LOGDUP+1*, LOGDUP+2, MAILMSG+8*, DRIEN+1, SYNDR+1, SYN+6, EXIT+1! |
| DUOU | SYN+4*, SYN+7, EXIT+1! |
| DUZ | MAILMSG+11, NOMSG+6 |
| IENS | SYN+3*, SYN+5, EXIT+1! |
| MMLC | MMLN*, EXIT+1! |
| N1 | DUPS+4*, DELETE+2*, DELETE+3, EXIT+1! |
| N2 | DUPS+4*, DELETE+3*, DELETE+4, DELETE+5, DELETE+6, EXIT+1! |
| NDC | SYN+4*, SYN+6, EXIT+1! |
| OU | SYN+5*, SYN+7, EXIT+1! |
| PPDU | SYN+4*, SYN+7, EXIT+1! |
| PPOU | SYN+4*, SYN+7, EXIT+2! |
| RXCNT | VSN+1*, EXIT+1! |
| SYCNT | DRDA+2!, MORE+1!, MORE+3*, DUPS+4, EXIT+1! |
| SYDA | DRDA+3*, DRDA+5, MORE+4*, EXIT+1! |
| SYDAL | LOGDUP+2*, EXIT+2! |
| SYN0 | DRDA+2!, MORE+1!, SYN+3*, EXIT+1!, EXIT+2! |
| SYN0( | MORE+3*, DUPS+4 |
| SYNDA | SYNDR+1*, SYN+3, SYN+6, EXIT+2! |
| SYNDC | DRDA+2!, MORE+1!, EXIT+2! |
| SYNDC( | DELETE+5! |
| SYNDUP | DRDA+2!, MORE+1!, DUPS+1!, DUPS+5, DELETE+1, EXIT+2! |
| SYNDUP( | DUPS+4*, DELETE+2, DELETE+3, DELETE+6!, LOGDUP+2 |
| SYNFLD | SYN+1!, EXIT+2! |
| SYNIEN | DRDA+2!, MORE+1!, MORE+2*, MORE+3, MORE+4, EXIT+2! |
| SYNIEN( | MORE+3*, DELETE+4, LOGDUP+2 |
| U | LOGDUP+1, SYN+4 |
| VAL | TXT~, EXIT+2! |
| VSN | EN+2*, VSN+1, DRDA+3, DRDA+5, MORE+2, SYN+4*, SYN+6, EXIT+2! |
| >> X | MAILMSG+5*, MAILMSG+6*, MAILMSG+7*, SYN+3*, SYN+4, SYN+6*, SYN+7*, MMLN, TXT*, NOMSG+1* , NOMSG+2*, NOMSG+3* |
| >> XMDUZ | MAILMSG+10*, NOMSG+5* |
| >> XMSUB | MAILMSG+9*, NOMSG+4* |
| >> XMTEXT | MAILMSG+10*, NOMSG+5* |
| >> XMY( | MAILMSG+11*, NOMSG+6* |