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  | All
Print Page as PDF
Routine: PSOCPBK2

Package: Outpatient Pharmacy

Routine: PSOCPBK2


Information

PSOCPBK2 ;BIR/EJW,GN-Tally Automated-release refill copay cont. ;8/10/05 12:03pm

Source Information

Source file <PSOCPBK2.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$PROD^XUPROD  
Outpatient Pharmacy 4 (CHKIB,XTYPE1)^PSOCP1  ACTLOG^PSOCPA  $$NAMSP^PSOCPBK1  ^PSOLSET  
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIR  
MailMan 1 ^XMD  
National Drug File 1 $$CPTIER^PSNAPIS  

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 PSOCPBK1  

Entry Points

Name Comments DBIA/ICR reference
TALLY ;
; IF NO IB NUMBER FOR THIS FILL, SET UP VARIABLES AND TALLY
CP ; Entry point to Check if COPAY - Requires RXP,PSOSITE7
RX ; Determine Original or Refill for RX
QUIT ;
COPAYREL ; Recheck copay status at release
COPAYRE1 ;
ACCUM ; ACCUMULATE TOTALS AND SEE IF PATIENT MET ANNUAL CAP
SITE ; SET UP VARIABLES NEEDED BY BILLING
RPT ;
DVC
QUEUE
START ;
FULL ;
TITLE ;
END ;
DONE ;
PRTSSN ;
ETIME(SECTIME) ;convert seconds to day:hr:min:sec
MAIL3(MSG) ;

External References

Name Field # of Occurrence
DD^%DT MAIL3+2
NOW^%DTC COPAYREL+14, COPAYREL+21, MAIL3+2
^%ZIS DVC
^%ZISC DONE+2
^%ZTLOAD QUEUE
^DIR TITLE+1, END+1
$$CPTIER^PSNAPIS COPAYREL+21
CHKIB^PSOCP1 RX+8, RX+14
XTYPE1^PSOCP1 COPAYREL+9
ACTLOG^PSOCPA COPAYREL+23
$$NAMSP^PSOCPBK1 RPT+1, START+2
^PSOLSET CP+1
^XMD MAIL3+16
$$PROD^XUPROD MAIL3+7, MAIL3+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Copay Tally job for PSO*7*215 is still running. Halting..."
  • Line Location: RPT+3
Function Call: WRITE
  • Prompt: !!,"This report shows the patient name and prescription information for refills"
  • Line Location: RPT+5
Function Call: WRITE
  • Prompt: !,"that were indentified as billable by the tally patch PSO*7*215"
  • Line Location: RPT+6
Function Call: WRITE
  • Prompt: !!,"You may queue the report to print, if you wish.",!
  • Line Location: RPT+7
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: DVC+0
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: QUEUE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,"Patch PSO*7*215 -COPAY PRESCRIPTION REFILLS BILLABLE"
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?70,"Page: ",PSOPGCT,!
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: TITLE+6
Function Call: WRITE
  • Prompt: !,"PATIENT NAME (SSN) DIV",?48,"RX# (FILL)",?66,"RELEASE DATE"
  • Line Location: TITLE+7
Function Call: WRITE
  • Prompt: !,"-------------- ------- ----------------",?47,"------------"
  • Line Location: TITLE+8
Function Call: WRITE
  • Prompt: ?66,"------------"
  • Line Location: TITLE+9
Function Call: WRITE
  • Prompt: !!,"** End of Report **"
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: " ("_PSOPATID_")"_" "_PSODIV
  • Line Location: PRTSSN+5
Routine Call
  • DIR
  • Line Location:
    • TITLE+1
    • END+1
Routine Call
  • %ZIS
  • Line Location:
    • DVC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+19, TITLE+5
^DIC(4 - [#4] MAIL3+1
^DPT - [#2] ACCUM+23, START+16, PRTSSN+1
^IBAM(354.7 - [#354.7] ACCUM+10, ACCUM+11
^PS(53 - [#53] COPAYREL+3
^PS(59 - [#59] CP+7, SITE+3, SITE+4, PRTSSN+4
^PSDRUG - [#50] COPAYREL+6
^PSRX - [#52] TALLY+12, CP+3, CP+4, CP+8, RX+5, RX+8, RX+11, RX+14, RX+17, RX+26
, COPAYREL+3, COPAYREL+6, COPAYREL+9, COPAYREL+10, SITE+1, PRTSSN+3
^XMB(1 - [#4.3] MAIL3+1
^XTMP( TALLY+5, TALLY+6!, TALLY+8, TALLY+9, TALLY+10, ACCUM+6, ACCUM+18*, ACCUM+19*, ACCUM+25*, RPT+2
, RPT+4, START+7, START+9, START+11, START+13, START+15
^XTMP("PSOTIEREFTST" COPAYREL+17

Label References

Name Line Occurrences
ACCUM RX+27
COPAYRE1 COPAYREL+19
COPAYREL RX+21
CP TALLY+14, CP+1
DONE DVC, QUEUE
END START+21
FULL START+16
PRTSSN START+17
QUIT RX+9, RX+11, RX+15, RX+17, RX+22, RX+23
SITE TALLY+13
TITLE START+5, FULL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % COPAYREL+16, MAIL3+2
%ZIS DVC!*
%ZSI QUEUE!
CHKXTYPE COPAYREL+8!
CPDATE COPAYREL+21~*!
DAY ETIME+1~, ETIME+2*, ETIME+3*, ETIME+9
DIFROM MAIL3+16~
DIR TITLE+1!, END+1!, DONE+1!
DIR("A" END+1*
DIR(0 TITLE+1*, END+1*
DIRUT DONE+1!
DRG COPAYREL+5~, COPAYREL+6*, COPAYREL+21
DRGTYP COPAYREL+5~, COPAYREL+6*, COPAYREL+7
DT TITLE+5
DTOUT DONE+1!
DUOUT DONE+1!
DUZ MAIL3+4
ETIM ETIME+1~, ETIME+7*, ETIME+9*, ETIME+10*, ETIME+11
HR ETIME+1~, ETIME+2*, ETIME+4*, ETIME+8*, ETIME+9
IO START+1
IO("Q" QUEUE, DONE+1!
IOF TITLE+3, END+3
IOP DVC!, DONE+1!
IOSL START+4, FULL+1
IOST START+3
MIN ETIME+1~, ETIME+2*, ETIME+5*, ETIME+8*, ETIME+9
MJT TITLE+6*, DONE+1!
MSG MAIL3~, MAIL3+15
NAMSP TALLY+5, TALLY+6, TALLY+8, TALLY+9, TALLY+10, ACCUM+6, ACCUM+18, ACCUM+19, ACCUM+25, RPT+1~*
, RPT+2, RPT+4, START+2~*, START+7, START+9, START+11, START+13, START+15
POP DVC!, DONE+1!
PREA QUIT+1!, COPAYREL+23*
PSOCAP TALLY+2~
PSOCAP( TALLY+11, ACCUM+15*
PSOCAP(304 TALLY+7*
PSOCAP(305 TALLY+7*
PSOCHG RX+20*, RX+22, RX+23, QUIT+1!, COPAYREL+3*, COPAYREL+7*, COPAYREL+10*, COPAYREL+22*
PSOCOMM QUIT+1!, COPAYREL+23*
PSOCP CP+2!, CP+4*, CP+5, CP+8, RX+23
PSOCP1 QUIT+1!
PSOCP2 QUIT+1!
PSOCPN CP+3*, CP+8, QUIT+1!
PSOCPT COPAYREL+21~*, COPAYREL+22, COPAYREL+23
PSOCPUN RX+26*, QUIT+1!, ACCUM+15, ACCUM+18, ACCUM+19
PSODA QUIT+1!, COPAYREL+23*
>> PSODFN TALLY+4*, TALLY+5*, TALLY+8, TALLY+9, TALLY+10, ACCUM+6, ACCUM+10, ACCUM+11, ACCUM+18, ACCUM+19
, ACCUM+23, ACCUM+25, START+8*, START+9*, START+11, START+13, START+15, START+16, PRTSSN+1
PSODIV TALLY+2~, PRTSSN+3*, PRTSSN+4*, PRTSSN+5
PSODV TALLY+2~, START+3*, TITLE+1, END+1, END+2
>> PSOEND MAIL3+2*
PSOEXMPT COPAYREL+5~, COPAYREL+7*, COPAYREL+23
PSOFILL TALLY+2~, START+12*, START+13*, START+15, START+18
PSOIB RX+1~, RX+2*, RX+9, RX+15
>> PSOINST MAIL3+1*, MAIL3+9
PSOLOG TALLY+2~, ACCUM+11*, ACCUM+12
PSONAM ACCUM+22~, ACCUM+23*, ACCUM+24*, ACCUM+25, START+6*, START+7*, START+9, START+11, START+13, START+15
, PRTSSN+2
PSONAME START+14~, START+16*, START+17
PSONW QUIT+1!, COPAYREL+23*
PSOOLD QUIT+1!, COPAYREL+23*
PSOOUT TALLY+2~, START+3*, START+16, FULL+1, TITLE+1*, END+1
PSOPAR TALLY+2~, CP+1, SITE+3*
PSOPATID TALLY+2~, PRTSSN+2*, PRTSSN+5
PSOPGCT START+4*, TITLE+1, TITLE+5, TITLE+10*, DONE+1!
PSOPGLN START+4*, DONE+1!
PSOREF RX+3*, RX+5*, RX+8, RX+11, RX+14, RX+17, QUIT+1!, ACCUM+25
>> PSOREL TALLY+10*, TALLY+11, ACCUM+1, ACCUM+25
PSORSN QUIT+1!
PSOSAVE CP+5*, QUIT+1!
PSOSITE TALLY+2~, CP+7, SITE+1*, SITE+2, SITE+3, SITE+4
PSOSITE7 TALLY+3~, CP+7*, CP+8, SITE+4*
PSOSQ TALLY+3~, ACCUM+10*, ACCUM+11
>> PSOSTART MAIL3+13
PSOTEXT MAIL3+3!
PSOTEXT(1 MAIL3+12*
PSOTEXT(2 MAIL3+13*
PSOTEXT(3 MAIL3+14*
PSOTEXT(4 MAIL3+15*
PSOTG COPAYREL+8!
PSOTIERE COPAYREL+14~, COPAYREL+15*, COPAYREL+16*, COPAYREL+17*, COPAYREL+19
PSOTOT TALLY+3~, ACCUM+6*, ACCUM+9, ACCUM+12*, ACCUM+15, ACCUM+18
PSOYEAR TALLY+3~, ACCUM+2*, ACCUM+3, ACCUM+6, ACCUM+18, ACCUM+19
PSOYR TALLY+3~, ACCUM+1*, ACCUM+2, ACCUM+12, ACCUM+15
>> QQ TALLY+5*, TALLY+6
>> RXP TALLY+8*, TALLY+9, TALLY+10, TALLY+12, CP+3, CP+4, CP+8, RX+5, RX+8, RX+11
, RX+14, RX+17, RX+26, COPAYREL+3, COPAYREL+6, COPAYREL+9, COPAYREL+10, COPAYREL+23, ACCUM+25, SITE+1
, START+10*, START+11*, START+13, START+15, START+18, PRTSSN+3
SEC ETIME+1~, ETIME+2*, ETIME+6*, ETIME+8*, ETIME+10
SECTIME ETIME~, ETIME+3*, ETIME+4*, ETIME+5*, ETIME+6
SSN TALLY+3~, PRTSSN+1*, PRTSSN+2
>> STOP TALLY+5, TALLY+6*
X CP+8*, QUIT+1!, COPAYREL+21~!, DONE+1!
XMDUZ MAIL3+8*, MAIL3+16!
XMSUB MAIL3+9*, MAIL3+10*, MAIL3+11*, MAIL3+16!
XMTEXT MAIL3+16*!
>> XMY( MAIL3+4*
>> XMY("NAPOLIELLO.GREG@DOMAIN.EXT" MAIL3+5*
>> XMY("WHITE.ELAINE@DOMAIN.EXT" MAIL3+6*
>> XMY("WILLIAMSON.ERIC@DOMAIN.EXT" MAIL3+7*
XX START+14~, START+15*, START+19
Y QUIT+1!, START+19*, START+20, TITLE+1, TITLE+5*, DONE+1!, MAIL3+2*
>> YY TALLY+9*, TALLY+10, TALLY+12, RX+5, SITE+1
>> ZTDESC QUEUE*
>> ZTQUEUED DONE+2
>> ZTREQ DONE+2*
>> ZTRTN QUEUE*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All