Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
QUIT ;
EN ;
STP ;
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
STATUS ;show status of job running
STOP ;stop job command
ST() ;status
INITXTMP(NAMSP,TITLE,LIFE) ;create ^Xtmp according to SAC std
NAMSP() ;
MAIL ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call