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: PSOCIDC1

Package: Outpatient Pharmacy

Routine: PSOCIDC1


Information

PSOCIDC1 ;BIR/LE-Copay Correction of erroneous billed copays ;11/8/05 12:50pm

Source Information

Source file <PSOCIDC1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$DT,$$FMADD,$$FMTE,$$FMTH,$$HTE,$$NOW)^XLFDT  (BMES,MES)^XPDUTL  
Outpatient Pharmacy 3 (CANCEL,CHECK,TOTAL)^PSOCIDC2  MAIL3^PSOCIDC3  (MAIL,MAIL2)^PSOCIDC4  
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIR  
Registration 1 ELIG^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOCIDC3  

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 PSOCIDC1+74
^DIR PSOCIDC1+29, PSOCIDC1+51
CANCEL^PSOCIDC2 EN+41
CHECK^PSOCIDC2 EN+37
TOTAL^PSOCIDC2 EN+42
MAIL3^PSOCIDC3 EN+22
MAIL^PSOCIDC4 EN+44
MAIL2^PSOCIDC4 EN+45
ELIG^VADPT EN+35
$$DT^XLFDT EN+12
$$FMADD^XLFDT INITXTMP+3
$$FMTE^XLFDT PSOCIDC1+41, EN+11, STATUS+4, STATUS+10
$$FMTH^XLFDT PSOCIDC1+52, PSOCIDC1+55
$$HTE^XLFDT PSOCIDC1+59
$$NOW^XLFDT PSOCIDC1+36, PSOCIDC1+52, PSOCIDC1+63, PSOCIDC1+66, PSOCIDC1+68, EN+5, EN+21, EN+28, EN+43, INITXTMP+2
BMES^XPDUTL PSOCIDC1+11, PSOCIDC1+37, PSOCIDC1+57, PSOCIDC1+61, PSOCIDC1+77, PSOCIDC1+78
MES^XPDUTL PSOCIDC1+12, PSOCIDC1+58, PSOCIDC1+59, PSOCIDC1+60, PSOCIDC1+76

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"The last install of this patch you selected to NOT Run the Copay Correction process."
  • Line Location: PSOCIDC1+23
Function Call: WRITE
  • Prompt: !,"If you have changed your mind, you must re-install the patch to run",!!
  • Line Location: PSOCIDC1+24
Function Call: WRITE
  • Prompt: !,"Halting..."
  • Line Location: PSOCIDC1+29
Function Call: WRITE
  • Prompt: !!,*7,"This job has been run before to completion on "
  • Line Location: PSOCIDC1+40
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P($G(^XTMP(NAMSP,0,"LAST")),"^",2)),!!
  • Line Location: PSOCIDC1+41
Function Call: WRITE
  • Prompt: !,"Halting..."
  • Line Location: PSOCIDC1+51
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,"Released Date > ",$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: !?5," TOTAL RX's > ",$P(^XTMP($$NAMSP,0,"LAST"),"^",5),!
  • Line Location: STATUS+7
Function Call: WRITE
  • Prompt: !,"COMPLETED ON ",$$FMTE^XLFDT($P($G(^XTMP($$NAMSP,0,"LAST")),"^",2)),!
  • Line Location: STATUS+10
Function Call: WRITE
  • Prompt: !,"Outpatient RX Copay 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^PSOCIDC1)"
  • Line Location: STOP+4
Function Call: WRITE
  • Prompt: !,"*** NOT CURRENTLY RUNNING! ***",!
  • Line Location: ST+3
Routine Call
  • DIR
  • Line Location:
    • PSOCIDC1+29
    • PSOCIDC1+51

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN+34
^PSRX - [#52] EN+30, EN+33
^PSRX("AD" EN+26, EN+29, EN+37
^XPD(9.7 - [#9.7] EN+17, EN+18
^XTMP( PSOCIDC1+10, PSOCIDC1+15, PSOCIDC1+21, PSOCIDC1+36*, PSOCIDC1+39, PSOCIDC1+41, PSOCIDC1+63*, PSOCIDC1+65, PSOCIDC1+66*, PSOCIDC1+68*
, PSOCIDC1+73, QUIT+1, EN+3, EN+5*, EN+13, EN+14, EN+20*, EN+21*, EN+22, EN+25!
, EN+27, EN+28*, EN+32*, EN+43*, STP+1, STP+2*, STATUS+3, STATUS+4, STATUS+5, STATUS+6
, STATUS+7, STATUS+9, STATUS+10, STOP+1*, ST+1, ST+2, INITXTMP+4*

Label References

Name Line Occurrences
$$NAMSP PSOCIDC1+7, EN+1, STATUS+3, STATUS+4, STATUS+5, STATUS+6, STATUS+7, STATUS+9, STATUS+10, STOP+1
, ST+1, ST+2
$$ST STATUS+1, STOP+1
INITXTMP PSOCIDC1+15
QUIT PSOCIDC1+13, PSOCIDC1+19, PSOCIDC1+34, PSOCIDC1+42, PSOCIDC1+45, PSOCIDC1+61
STP EN+38, EN+41

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+33*
DIR PSOCIDC1+25!, PSOCIDC1+46!
DIR("?" PSOCIDC1+50*
DIR("A" PSOCIDC1+26*, PSOCIDC1+27*, PSOCIDC1+47*
DIR("B" PSOCIDC1+48*
DIR(0 PSOCIDC1+28*, PSOCIDC1+49*
DT EN+12*
DTOUT PSOCIDC1+6~, PSOCIDC1+29, PSOCIDC1+52
DUOUT PSOCIDC1+6~, PSOCIDC1+29, PSOCIDC1+51
FOUND EN+8~
I EN+9~
JOBN PSOCIDC1+6~, PSOCIDC1+8*, PSOCIDC1+11, PSOCIDC1+47, PSOCIDC1+58, PSOCIDC1+61, PSOCIDC1+71, STP+4!
LIFE INITXTMP~, INITXTMP+3
LIN EN+9~
NAMSP PSOCIDC1+6~, PSOCIDC1+7*, PSOCIDC1+10, PSOCIDC1+15, PSOCIDC1+21, PSOCIDC1+36, PSOCIDC1+39, PSOCIDC1+41, PSOCIDC1+63, PSOCIDC1+65
, PSOCIDC1+66, PSOCIDC1+68, PSOCIDC1+73, 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+32, EN+43, STP+1, STP+2, INITXTMP~
, INITXTMP+4
PSOAMT EN+8~
PSOCAMT EN+8~
PSOCCNT EN+7~, EN+40*
PSOCCNTS EN+9~
PSOCNT EN+7~, EN+40*
PSOCNTS EN+9~
PSOCVETS EN+7~
PSODFN EN+8~, EN+33*, EN+34
PSODT EN+7~, EN+13*, EN+18*, EN+19, EN+26*, EN+29, EN+32, EN+37
PSOEND EN+7~
PSOEND2 EN+8~
PSOINST EN+9~
PSOREL EN+8~
PSOS1 EN+9~, EN+10*
PSOSCMX EN+8~
PSOSCP EN+9~, EN+35*, EN+37
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+32
PSOUAMT EN+8~
PSOUCNT EN+7~, EN+40*
PSOUCNTS EN+9~
PSOUDFN EN+8~
PSOUVETS EN+7~
PSOVETS EN+7~
PURGDT INITXTMP+1~, INITXTMP+3*, INITXTMP+4
QUIT PSOCIDC1+6~, PSOCIDC1+16*, PSOCIDC1+19, PSOCIDC1+22*, PSOCIDC1+29*, PSOCIDC1+31*
RUNOPT PSOCIDC1+6~, PSOCIDC1+30*, PSOCIDC1+31, PSOCIDC1+34, PSOCIDC1+35*, PSOCIDC1+36, PSOCIDC1+37
RXP EN+7~, EN+14*, EN+29*, EN+30, EN+32, EN+33, EN+37
STO EN+9~
STOP EN+25~*, EN+26, EN+28*, EN+38, EN+41
TITLE INITXTMP~, INITXTMP+4
U EN+35
VAEL EN+35!
VAEL(3 EN+35
X1 EN+9~
XIEN EN+7~, EN+17*, EN+18
XMY EN+9~
XPDQUES PSOCIDC1+79!
XPDQUES("POS1" PSOCIDC1+19, PSOCIDC1+34, PSOCIDC1+35
XPDQUES("POS2" PSOCIDC1+45, PSOCIDC1+55
XX EN+7~
Y PSOCIDC1+6~, PSOCIDC1+30, PSOCIDC1+52*, EN+10*
YY EN+7~, EN+37*
ZTDESC PSOCIDC1+6~, PSOCIDC1+71*
ZTDTH PSOCIDC1+6~, PSOCIDC1+45, PSOCIDC1+51*, PSOCIDC1+52*, PSOCIDC1+55*, PSOCIDC1+59, PSOCIDC1+61
ZTIO PSOCIDC1+6~, PSOCIDC1+70*
>> ZTQUEUED EN+4, STP+3
>> ZTREQ EN+4*, STP+3*
ZTRTN PSOCIDC1+6~, PSOCIDC1+70*
>> ZTSAVE("JOBN" PSOCIDC1+72*
ZTSK PSOCIDC1+6~, PSOCIDC1+75, PSOCIDC1+76

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