PSO283P1 ;BIR/MFR-EXPIRATION DATE PROBLEM TALLY (Cont.) ;05/03/07
Source file <PSO283P1.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 | PSO283PI |
Name | Comments | DBIA/ICR reference |
---|---|---|
;
|
||
DISPLAY | ; Displays the current results
|
|
SETTXT | ; Set the PSOTXT array with the Mailman message or screen display
|
|
SETLN(TEXT) | ; Add a new line to the mailman message text
|
|
TOT(FLD) | ; returns the field to be displayed
|
|
JOB(ZTDTH) | ; Queue the job to run
|
|
JOBSTS() | ; Returns the current job status
|
|
CALCEXP | ; CALCULATE THE EXPIRATION DATE
|
|
LOG(COMMENT) | ; Running Log
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^PSDRUG - [#50] | GETS^DIQ |
Name | Line Occurrences |
---|---|
$$JOBSTS | SETTXT+5 |
$$TOT | SETTXT+17, SETTXT+18, SETTXT+19, SETTXT+20, SETTXT+24, SETTXT+25, SETTXT+26, SETTXT+30, SETTXT+31, SETTXT+32 , SETTXT+36, SETTXT+40, SETTXT+42 |
LOG | JOB+8 |
SETLN | SETTXT+3, SETTXT+4, SETTXT+11, SETTXT+12, SETTXT+13, SETTXT+14, SETTXT+15, SETTXT+16, SETTXT+17, SETTXT+18 , SETTXT+19, SETTXT+20, SETTXT+21, SETTXT+22, SETTXT+23, SETTXT+24, SETTXT+25, SETTXT+26, SETTXT+27, SETTXT+28 , SETTXT+29, SETTXT+30, SETTXT+31, SETTXT+32, SETTXT+33, SETTXT+34, SETTXT+35, SETTXT+36, SETTXT+37, SETTXT+38 , SETTXT+39, SETTXT+40, SETTXT+41, SETTXT+42, SETTXT+43, SETTXT+44, SETTXT+46, SETTXT+47, SETTXT+48, SETTXT+50 , SETTXT+51, SETTXT+52, SETTXT+53, SETTXT+54, SETTXT+55, SETTXT+56, SETTXT+61, SETTXT+62 |
SETTXT | MAIL+12, DISPLAY+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | CALCEXP+1~ |
COMMENT | LOG~, LOG+3 |
DA | CALCEXP+1~ |
>> DAYSSUP | CALCEXP+4, CALCEXP+8 |
DIFROM | MAIL+1~ |
DIR | DISPLAY+1~, DISPLAY+6! |
DIR("A" | DISPLAY+6* |
DIR(0 | DISPLAY+6* |
>> DRUG | CALCEXP+2, CALCEXP+3 |
DUZ | MAIL+2, JOB+5, LOG+3 |
EXCEL | SETTXT+1~, SETTXT+45*, SETTXT+46, SETTXT+49*, SETTXT+50 |
>> EXPIRDT | CALCEXP+9* |
FLD | TOT~, TOT+1 |
>> ISSUEDT | CALCEXP+4 |
J | DISPLAY+1~, DISPLAY+4*, DISPLAY+5, DISPLAY+6, SETTXT+1~, SETTXT+45*, SETTXT+49*, SETTXT+57*, SETTXT+58, SETTXT+59 |
JOBSTS | SETTXT+1~, SETTXT+5*, SETTXT+6, SETTXT+7, SETTXT+8, SETTXT+9 |
LINE | SETTXT+1~, SETTXT+2*, SETLN+1* |
LOGCNT | LOG+1~, LOG+2*, LOG+3 |
LOGLN | SETTXT+1~, SETTXT+59*, SETTXT+60*, SETTXT+61 |
NMSP | SETTXT+1~, SETTXT+2*, SETTXT+7, SETTXT+9, SETTXT+10, SETTXT+45, SETTXT+49, SETTXT+50, SETTXT+56, SETTXT+57 , SETTXT+58, TOT+1, JOB+4, JOBSTS+1, JOBSTS+2, JOBSTS+3, JOBSTS+4, LOG+2, LOG+3 |
>> NUMREFS | CALCEXP+4 |
PSDEA | CALCEXP+1~, CALCEXP+3*, CALCEXP+6 |
PSOARR | CALCEXP+1~, CALCEXP+2! |
PSOARR(50 | CALCEXP+3 |
PSOCS | CALCEXP+1~, CALCEXP+5*, CALCEXP+6, CALCEXP+7*, CALCEXP+8 |
PSODUZ | MAIL+2, JOB+1~, JOB+5*, LOG+3 |
PSOINST | DISPLAY+1~, DISPLAY+2*, SETTXT+13, SETTXT+45, SETTXT+49 |
PSOTX | MAIL+1~, DISPLAY+1~ |
PSOTX( | DISPLAY+4, DISPLAY+5, SETLN+1* |
CALCEXP+1~, CALCEXP+6* | |
STS | SETTXT+1~, SETTXT+6*, SETTXT+7*, SETTXT+8*, SETTXT+9*, SETTXT+10*, SETTXT+11 |
TEXT | SETLN~, SETLN+1 |
X | CALCEXP+1~, CALCEXP+9 |
X1 | CALCEXP+1~, CALCEXP+4* |
X2 | CALCEXP+1~, CALCEXP+4*, CALCEXP+8* |
XMDUZ | MAIL+1~, MAIL+3* |
XMSUB | MAIL+1~, MAIL+4* |
XMTEXT | MAIL+1~, MAIL+14* |
XMY | MAIL+1~ |
XMY( | MAIL+2* |
XMY("ANWER.MOHAMED@DOMAIN.EXT" | MAIL+6* |
XMY("BARRON.LUANNE@DOMAIN.EXT" | MAIL+10* |
XMY("JONES.TRES@DOMAIN.EXT" | MAIL+11* |
XMY("ROCHA.MARCELO@DOMAIN.EXT" | MAIL+9* |
XMY("RUZBACKI.RON@DOMAIN.EXT" | MAIL+5* |
XMY("WILLETTE.CANDY@DOMAIN.EXT" | MAIL+8* |
XMY("WILLIAMSON.ERIC@DOMAIN.EXT" | MAIL+7* |
XPDQUES | JOB+12! |
Z | SETTXT+1~, SETTXT+58*, SETTXT+59, SETTXT+60 |
ZTDESC | JOB+1~, JOB+3* |
ZTDTH | JOB~ |
ZTIO | JOB+1~, JOB+2* |
ZTRTN | JOB+1~, JOB+2* |
ZTSAVE | JOB+1~ |
ZTSAVE("PSODUZ" | JOB+5* |
ZTSK | JOB+1~, JOB+7, JOB+9 |