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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSOTEXP1

Package: Outpatient Pharmacy

Routine: PSOTEXP1


Information

PSOTEXP1 ;BIR/LE-Tally Missing Expiration Dates ;06/14/06

Source Information

Source file <PSOTEXP1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 DD^%DT  NOW^%DTC  GETS^DIQ  ^DIR  
Kernel 3 ^%ZTLOAD  ($$DT,$$FMADD,$$FMTE,$$FMTH,$$HTE,$$NOW)^XLFDT  (BMES,MES)^XPDUTL  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
STATUS ;show status of job running
QUIT ;
SET ;Data collected and stored:
; Piece 1 - Pre-install v7 active Rx's with null expiration date
; Piece 2 - Pre-install v7 inactive Rx's with null expiration date
; Piece 3 - Post-install v7 active Rx's with null expiration
; Piece 4 - Post-install v7 inactive Rx's with null expiration
; Piece 5 - total Rx's with null expiration date
; Piece 6 - total active Rx's with expire date of t-1 day
INITXTMP(NAMSP,TITLE,LIFE) ;create ^Xtmp according to SAC std
NAMSP() ;
STOP ;stop job command
EN ;
STP ;
MAIL ;
ST() ;status

External References

Name Field # of Occurrence
DD^%DT EN+9, MAIL+3
NOW^%DTC EN+9, MAIL+3
^%ZTLOAD PSOTEXP1+53
GETS^DIQ EN+25
^DIR PSOTEXP1+30
$$DT^XLFDT EN+10
$$FMADD^XLFDT INITXTMP+3
$$FMTE^XLFDT PSOTEXP1+18, STATUS+4, STATUS+5, STATUS+10, MAIL+4
$$FMTH^XLFDT PSOTEXP1+31, PSOTEXP1+34
$$HTE^XLFDT PSOTEXP1+38
$$NOW^XLFDT PSOTEXP1+31, PSOTEXP1+42, PSOTEXP1+45, PSOTEXP1+47, EN+5, EN+24, EN+38, INITXTMP+2
^XMD MAIL+29
BMES^XPDUTL PSOTEXP1+9, PSOTEXP1+36, PSOTEXP1+40, PSOTEXP1+56, PSOTEXP1+57
MES^XPDUTL PSOTEXP1+10, PSOTEXP1+37, PSOTEXP1+38, PSOTEXP1+39, PSOTEXP1+55

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"This job has been run before to completion on "
  • Line Location: PSOTEXP1+17
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P($G(^XTMP(NAMSP,0,"LAST")),"^",2)),!!
  • Line Location: PSOTEXP1+18
Function Call: WRITE
  • Prompt: "If you want to run it again, the global subscript ^XTMP('PSOTEXP1') must be",!
  • Line Location: PSOTEXP1+19
Function Call: WRITE
  • Prompt: "deleted prior to doing so.",!!
  • Line Location: PSOTEXP1+20
Function Call: WRITE
  • Prompt: !,"Halting..."
  • Line Location: PSOTEXP1+30
Function Call: WRITE
  • Prompt: !,"Currently processing:"
  • Line Location: STATUS+2
Function Call: WRITE
  • Prompt: !,"COMPLETED ON ",$$FMTE^XLFDT($P($G(^XTMP($$NAMSP,0,"LAST")),"^",2)),!
  • Line Location: STATUS+4
Function Call: WRITE
  • Prompt: !?5,"Date being processed > ",$$FMTE^XLFDT($P(^XTMP($$NAMSP,0,"LAST"),"^",3))
  • Line Location: STATUS+5
Function Call: WRITE
  • Prompt: !?5," RX # > ",$P(^XTMP($$NAMSP,0,"LAST"),"^",4)
  • Line Location: STATUS+6
Function Call: WRITE
  • Prompt: !,"COMPLETED ON ",$$FMTE^XLFDT($P($G(^XTMP($$NAMSP,0,"LAST")),"^",2)),!
  • Line Location: STATUS+10
Function Call: WRITE
  • Prompt: !,"TALLY MISSING EXPIRATION DATES Job - set to STOP Soon"
  • Line Location: STOP+2
Function Call: WRITE
  • Prompt: !!,"Check Status to be sure it has stopped and is not running..."
  • Line Location: STOP+3
Function Call: WRITE
  • Prompt: !," (D STATUS^PSOTEXP1)"
  • Line Location: STOP+4
Function Call: WRITE
  • Prompt: !,"*** NOT CURRENTLY RUNNING! ***",!
  • Line Location: ST+3
Routine Call
  • DIR
  • Line Location:
    • PSOTEXP1+30

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] EN+18
^DPT - [#2] EN+30
^PS(59.7 - [#59.7] EN+13
^PSDRUG - [#50] EN+30
^PSRX - [#52] EN+22
^XMB(1 - [#4.3] EN+18
^XTMP( PSOTEXP1+8, PSOTEXP1+13, PSOTEXP1+16, PSOTEXP1+18, PSOTEXP1+42*, PSOTEXP1+44, PSOTEXP1+45*, PSOTEXP1+47*, PSOTEXP1+52, QUIT+1
, EN+3, EN+5*, EN+11, EN+21!, EN+23, EN+24*, EN+35*, EN+38*, STP+1, STP+2*
, SET+10*, SET+11*, SET+13*, SET+14*, SET+15*, SET+18*, STATUS+3, STATUS+4, STATUS+5, STATUS+6
, STATUS+9, STATUS+10, STOP+1*, ST+1, ST+2, INITXTMP+4*, MAIL+24, MAIL+25

Label References

Name Line Occurrences
$$NAMSP PSOTEXP1+4, EN+1, STATUS+3, STATUS+4, STATUS+5, STATUS+6, STATUS+9, STATUS+10, STOP+1, ST+1
, ST+2
$$ST STATUS+1, STOP+1
INITXTMP PSOTEXP1+13
MAIL EN+39
QUIT PSOTEXP1+11, PSOTEXP1+21, PSOTEXP1+24, PSOTEXP1+40
SET EN+36
STP EN+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+9, MAIL+3, MAIL+4
BEGDT INITXTMP+1~, INITXTMP+2*, INITXTMP+3, INITXTMP+4
CC EN+7~, EN+22*
DATA MAIL+1~, MAIL+25*, MAIL+26
DFN EN+7~, EN+26*, EN+29, EN+30
DIFROM MAIL+29~
>> DILOCKTM PSOTEXP1+8
DIR PSOTEXP1+25!
DIR("?" PSOTEXP1+29*
DIR("A" PSOTEXP1+26*
DIR("B" PSOTEXP1+27*
DIR(0 PSOTEXP1+28*
DT EN+10*, SET+18
DTOUT PSOTEXP1+3~, PSOTEXP1+31
DUOUT PSOTEXP1+3~, PSOTEXP1+30
DUZ MAIL+5
J MAIL+1~
JOBN PSOTEXP1+3~, PSOTEXP1+5*, PSOTEXP1+9, PSOTEXP1+13, PSOTEXP1+26, PSOTEXP1+37, PSOTEXP1+40, PSOTEXP1+50, EN+1*, STP+4!
, MAIL+6, MAIL+7, MAIL+12
L MAIL+1~, MAIL+23*, MAIL+26*, MAIL+27*
LEN MAIL+1~, MAIL+2*, MAIL+26
LIFE INITXTMP~, INITXTMP+3
LIN MAIL+1~, MAIL+2*, MAIL+26
M MAIL+1~
NAMSP PSOTEXP1+3~, PSOTEXP1+4*, PSOTEXP1+8, PSOTEXP1+13, PSOTEXP1+16, PSOTEXP1+18, PSOTEXP1+42, PSOTEXP1+44, PSOTEXP1+45, PSOTEXP1+47
, PSOTEXP1+52, QUIT+1, EN+1~*, EN+3, EN+5, EN+11, EN+21, EN+23, EN+24, EN+35
, EN+38, STP+1, STP+2, SET+10, SET+11, SET+13, SET+14, SET+15, SET+18, INITXTMP~
, INITXTMP+4, MAIL+24, MAIL+25
PATCH PSOTEXP1+3~, PSOTEXP1+6*, PSOTEXP1+13, PSOTEXP1+50, EN+1~*, MAIL+6, MAIL+7, MAIL+13
PSOACT EN+7~, EN+20*, SET+10, SET+13, SET+18
PSOARR EN+7~, EN+25!
PSOARR(52 EN+26, EN+27, EN+33
PSODRUG EN+7~, EN+26*, EN+29, EN+30
PSOEND MAIL+1~, MAIL+3*, MAIL+14
PSOEND2 MAIL+1~, MAIL+4*
PSOEXP EN+7~, EN+33*, SET+8, SET+18
PSOINACT EN+7~, EN+20*, SET+11, SET+14
PSOINST EN+7~, EN+18*, EN+19*, SET+10, SET+11, SET+13, SET+14, SET+15, SET+18, MAIL+1~
, MAIL+23*, MAIL+24*, MAIL+25, MAIL+26
PSOISS EN+7~, EN+27*, EN+31, EN+35, SET+9, SET+12
PSOS1 EN+7~, EN+9*
PSOSTA EN+7~, EN+26*, SET+10, SET+11, SET+13, SET+14, SET+18
PSOSTART EN+7~, EN+9*, MAIL+13
PSOTEXT MAIL+1~
PSOTEXT( MAIL+26*, MAIL+27*
PSOTEXT(1 MAIL+12*
PSOTEXT(10 MAIL+21*
PSOTEXT(11 MAIL+22*
PSOTEXT(2 MAIL+13*
PSOTEXT(3 MAIL+14*
PSOTEXT(4 MAIL+15*
PSOTEXT(5 MAIL+16*
PSOTEXT(6 MAIL+17*
PSOTEXT(7 MAIL+18*
PSOTEXT(8 MAIL+19*
PSOTEXT(9 MAIL+20*
PSOV7 EN+7~, EN+13*, EN+14*, SET+9, SET+12
PURGDT INITXTMP+1~, INITXTMP+3*, INITXTMP+4
QUIT PSOTEXP1+3~, PSOTEXP1+14*
RXE EN+7~, EN+33*
RXP EN+7~, EN+11*, EN+21*, EN+22*, EN+25, EN+26, EN+27, EN+33, EN+35
STOP EN+21~*, EN+22, EN+24*, EN+37
TITLE INITXTMP~, INITXTMP+4
XMDUZ MAIL+6*, MAIL+29!
XMSUB MAIL+7*, MAIL+29!
XMTEXT MAIL+29*!
XMY MAIL+1~
XMY( MAIL+5*
XMY("" MAIL+11
XMY("ELLZEY.LINDA@FORUM.VA.GOV" MAIL+8*
XMY("WHITE.ELAINE@FORUM.VA.GOV" MAIL+9*
XMY("WILLIAMSON.ERIC@FORUM.VA.GOV" MAIL+10*
XPDQUES PSOTEXP1+58!
XPDQUES("POS2" PSOTEXP1+24, PSOTEXP1+34
Y PSOTEXP1+3~, PSOTEXP1+31*, EN+7~, EN+9*, MAIL+3*
ZTDESC PSOTEXP1+3~, PSOTEXP1+50*
ZTDTH PSOTEXP1+3~, PSOTEXP1+24, PSOTEXP1+30*, PSOTEXP1+31*, PSOTEXP1+34*, PSOTEXP1+38, PSOTEXP1+40
ZTIO PSOTEXP1+3~, PSOTEXP1+49*
ZTQUEUED PSOTEXP1+3~, EN+4, STP+3
ZTREQ PSOTEXP1+3~, EN+4*, STP+3*
ZTRTN PSOTEXP1+3~, PSOTEXP1+49*
ZTSAVE PSOTEXP1+3~
ZTSAVE("JOBN" PSOTEXP1+51*
ZTSK PSOTEXP1+3~, PSOTEXP1+54, PSOTEXP1+55

Marked Items

Name Field # of Occurrence
$T( NAMSP+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All