Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSO293P1

Package: Outpatient Pharmacy

Routine: PSO293P1


Information

PSO293P1 ;BIR/MFR-EXPIRATION DATE CLEAN UP (Cont.) ;01/13/08

Source Information

Source file <PSO293P1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  (BMES,MES)^XPDUTL  $$PROD^XUPROD  
VA Fileman 4 C^%DTC  ^DIE  ($$GET1,GETS)^DIQ  ^DIR  
MailMan 1 ^XMD  
Outpatient Pharmacy 1 RXACT^PSOBPSU2  
Registration 1 $$SITE^VASITE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO293PI  

Entry Points

Name Comments DBIA/ICR reference
LOG(COMMENT) ; Running Log
TOT(FLD) ; returns the field to be displayed
JOBSTS() ; Returns the current clean up job status
SETEXP ; SET EXPIRATION DATE
JOB(ZTDTH) ; Queue the job to run
MAIL ;
SETLN(TEXT) ; Add a new line to the mailman message text
DISPLAY ; Displays the current results
SETTXT ; Set the PSOTXT array with the Mailman message or screen display

External References

Name Field # of Occurrence
C^%DTC SETEXP+9
^%ZTLOAD JOB+6
^DIE SETEXP+11
$$GET1^DIQ SETTXT+13, SETTXT+54
GETS^DIQ SETEXP+2
^DIR DISPLAY+6
RXACT^PSOBPSU2 SETEXP+12
$$SITE^VASITE DISPLAY+2
$$FMTE^XLFDT SETTXT+7, SETTXT+9, SETTXT+13, SETTXT+53, SETEXP+12
$$NOW^XLFDT LOG+3
^XMD MAIL+16
BMES^XPDUTL JOB+10
MES^XPDUTL JOB+9
$$PROD^XUPROD MAIL+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,PSOTX(J)
  • Line Location: DISPLAY+5
Routine Call
  • DIE
  • Line Location:
    • SETEXP+11
Routine Call
  • DIR
  • Line Location:
    • DISPLAY+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PSDRUG - [#50] GETS^DIQ
^PS(59.7 - [#59.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP( SETTXT+7, SETTXT+9, SETTXT+11, SETTXT+43, SETTXT+50, SETTXT+51, SETTXT+52, TOT+1, JOB+4, JOBSTS+1
, JOBSTS+2, JOBSTS+3, JOBSTS+4, JOBSTS+5, LOG+2, LOG+3*

Label References

Name Line Occurrences
$$JOBSTS SETTXT+5
$$TOT SETTXT+19, SETTXT+20, SETTXT+21, SETTXT+22, SETTXT+26, SETTXT+27, SETTXT+28, SETTXT+32, SETTXT+33, SETTXT+34
, SETTXT+38, SETTXT+40
LOG JOB+8
SETLN SETTXT+3, SETTXT+4, 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+44, SETTXT+45, SETTXT+46, SETTXT+47, SETTXT+48, SETTXT+49, SETTXT+50
, SETTXT+55, SETTXT+56
SETTXT MAIL+14, DISPLAY+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SETEXP+1~
COMMENT LOG~, LOG+3
DA SETEXP+1~, SETEXP+10*
>> DAYSSUP SETEXP+4, SETEXP+8
DIE SETEXP+11*!
DIFROM MAIL+1~
DIR DISPLAY+1~, DISPLAY+6!
DIR("A" DISPLAY+6*
DIR(0 DISPLAY+6*
DR SETEXP+11*!
>> DRUG SETEXP+2, SETEXP+3
DUZ MAIL+2, JOB+5, LOG+3
EXCEL SETTXT+1~, SETTXT+43*, SETTXT+44
>> EXPIRDT SETEXP+9*, SETEXP+11, SETEXP+12
FLD TOT~, TOT+1
>> ISSUEDT SETEXP+4
J DISPLAY+1~, DISPLAY+4*, DISPLAY+5, DISPLAY+6, SETTXT+1~, SETTXT+43*, SETTXT+51*, SETTXT+52, SETTXT+53
JOBSTS SETTXT+1~, SETTXT+5*, SETTXT+6, SETTXT+7, SETTXT+8, SETTXT+9, SETTXT+10
LINE SETTXT+1~, SETTXT+2*, SETLN+1*
LOGCNT LOG+1~, LOG+2*, LOG+3
LOGLN SETTXT+1~, SETTXT+53*, SETTXT+54*, SETTXT+55
NMSP SETTXT+1~, SETTXT+2*, SETTXT+7, SETTXT+9, SETTXT+11, SETTXT+43, SETTXT+50, SETTXT+51, SETTXT+52, TOT+1
, JOB+4, JOBSTS+1, JOBSTS+2, JOBSTS+3, JOBSTS+4, JOBSTS+5, LOG+2, LOG+3
>> NUMREFS SETEXP+4
PSDEA SETEXP+1~, SETEXP+3*, SETEXP+6
PSOARR SETEXP+1~, SETEXP+2!
PSOARR(50 SETEXP+3
PSOCS SETEXP+1~, SETEXP+5*, SETEXP+6, SETEXP+7*, SETEXP+8
PSODUZ MAIL+2, JOB+1~, JOB+5*, SETEXP+12, LOG+3
PSOINST DISPLAY+1~, DISPLAY+2*, SETTXT+15, SETTXT+43
PSOTX MAIL+1~, DISPLAY+1~
PSOTX( DISPLAY+4, DISPLAY+5, SETLN+1*
QQ SETEXP+1~, SETEXP+6*
>> RXP SETEXP+10, SETEXP+12
STS SETTXT+1~, SETTXT+6*, SETTXT+7*, SETTXT+8*, SETTXT+9*, SETTXT+10*, SETTXT+11*, SETTXT+12
TEXT SETLN~, SETLN+1
X SETEXP+1~, SETEXP+9
X1 SETEXP+1~, SETEXP+4*
X2 SETEXP+1~, SETEXP+4*, SETEXP+8*
XMDUZ MAIL+1~, MAIL+3*
XMSUB MAIL+1~, MAIL+4*
XMTEXT MAIL+1~, MAIL+16*
XMY MAIL+1~
XMY( MAIL+2*
XMY("ANWER.MOHAMED@FORUM.VA.GOV" MAIL+7*
XMY("BRUUN.JESSE@FORUM.VA.GO" MAIL+12*
XMY("CONSENTINO.ALBERT@FORUM.VA.GOV" MAIL+10*
XMY("JONES.TRES@FORUM.VA.GOV" MAIL+11*
XMY("ROCHA.MARCELO@FORUM.VA.GOV" MAIL+13*
XMY("RUZBACKI.RON@FORUM.VA.GOV" MAIL+6*
XMY("WILLETTE.CANDY@FORUM.VA.GOV" MAIL+9*
XMY("WILLIAMSON.ERIC@FORUM.VA.GOV" MAIL+8*
XPDQUES JOB+12!
Z SETTXT+1~, SETTXT+52*, SETTXT+53, SETTXT+54
ZTDESC JOB+1~, JOB+3*
ZTDTH JOB~
ZTIO JOB+1~, JOB+2*
ZTRTN JOB+1~, JOB+2*
ZTSAVE JOB+1~
ZTSAVE("ACTION" JOB+5*
ZTSAVE("PSODUZ" JOB+5*
ZTSK JOB+1~, JOB+7, JOB+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All