PSO7L684 ;DAL/JCH - MIGRATION REPORT UTILITIES ;07/10/2022
Source file <PSO7L684.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 |
Package | Total | Caller Graph |
---|---|---|
Outpatient Pharmacy | 1 | PSO7L529 |
Name | Comments | DBIA/ICR reference |
---|---|---|
REMIG | ; Task DEA Migration
|
|
GETSTART() | ; Prompt for time to start DEA Migration
; Minimum time to start: 5 minutes into future. ; Maximum time to start: 72 hours into future. |
|
ASKRPTSCH(MIRESET) | ; Ask if user still wants to run report even though migration is scheduled to run in the future
|
|
ASKSCH2(HANDPSO) | ; Ask user if they really want obsolete report data, if they just scheduled the migration refresh
|
|
RPTDTHD(PSOPRINT,HANDPSO) | ; Report Pre-Header; Display Date/Time current report data was last compiled/migrated.
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | REMIG+12 |
^DIR | REMIG+17, GETSTART+15, ASKRPTSCH+18 |
INITXTMP^PSO7E684 | REMIG+21 |
$$DT^XLFDT | ASKRPTSCH+5 |
$$FMADD^XLFDT | REMIG+9, GETSTART+5, GETSTART+6, GETSTART+7 |
$$FMDIFF^XLFDT | ASKRPTSCH+5 |
$$FMTE^XLFDT | GETSTART+7, ASKRPTSCH+10, RPTDTHD+6 |
$$NOW^XLFDT | GETSTART+5, GETSTART+6, GETSTART+7, ASKRPTSCH+5 |
BMES^XPDUTL | REMIG+7, REMIG+14, REMIG+26 |
MES^XPDUTL | REMIG+15, REMIG+16, REMIG+20 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^XTMP( | REMIG+22*, REMIG+23*, REMIG+24, ASKRPTSCH+6*, ASKRPTSCH+8, ASKSCH2+2, RPTDTHD+2, RPTDTHD+4 |
^XTMP("PSO70684-INSTALL" | ASKRPTSCH+3 |
^XTMP("PSODEAWB" | RPTDTHD+3 |
Name | Line Occurrences |
---|---|
$$ASKRPTSCH | ASKSCH2+3 |
$$GETSTART | REMIG+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BEGDT | REMIG+2~, REMIG+9*, REMIG+22 |
DIR | REMIG+17!, GETSTART+4~, ASKRPTSCH+9~ |
DIR("?" | GETSTART+9*, GETSTART+10*, GETSTART+11*, GETSTART+12* |
DIR("??" | GETSTART+13* |
DIR("A" | REMIG+17*, GETSTART+14*, ASKRPTSCH+11*, ASKRPTSCH+12*, ASKRPTSCH+13*, ASKRPTSCH+14*, ASKRPTSCH+15*, ASKRPTSCH+16*, ASKRPTSCH+18* |
DIR("B" | GETSTART+14*, ASKRPTSCH+17* |
DIR(0 | REMIG+17*, GETSTART+8*, ASKRPTSCH+18* |
HANDPSO | REMIG+2~, REMIG+3*, REMIG+21, REMIG+22, REMIG+23, REMIG+24, ASKRPTSCH+6, ASKRPTSCH+8, ASKSCH2~, ASKSCH2+2 , RPTDTHD~, RPTDTHD+2 |
LASTMSG | RPTDTHD+1~, RPTDTHD+6*, RPTDTHD+7 |
LASTRUN | RPTDTHD+1~, RPTDTHD+4*, RPTDTHD+5, RPTDTHD+6 |
LIFE | REMIG+2~, REMIG+4*, REMIG+9, REMIG+21 |
MIBEG | GETSTART+4~, GETSTART+5*, GETSTART+8 |
MIDEF | GETSTART+4~, GETSTART+7*, GETSTART+14 |
MIEND | GETSTART+4~, GETSTART+6*, GETSTART+8 |
MIGSTAT | ASKSCH2+1~, ASKSCH2+2*, ASKSCH2+3 |
MIRESET | ASKRPTSCH~, ASKRPTSCH+7* |
MISCHDT | ASKRPTSCH+1~, ASKRPTSCH+3*, ASKRPTSCH+4, ASKRPTSCH+5, ASKRPTSCH+10 |
MISCHM | ASKRPTSCH+1~, ASKRPTSCH+10*, ASKRPTSCH+12 |
PHANDLE | RPTDTHD+1~, RPTDTHD+3*, RPTDTHD+4 |
PSOAST | ASKRPTSCH+1~, ASKRPTSCH+2*, ASKRPTSCH+11, ASKRPTSCH+15 |
PSOPRINT | ASKRPTSCH+18*, ASKRPTSCH+19, ASKSCH2+3*, ASKSCH2+4, RPTDTHD~ |
PSOTDTH | REMIG+1~, REMIG+6*, REMIG+9, REMIG+11 |
PURGDT | REMIG+2~, REMIG+9*, REMIG+22 |
STATUS | RPTDTHD+1~, RPTDTHD+2* |
TITLE | REMIG+2~, REMIG+3*, REMIG+12, REMIG+21, REMIG+22 |
X | GETSTART+4~ |
Y | GETSTART+4~, GETSTART+16, ASKRPTSCH+18 |
ZTDESC | REMIG+1~, REMIG+12* |
ZTDTH | REMIG+2~, REMIG+11* |
ZTIO | REMIG+1~, REMIG+12* |
ZTRTN | REMIG+1~, REMIG+12* |
ZTSAVE | REMIG+1~ |
ZTSAVE("DUZ" | REMIG+11* |
ZTSAVE("ZTDTH" | REMIG+11* |
>> ZTSK | REMIG+13, REMIG+19, REMIG+20 |