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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOCPBK4

Package: Outpatient Pharmacy

Routine: PSOCPBK4


Information

PSOCPBK4 ;BIR/GN-Copay Back Bill for Automated-release refills cont. ;10/12/05 9:55am

Source Information

Source file <PSOCPBK4.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  
Outpatient Pharmacy 4 CP^PSOCP  (CHKIB,XTYPE1)^PSOCP1  $$NAMSP^PSOCPBK3  ^PSOLSET  
Integrated Billing 3 XTYPE^IBARX  $$RXST^IBARXEU  $$PTCOV^IBCNSU3  
Registration 1 DEM^VADPT  
VA Fileman 1 ^DIR  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DVC
^%ZISC DONE+2
^%ZTLOAD QUEUE
^DIR TITLE+1, END+1
XTYPE^IBARX XTYPE+6
$$RXST^IBARXEU ADDBILL+5
$$PTCOV^IBCNSU3 START+27, START+28
CP^PSOCP BILLIT+18
CHKIB^PSOCP1 RX+8, RX+14
XTYPE1^PSOCP1 COPAYREL+9
$$NAMSP^PSOCPBK3 RPT+2, START+4
^PSOLSET CP+1
DEM^VADPT XTYPE+2
$$NOW^XLFDT BILLIT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report shows the patient name and prescription information for refills"
  • Line Location: RPT+7
Function Call: WRITE
  • Prompt: !!,"You may queue the report to print, if you wish.",!
  • Line Location: RPT+10
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*217 -COPAY PRESCRIPTION REFILLS "_JOBN
  • 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: !,?69,"INS ON DTE"
  • Line Location: TITLE+7
Function Call: WRITE
  • Prompt: !,"PATIENT NAME (SSN) DIV",?43,"RX# (FILL)",?55,"RELEASE DATE",?69,"REL BILL"
  • Line Location: TITLE+8
Function Call: WRITE
  • Prompt: !,"-------------- ------- ----------------",?42,"------------"
  • Line Location: TITLE+9
Function Call: WRITE
  • Prompt: ?55,"------------",?69,"---- -----"
  • Line Location: TITLE+10
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: ?16,"("_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+25, TITLE+5
^DPT - [#2] ACCUM+21, START+20, PRTSSN+1
^IBAM(354.7 ACCUM+10, ACCUM+11
^PS(53 - [#53] COPAYREL+3
^PS(59 - [#59] XTYPE+4, CP+7, SITE+3, SITE+4, PRTSSN+4
^PSDRUG - [#50] COPAYREL+6
^PSRX - [#52] ADDBILL+2, ADDBILL+7, ADDBILL+8, ADDBILL+12, ADDBILL+13, ADDBILL+14, BILLIT+11, BILLIT+16, BILLIT+20, CP+3
, CP+4, CP+8, RX+5, RX+8, RX+11, RX+14, RX+17, COPAYREL+3, COPAYREL+6, COPAYREL+9
, COPAYREL+10, SITE+1, START+23, PRTSSN+3
^XTMP( ADDBILL+18*, TOTAL+5, TOTAL+7, BILLIT+5, BILLIT+6, BILLIT+7*, BILLIT+9, BILLIT+12, BILLIT+14, ACCUM+6
, ACCUM+15*, ACCUM+16*, ACCUM+23*, RPT+3, RPT+4, RPT+6, START+5, START+8, START+11, START+13
, START+15, START+17, START+19

Label References

Name Line Occurrences
ACCUM BILLIT+20, BILLIT+21
COPAYREL RX+21
CP BILLIT+21, CP+1
DONE DVC, QUEUE
END START+29
FULL START+20
PRTSSN START+22
QUIT RX+9, RX+11, RX+15, RX+17, RX+22, RX+23
SITE BILLIT+17
TITLE START+9, FULL+1

Naked Globals

Name Field # of Occurrence
^( XTYPE+4
^("IB" XTYPE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC!*
%ZSI QUEUE!
BLDT START+2~, START+8*, START+28
>> CC BILLIT+5*, BILLIT+6
CHKXTYPE COPAYREL+8!
COUNT TOTAL+1~, TOTAL+7*
COUNTED TOTAL+1~, TOTAL+6*, TOTAL+7*
DAY ETIME+1~, ETIME+2*, ETIME+3*, ETIME+9
DFN XTYPE+1~, XTYPE+2*
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*
DRGTYP COPAYREL+5~, COPAYREL+6*, COPAYREL+7
DT TITLE+5
DTOUT DONE+1!
DUOUT DONE+1!
ETIM ETIME+1~, ETIME+7*, ETIME+9*, ETIME+10*, ETIME+11
>> FOUND ADDBILL+11*, ADDBILL+12, ADDBILL+15*, ADDBILL+16
HR ETIME+1~, ETIME+2*, ETIME+4*, ETIME+8*, ETIME+9
I XTYPE+1~, XTYPE+8*, TOTAL+3~, TOTAL+4*, TOTAL+7*, TOTAL+8*
IO START+1
IO("Q" QUEUE, DONE+1!
IOF TITLE+3, END+3
IOP DVC!, DONE+1!
IOSL START+7, FULL+1
IOST START+6
J XTYPE+1~, XTYPE+4*, XTYPE+8*, TOTAL+3~, TOTAL+7*
JOBN RPT+1~, RPT+3*, RPT+5, RPT+8, RPT+9, QUEUE, START+3~, START+5*, TITLE+4
MIN ETIME+1~, ETIME+2*, ETIME+5*, ETIME+8*, ETIME+9
MJT TITLE+6*, DONE+1!
NAMSP ADDBILL+18, TOTAL+5, TOTAL+7, BILLIT+5, BILLIT+6, BILLIT+7, BILLIT+9, BILLIT+12, BILLIT+14, ACCUM+6
, ACCUM+15, ACCUM+16, ACCUM+23, RPT+1~, RPT+2*, RPT+3, RPT+4, RPT+6, START+2~, START+4*
, START+5, START+8, START+11, START+13, START+15, START+17, START+19
POP DVC!, DONE+1!
PREA QUIT+1!
PSOCAP BILLIT+2~
PSOCAP( BILLIT+15
PSOCAP(304 BILLIT+8*
PSOCAP(305 BILLIT+8*
PSOCHG RX+20*, RX+22, RX+23, QUIT+1!, COPAYREL+3*, COPAYREL+7*, COPAYREL+10*
>> PSOCNT TOTAL+8*
>> PSOCNT( TOTAL+7*
>> PSOCNT("YR2004" TOTAL+4*, TOTAL+8
>> PSOCNT("YR2005" TOTAL+4*, TOTAL+8
PSOCP CP+2!, CP+4*, CP+5, CP+8, RX+23
PSOCP1 QUIT+1!
PSOCP2 QUIT+1!
PSOCPN CP+3*, CP+8, QUIT+1!
PSOCPUN BILLIT+11*, BILLIT+19*, QUIT+1!, ACCUM+15, ACCUM+16
PSODFN ADDBILL+5, ADDBILL+18, XTYPE+2, XTYPE+6, TOTAL+5*, TOTAL+7, BILLIT+4*, BILLIT+5*, BILLIT+9, BILLIT+12
, BILLIT+14, ACCUM+6, ACCUM+10, ACCUM+11, ACCUM+15, ACCUM+16, ACCUM+21, ACCUM+23, START+2~, START+12*
, START+13*, START+15, START+17, START+19, START+20, START+27, START+28, PRTSSN+1
PSODIV BILLIT+2~, START+2~, PRTSSN+3*, PRTSSN+4*, PRTSSN+5
PSODV BILLIT+2~, START+2~, START+6*, TITLE+1, END+1, END+2
PSOFILL BILLIT+2~, START+2~, START+16*, START+17*, START+19, START+24
PSOIB RX+1~, RX+2*, RX+9, RX+15
PSOLOG BILLIT+2~, ACCUM+11*, ACCUM+12
PSONAM ACCUM+20~, ACCUM+21*, ACCUM+22*, ACCUM+23, START+2~, START+10*, START+11*, START+13, START+15, START+17
, START+19, PRTSSN+2
PSONAME START+18~, START+20*, START+21
PSOOUT BILLIT+2~, START+2~, START+6*, START+20, FULL+1, TITLE+1*, END+1
PSOPAR BILLIT+2~, CP+1, SITE+3*
PSOPATID BILLIT+2~, START+3~, PRTSSN+2*, PRTSSN+5
PSOPGCT START+7*, TITLE+1, TITLE+5, TITLE+11*, DONE+1!
PSOPGLN START+7*, DONE+1!
PSOREF BILLIT+13*, BILLIT+19*, BILLIT+21, RX+3*, RX+5*, RX+8, RX+11, RX+14, RX+17, QUIT+1!
, ACCUM+23
>> PSOREL ADDBILL+2*, ADDBILL+3, ADDBILL+5, ADDBILL+18, BILLIT+14*, BILLIT+15, ACCUM+1, ACCUM+23
PSORSN QUIT+1!
PSOSAVE CP+5*, QUIT+1!
>> PSOSCMX XTYPE+2*, XTYPE+3*, XTYPE+8*, XTYPE+9, XTYPE+10
PSOSITE BILLIT+2~, CP+7, SITE+1*, SITE+2, SITE+3, SITE+4
PSOSITE7 BILLIT+3~, CP+7*, CP+8, SITE+4*
PSOSQ BILLIT+3~, ACCUM+10*, ACCUM+11
PSOTG COPAYREL+8!
PSOTOT BILLIT+3~, ACCUM+6*, ACCUM+9, ACCUM+12*, ACCUM+15
>> PSOTRF ADDBILL+1*
>> PSOVETS TOTAL+2*, TOTAL+7*
PSOYEAR BILLIT+3~, ACCUM+2*, ACCUM+3, ACCUM+6, ACCUM+15, ACCUM+16
PSOYR BILLIT+3~, ACCUM+1*, ACCUM+2, ACCUM+12
RXO START+2~, START+18~, START+23*, START+24
RXP ADDBILL+2, ADDBILL+7, ADDBILL+8, ADDBILL+12, ADDBILL+13, ADDBILL+14, ADDBILL+18, BILLIT+9*, BILLIT+11, BILLIT+12
, BILLIT+14, BILLIT+16, BILLIT+20, CP+3, CP+4, CP+8, RX+5, RX+8, RX+11, RX+14
, RX+17, COPAYREL+3, COPAYREL+6, COPAYREL+9, COPAYREL+10, ACCUM+23, SITE+1, START+2~, START+14*, START+15*
, START+17, START+19, START+23, PRTSSN+3
SAVCPUN BILLIT+3~, BILLIT+11*, BILLIT+19
SAVREF BILLIT+3~, BILLIT+13*, BILLIT+19
SAVY XTYPE+1~, XTYPE+3*, XTYPE+8*, XTYPE+9
SEC ETIME+1~, ETIME+2*, ETIME+6*, ETIME+8*, ETIME+10
SECTIME ETIME~, ETIME+3*, ETIME+4*, ETIME+5*, ETIME+6
SSN BILLIT+3~, START+2~, PRTSSN+1*, PRTSSN+2
>> STOP BILLIT+5, BILLIT+7*
VADM XTYPE+1~
VADM(6 XTYPE+2
X XTYPE+1~, XTYPE+3*, XTYPE+4*, XTYPE+5, XTYPE+6*, CP+8*, QUIT+1!, DONE+1!
XX ADDBILL+12*, ADDBILL+13, ADDBILL+14, START+18~, START+19*, START+25, START+27
Y XTYPE+1~, XTYPE+7, QUIT+1!, START+18~, START+25*, START+26, TITLE+1, TITLE+5*, DONE+1!
Y( XTYPE+8
>> YY ADDBILL+2, ADDBILL+4, ADDBILL+7, ADDBILL+8, ADDBILL+13, ADDBILL+18, BILLIT+12*, BILLIT+13, BILLIT+14, BILLIT+16
, BILLIT+20, RX+5, SITE+1
ZTDESC RPT+1~, QUEUE*
>> ZTQUEUED DONE+2
>> ZTREQ DONE+2*
ZTRTN RPT+1~, QUEUE*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All