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

Package: Outpatient Pharmacy

Routine: PSOCIDC7


Information

PSOCIDC7 ;BIR/LE-CIDC Activity logs correction ;2/28/05 12:50pm

Source Information

Source file <PSOCIDC7.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$DT,$$FMADD,$$FMTE,$$FMTH,$$HTE,$$NOW)^XLFDT  (BMES,MES)^XPDUTL  
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIR  
Outpatient Pharmacy 1 (CHECK,MAIL,MAIL3)^PSOCIDC8  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOCIDC9  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT EN+10
NOW^%DTC EN+10
^%ZTLOAD PSOCIDC7+71
^DIR PSOCIDC7+26, PSOCIDC7+48
CHECK^PSOCIDC8 EN+39
MAIL^PSOCIDC8 EN+44
MAIL3^PSOCIDC8 EN+22
$$DT^XLFDT EN+12
$$FMADD^XLFDT INITXTMP+3
$$FMTE^XLFDT PSOCIDC7+38, EN+11, STATUS+4, STATUS+5, STATUS+10
$$FMTH^XLFDT PSOCIDC7+49, PSOCIDC7+52
$$HTE^XLFDT PSOCIDC7+56
$$NOW^XLFDT PSOCIDC7+33, PSOCIDC7+49, PSOCIDC7+60, PSOCIDC7+63, PSOCIDC7+65, EN+5, EN+21, EN+28, EN+31, EN+43
, INITXTMP+2
BMES^XPDUTL PSOCIDC7+8, PSOCIDC7+34, PSOCIDC7+54, PSOCIDC7+58, PSOCIDC7+74, PSOCIDC7+75
MES^XPDUTL PSOCIDC7+9, PSOCIDC7+55, PSOCIDC7+56, PSOCIDC7+57, PSOCIDC7+73

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"The last install of this patch you selected to NOT Run the Activity Logs Correction process."
  • Line Location: PSOCIDC7+20
Function Call: WRITE
  • Prompt: !,"If you have changed your mind, you must re-install the patch to run",!!
  • Line Location: PSOCIDC7+21
Function Call: WRITE
  • Prompt: !,"Halting..."
  • Line Location: PSOCIDC7+26
Function Call: WRITE
  • Prompt: !!,*7,"This job has been run before to completion on "
  • Line Location: PSOCIDC7+37
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P($G(^XTMP(NAMSP,0,"LAST")),"^",2)),!!
  • Line Location: PSOCIDC7+38
Function Call: WRITE
  • Prompt: !,"Halting..."
  • Line Location: PSOCIDC7+48
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: !,"Outpatient Activity Logs Correction 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^PSOCIDC7)"
  • Line Location: STOP+4
Function Call: WRITE
  • Prompt: !,"*** NOT CURRENTLY RUNNING! ***",!
  • Line Location: ST+3
Routine Call
  • DIR
  • Line Location:
    • PSOCIDC7+26
    • PSOCIDC7+48

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN+37, EN+38
^PSRX - [#52] EN+33, EN+36, EN+39
^PSRX("AD" EN+26, EN+29
^XPD(9.7 - [#9.7] EN+17, EN+18
^XTMP( PSOCIDC7+7, PSOCIDC7+12, PSOCIDC7+18, PSOCIDC7+33*, PSOCIDC7+36, PSOCIDC7+38, PSOCIDC7+60*, PSOCIDC7+62, PSOCIDC7+63*, PSOCIDC7+65*
, PSOCIDC7+70, QUIT+1, EN+3, EN+5*, EN+13, EN+14, EN+20*, EN+21*, EN+22, EN+25!
, EN+27, EN+28*, EN+30, EN+31*, EN+35*, EN+43*, STP+1, STP+2*, 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 PSOCIDC7+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 PSOCIDC7+12
QUIT PSOCIDC7+10, PSOCIDC7+16, PSOCIDC7+31, PSOCIDC7+39, PSOCIDC7+42, PSOCIDC7+58
STP EN+40

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+9~, EN+10, EN+11
BEGDT INITXTMP+1~, INITXTMP+2*, INITXTMP+3, INITXTMP+4
CC EN+8~, EN+26*
DFN EN+7~, EN+36*
DIR PSOCIDC7+22!, PSOCIDC7+43!
DIR("?" PSOCIDC7+47*
DIR("A" PSOCIDC7+23*, PSOCIDC7+24*, PSOCIDC7+44*
DIR("B" PSOCIDC7+45*
DIR(0 PSOCIDC7+25*, PSOCIDC7+46*
DT EN+12*
>> DTOUT PSOCIDC7+26, PSOCIDC7+49
>> DUOUT PSOCIDC7+26, PSOCIDC7+48
FOUND EN+8~
I EN+9~
JOBN PSOCIDC7+5*, PSOCIDC7+8, PSOCIDC7+44, PSOCIDC7+55, PSOCIDC7+58, PSOCIDC7+68, STP+4!
LIFE INITXTMP~, INITXTMP+3
LIN EN+9~
NAMSP PSOCIDC7+4*, PSOCIDC7+7, PSOCIDC7+12, PSOCIDC7+18, PSOCIDC7+33, PSOCIDC7+36, PSOCIDC7+38, PSOCIDC7+60, PSOCIDC7+62, PSOCIDC7+63
, PSOCIDC7+65, PSOCIDC7+70, QUIT+1, EN+1~*, EN+3, EN+5, EN+13, EN+14, EN+20, EN+21
, EN+22, EN+25, EN+27, EN+28, EN+30, EN+31, EN+35, EN+43, STP+1, STP+2
, INITXTMP~, INITXTMP+4
PSOAMT EN+8~
PSOCAMT EN+8~
PSOCCNT EN+7~, EN+42*
PSOCCNTS EN+9~
PSOCNT EN+7~, EN+42*
PSOCNTS EN+9~
PSOCVETS EN+7~
PSODFN EN+8~, EN+36*, EN+37, EN+38
PSODT EN+7~, EN+13*, EN+18*, EN+19, EN+26*, EN+29, EN+35
PSOEND EN+7~
PSOEND2 EN+8~
PSOINST EN+9~
>> PSONAM EN+37*
PSOREL EN+8~
PSOS1 EN+9~, EN+10*
PSOSCMX EN+8~
PSOSCP EN+9~
PSOSTART EN+7~, EN+10*
PSOSTNM EN+9~
PSOSTRT2 EN+8~, EN+11*
PSOTC EN+9~
PSOTEXT EN+7~
PSOTIME EN+9~
PSOTRF EN+8~, EN+24*
PSOTRX EN+7~, EN+24*, EN+29*, EN+35
PSOUAMT EN+8~
PSOUCNT EN+7~, EN+42*
PSOUCNTS EN+9~
PSOUDFN EN+8~
PSOUVETS EN+7~
PSOVETS EN+7~
PURGDT INITXTMP+1~, INITXTMP+3*, INITXTMP+4
>> QUIT PSOCIDC7+13*, PSOCIDC7+16, PSOCIDC7+19*, PSOCIDC7+26*, PSOCIDC7+28*
>> RUNOPT PSOCIDC7+27*, PSOCIDC7+28, PSOCIDC7+31, PSOCIDC7+32*, PSOCIDC7+33, PSOCIDC7+34
RXP EN+7~, EN+14*, EN+29*, EN+33, EN+35, EN+36, EN+39
STO EN+9~
STOP EN+25~*, EN+26, EN+28*, EN+29, EN+31*, EN+40
TITLE INITXTMP~, INITXTMP+4
X1 EN+9~
XIEN EN+7~, EN+17*, EN+18
XMY EN+9~
XPDQUES PSOCIDC7+76!
XPDQUES("POS1" PSOCIDC7+16, PSOCIDC7+31, PSOCIDC7+32
XPDQUES("POS2" PSOCIDC7+42, PSOCIDC7+52
XX EN+7~
>> Y PSOCIDC7+27, PSOCIDC7+49*, EN+10*
YY EN+7~
>> ZTDESC PSOCIDC7+68*
>> ZTDTH PSOCIDC7+42, PSOCIDC7+48*, PSOCIDC7+49*, PSOCIDC7+52*, PSOCIDC7+56, PSOCIDC7+58
>> ZTIO PSOCIDC7+67*
>> ZTQUEUED EN+4, STP+3
>> ZTREQ EN+4*, STP+3*
>> ZTRTN PSOCIDC7+67*
>> ZTSAVE("JOBN" PSOCIDC7+69*
>> ZTSK PSOCIDC7+72, PSOCIDC7+73

Marked Items

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