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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSO7P274

Package: Outpatient Pharmacy

Routine: PSO7P274


Information

PSO7P274 ;SMT - PSO*7*274 Activity Log Cleanup ; 10/11/07 12:16pm

Source Information

Source file <PSO7P274.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$FMADD,$$FMTE,$$FMTH,$$HTE,$$NOW)^XLFDT  (BMES,MES)^XPDUTL  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;
STATUS ;show status of job running
STOP ;stop job command
ST() ;status
INITXTMP(NAMSP,TITLE,LIFE) ;create ^Xtmp according to SAC std
NAMSP() ;
EN ;

External References

Name Field # of Occurrence
^%ZTLOAD PSO7P274+56
^DIR PSO7P274+33
$$FMADD^XLFDT INITXTMP+3
$$FMTE^XLFDT PSO7P274+21, STATUS+4, STATUS+5, STATUS+10
$$FMTH^XLFDT PSO7P274+34, PSO7P274+37
$$HTE^XLFDT PSO7P274+41
$$NOW^XLFDT PSO7P274+34, PSO7P274+45, PSO7P274+48, PSO7P274+50, INITXTMP+2
BMES^XPDUTL PSO7P274+12, PSO7P274+39, PSO7P274+43, PSO7P274+59, PSO7P274+60
MES^XPDUTL PSO7P274+13, PSO7P274+40, PSO7P274+41, PSO7P274+42, PSO7P274+58

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"This job has been run before to completion on "
  • Line Location: PSO7P274+20
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P($G(^XTMP(NAMSP,0,"LAST")),"^",2)),!!
  • Line Location: PSO7P274+21
Function Call: WRITE
  • Prompt: "If you want to run it again, the global subscript ^XTMP('"_NAMSP_"') must be",!
  • Line Location: PSO7P274+22
Function Call: WRITE
  • Prompt: "deleted prior to doing so.",!!
  • Line Location: PSO7P274+23
Function Call: WRITE
  • Prompt: !,"Halting..."
  • Line Location: PSO7P274+33
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:
    • PSO7P274+33

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX - [#52] EN+2, EN+3*
^XTMP( PSO7P274+11, PSO7P274+16, PSO7P274+19, PSO7P274+21, PSO7P274+45*, PSO7P274+47, PSO7P274+48*, PSO7P274+50*, PSO7P274+55, QUIT+1
, STATUS+3, STATUS+4, STATUS+5, STATUS+6, STATUS+9, STATUS+10, STOP+1*, ST+1, ST+2, INITXTMP+4*

Label References

Name Line Occurrences
$$NAMSP PSO7P274+7, STATUS+3, STATUS+4, STATUS+5, STATUS+6, STATUS+9, STATUS+10, STOP+1, ST+1, ST+2
$$ST STATUS+1, STOP+1
INITXTMP PSO7P274+16
QUIT PSO7P274+14, PSO7P274+24, PSO7P274+27, PSO7P274+43

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDT INITXTMP+1~, INITXTMP+2*, INITXTMP+3, INITXTMP+4
C EN+1~, EN+2*, EN+3
CC EN+1~, EN+3*
CNT EN+1~, EN+2*
>> DILOCKTM PSO7P274+11
DIR PSO7P274+28!
DIR("?" PSO7P274+32*
DIR("A" PSO7P274+29*
DIR("B" PSO7P274+30*
DIR(0 PSO7P274+31*
DTOUT PSO7P274+6~, PSO7P274+34
DUOUT PSO7P274+6~, PSO7P274+33
JOBN PSO7P274+6~, PSO7P274+8*, PSO7P274+12, PSO7P274+16, PSO7P274+29, PSO7P274+40, PSO7P274+43, PSO7P274+53
LIFE INITXTMP~, INITXTMP+3
NAMSP PSO7P274+6~, PSO7P274+7*, PSO7P274+11, PSO7P274+16, PSO7P274+19, PSO7P274+21, PSO7P274+22, PSO7P274+45, PSO7P274+47, PSO7P274+48
, PSO7P274+50, PSO7P274+52, PSO7P274+55, QUIT+1, INITXTMP~, INITXTMP+4
PATCH PSO7P274+6~, PSO7P274+9*, PSO7P274+16, PSO7P274+53
PURGDT INITXTMP+1~, INITXTMP+3*, INITXTMP+4
QUIT PSO7P274+6~, PSO7P274+17*
TITLE INITXTMP~, INITXTMP+4
XPDQUES PSO7P274+61!
XPDQUES("POS2" PSO7P274+27, PSO7P274+37
Y PSO7P274+6~, PSO7P274+34*
ZTDESC PSO7P274+6~, PSO7P274+53*
ZTDTH PSO7P274+6~, PSO7P274+27, PSO7P274+33*, PSO7P274+34*, PSO7P274+37*, PSO7P274+41, PSO7P274+43
ZTIO PSO7P274+6~, PSO7P274+52*
ZTQUEUED PSO7P274+6~
ZTREQ PSO7P274+6~
ZTRTN PSO7P274+6~, PSO7P274+52*
ZTSAVE PSO7P274+6~
ZTSAVE("JOBN" PSO7P274+54*
ZTSK PSO7P274+6~, PSO7P274+57, PSO7P274+58

Marked Items

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