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

Package: Outpatient Pharmacy

Routine: PSOCPBK3


Information

PSOCPBK3 ;BIR/GN-Copay Back Bill for Automated-release refills ;10/6/05 4:57pm

Source Information

Source file <PSOCPBK3.m>

Call Graph

Call Graph

Call Graph Total: 8

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 2 (ADDBILL,BILLIT,TOTAL,XTYPE)^PSOCPBK4  (MAIL,MAIL2,MAIL3,MAILAAC)^PSOCPBK5  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOCPBK4  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT EN+10
NOW^%DTC EN+10
^%ZTLOAD PSOCPBK3+72
^DIR PSOCPBK3+29, PSOCPBK3+51
ADDBILL^PSOCPBK4 EN+46
BILLIT^PSOCPBK4 EN+50
TOTAL^PSOCPBK4 EN+51
XTYPE^PSOCPBK4 EN+43
MAIL^PSOCPBK5 EN+53
MAIL2^PSOCPBK5 EN+54
MAIL3^PSOCPBK5 EN+22, EN+31
MAILAAC^PSOCPBK5 EN+55
$$DT^XLFDT EN+12
$$FMADD^XLFDT INITXTMP+3
$$FMTE^XLFDT PSOCPBK3+41, EN+11, STATUS+4, STATUS+10
$$FMTH^XLFDT PSOCPBK3+52, PSOCPBK3+55
$$HTE^XLFDT PSOCPBK3+59
$$NOW^XLFDT PSOCPBK3+36, PSOCPBK3+64, PSOCPBK3+66, EN+5, EN+21, EN+30, EN+37, EN+52, INITXTMP+2
BMES^XPDUTL PSOCPBK3+11, PSOCPBK3+37, PSOCPBK3+57, PSOCPBK3+61, PSOCPBK3+75, PSOCPBK3+76
MES^XPDUTL PSOCPBK3+12, PSOCPBK3+58, PSOCPBK3+59, PSOCPBK3+60, PSOCPBK3+74

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"The last install of this patch you selected to NOT Run Back-Billing"
  • Line Location: PSOCPBK3+23
Function Call: WRITE
  • Prompt: !,"If you have changed your mind, you must re-install the patch to run",!!
  • Line Location: PSOCPBK3+24
Function Call: WRITE
  • Prompt: !,"Halting..."
  • Line Location: PSOCPBK3+29
Function Call: WRITE
  • Prompt: !!,*7,"This job has been run before to completion on "
  • Line Location: PSOCPBK3+40
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P($G(^XTMP(NAMSP,0,"LAST")),"^",2)),!!
  • Line Location: PSOCPBK3+41
Function Call: WRITE
  • Prompt: !,"Halting..."
  • Line Location: PSOCPBK3+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 Tally 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^PSOCPBK3)"
  • Line Location: STOP+4
Function Call: WRITE
  • Prompt: !,"*** NOT CURRENTLY RUNNING! ***",!
  • Line Location: ST+3
Routine Call
  • DIR
  • Line Location:
    • PSOCPBK3+29
    • PSOCPBK3+51

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN+42
^PS(59 - [#59] EN+26, EN+27
^PSRX - [#52] EN+41
^PSRX("AL" EN+35, EN+38, EN+46
^XPD(9.7 - [#9.7] EN+17, EN+18
^XTMP( PSOCPBK3+10, PSOCPBK3+15, PSOCPBK3+21, PSOCPBK3+36*, PSOCPBK3+39, PSOCPBK3+41, PSOCPBK3+63, PSOCPBK3+64*, PSOCPBK3+66*, PSOCPBK3+71
QUIT+1, EN+3, EN+5*, EN+13, EN+14, EN+20*, EN+21*, EN+22, EN+29*, EN+30*
EN+31, EN+34!, EN+36, EN+37*, EN+40*, EN+52*, EN+56, 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 PSOCPBK3+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 PSOCPBK3+15
QUIT PSOCPBK3+13, PSOCPBK3+19, PSOCPBK3+34, PSOCPBK3+42, PSOCPBK3+45, PSOCPBK3+61

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+35*, EN+36
DIR PSOCPBK3+25!, PSOCPBK3+46!
DIR("?" PSOCPBK3+50*
DIR("A" PSOCPBK3+26*, PSOCPBK3+27*, PSOCPBK3+47*
DIR("B" PSOCPBK3+48*
DIR(0 PSOCPBK3+28*, PSOCPBK3+49*
DT EN+12*
DTOUT PSOCPBK3+6~, PSOCPBK3+29, PSOCPBK3+51
DUOUT PSOCPBK3+6~, PSOCPBK3+29, PSOCPBK3+51
FOUND EN+8~
I EN+9~
JOBN PSOCPBK3+6~, PSOCPBK3+8*, PSOCPBK3+11, PSOCPBK3+47, PSOCPBK3+58, PSOCPBK3+61, PSOCPBK3+69, EN+58!
LIFE INITXTMP~, INITXTMP+3
LIN EN+9~
NAMSP PSOCPBK3+6~, PSOCPBK3+7*, PSOCPBK3+10, PSOCPBK3+15, PSOCPBK3+21, PSOCPBK3+36, PSOCPBK3+39, PSOCPBK3+41, PSOCPBK3+63, PSOCPBK3+64
PSOCPBK3+66, PSOCPBK3+71, QUIT+1, EN+1~*, EN+3, EN+5, EN+13, EN+14, EN+20, EN+21
EN+22, EN+29, EN+30, EN+31, EN+34, EN+36, EN+37, EN+40, EN+52, EN+56
, INITXTMP~, INITXTMP+4
PSOAMT EN+8~
PSOCNT EN+7~, EN+49*
PSOCNTS EN+9~
PSODFN EN+8~, EN+41*, EN+42
PSODT EN+7~, EN+13*, EN+18*, EN+19, EN+35*, EN+38, EN+40, EN+46
PSOEND EN+7~
PSOEND2 EN+8~
PSOINST EN+9~
PSOREL EN+8~
PSOS1 EN+9~, EN+10*
PSOSCMX EN+8~, EN+44
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+33*
PSOTRX EN+7~, EN+33*, EN+38*, EN+40
PSOVETS EN+7~
PURGDT INITXTMP+1~, INITXTMP+3*, INITXTMP+4
QUIT PSOCPBK3+6~, PSOCPBK3+16*, PSOCPBK3+19, PSOCPBK3+22*, PSOCPBK3+29*, PSOCPBK3+31*
RUNOPT PSOCPBK3+6~, PSOCPBK3+30*, PSOCPBK3+31, PSOCPBK3+34, PSOCPBK3+35*, PSOCPBK3+36, PSOCPBK3+37
RXP EN+7~, EN+14*, EN+38*, EN+40, EN+41, EN+46
STO EN+9~
STOP EN+34~*, EN+35, EN+37*, EN+47, EN+50
TITLE INITXTMP~, INITXTMP+4
V24 EN+8~, EN+25*, EN+26, EN+27*, EN+28
X1 EN+9~
XIEN EN+7~, EN+17*, EN+18
XMY EN+9~
XPDQUES PSOCPBK3+77!
XPDQUES("POS1" PSOCPBK3+19, PSOCPBK3+34, PSOCPBK3+35
XPDQUES("POS2" PSOCPBK3+45, PSOCPBK3+55
XX EN+7~, EN+26*, EN+27
Y PSOCPBK3+6~, PSOCPBK3+30, PSOCPBK3+52, EN+10*
YY EN+7~, EN+46*
ZTDESC PSOCPBK3+6~, PSOCPBK3+69*
ZTDTH PSOCPBK3+6~, PSOCPBK3+45, PSOCPBK3+51*, PSOCPBK3+52*, PSOCPBK3+55*, PSOCPBK3+59, PSOCPBK3+61
ZTIO PSOCPBK3+6~, PSOCPBK3+68*
>> ZTQUEUED EN+4, EN+57
>> ZTREQ EN+4*, EN+57*
ZTRTN PSOCPBK3+6~, PSOCPBK3+68*
>> ZTSAVE("JOBN" PSOCPBK3+70*
ZTSK PSOCPBK3+6~, PSOCPBK3+73, PSOCPBK3+74

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