PSO613P ;MCF - PSO*7*613 POST-INSTALL ROUTINE TO CLEAN UP CLOZAPINE REGISTRATION DATE. ;12/04/20
Source file <PSO613P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FGRND | ; Run in foreground
|
|
| QUE | ; Task to background
|
|
| EN | ; Main entry point to clean up clozapine registration date.
|
|
| REGDATE | ; LOOP THROUGH #55 and find bad date time stamps
|
|
| ;Send message
|
||
| RESTORE | ; LOOP THROUGH ^XTMP and RESTORE bad date time stamps
|
|
| INIT | ; Initialize variables DGPREFIX, DGSRVR, DGREGION, and DGKEY
; |
|
| REIX5252 | ; Reindex new AC Mumps type cross reference in file 52.52
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | QUE+19 |
| FILE^DIE | REGDATE+10, RESTORE+11 |
| ENALL^DIK | REIX5252+4 |
| $$GET1^DIQ | REGDATE+3 |
| $$DT^XLFDT | INIT+2 |
| $$FMADD^XLFDT | INIT+2 |
| $$FMTH^XLFDT | QUE+5, MAIL+2 |
| $$HTE^XLFDT | QUE+9, EN+2, MAIL+2 |
| $$NOW^XLFDT | QUE+5, MAIL+2, INIT+2 |
| ^XMD | MAIL+10 |
| BMES^XPDUTL | QUE+7, QUE+22, QUE+24, RESTORE+3, RESTORE+6, RESTORE+12, INIT+6, INIT+7 |
| MES^XPDUTL | QUE+8, QUE+9, QUE+10, QUE+11, QUE+12, QUE+21 |
| FileNo | Call Tags |
|---|---|
| ^PS(52.52 - [#52.52] | Classic Fileman Calls |
| ^PS(55 - [#55] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(55 - [#55] | REGDATE+2 |
| ^TMP("PSOTEXT" | MAIL+5*, MAIL+6*, MAIL+7*, MAIL+11! |
| ^XTMP("PSO613P" | REGDATE+9*, RESTORE+5, RESTORE+7, INIT+4* |
| Name | Field # of Occurrence |
|---|---|
| ^( | RESTORE+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIFROM | MAIL+1~ |
| DIK | REIX5252+1~, REIX5252+2* |
| DIK(1 | REIX5252+3* |
| DUZ | MAIL+4, MAIL+9 |
| FGRND | FGRND+1~*, QUE+15 |
| I | MAIL+1~ |
| JOBN | QUE+1~, QUE+3*, QUE+8, QUE+14, QUE+16 |
| NAMSP | QUE+1~, QUE+2*, QUE+17 |
| PATCH | QUE+1~, QUE+4* |
| >> PS90 | INIT+2*, INIT+4 |
| PSCNT | EN+1~, REGDATE+5*, REGDATE+6, MAIL+7, RESTORE+1~, RESTORE+4*, RESTORE+8*, RESTORE+9, RESTORE+12, INIT+5* |
| >> PSDESC | INIT+3*, INIT+4 |
| PSDFN | EN+1~, REGDATE+1*, REGDATE+2*, REGDATE+3, REGDATE+8, REGDATE+9, RESTORE+1~, RESTORE+4*, RESTORE+7*, RESTORE+10 |
| PSLAST | RESTORE+1~, RESTORE+5*, RESTORE+6, RESTORE+7 |
| PSNEW | EN+1~, REGDATE+7*, REGDATE+8 |
| >> PSNOW | REGDATE+9, INIT+2*, INIT+4, INIT+7 |
| PSREG | EN+1~ |
| PSREG(55 | REGDATE+8*, RESTORE+10* |
| PSVAL | EN+1~, REGDATE+3*, REGDATE+4, REGDATE+7, REGDATE+9, RESTORE+1~, RESTORE+7*, RESTORE+10 |
| REG | RESTORE+1~ |
| RESTART | QUE+1~ |
| SBJM | QUE+1~, QUE+14*, QUE+16*, MAIL+8 |
| STARTH | EN+1~, EN+2*, MAIL+5 |
| >> STOPH | MAIL+2*, MAIL+6 |
| XMDUZ | MAIL+1~, MAIL+3*, MAIL+8* |
| XMSUB | MAIL+1~, MAIL+8* |
| XMTEXT | MAIL+1~, MAIL+8* |
| XMY | MAIL+1~ |
| XMY( | MAIL+4*, MAIL+9* |
| XPDQUES | QUE+25! |
| Y | QUE+1~, QUE+5*, MAIL+2* |
| ZTDESC | QUE+1~, QUE+16* |
| ZTDTH | QUE+1~, QUE+5*, QUE+9, EN+2 |
| ZTIO | QUE+1~, QUE+17* |
| ZTQUEUED | QUE+1~ |
| ZTREQ | QUE+1~ |
| ZTRTN | QUE+1~, QUE+17* |
| ZTSAVE | QUE+1~ |
| ZTSAVE("DUZ" | QUE+18* |
| ZTSAVE("JOBN" | QUE+18* |
| ZTSAVE("SBJM" | QUE+18* |
| ZTSAVE("ZTDTH" | QUE+18* |
| ZTSAVE("ZTSK" | QUE+23* |
| ZTSK | QUE+1~, QUE+20, QUE+21, MAIL+5, RESTORE+3, RESTORE+12, INIT+6, INIT+7 |
