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

Package: Outpatient Pharmacy

Routine: PSOCPIB5


Information

PSOCPIB5 ;BIR/EJW-Report of back-billed fills with insurance information ;06/24/03

Source Information

Source file <PSOCPIB5.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Integrated Billing 2 $$STATUS^IBARX  $$PTCOV^IBCNSU3  
Registration 1 PID^VADPT  
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
RPT ;
DVC
QUEUE
START ;
FULL ;
TITLE ;
END ;
DONE ;
PRTSSN ;

External References

Name Field # of Occurrence
^%ZIS DVC
^%ZISC DONE+2
^%ZTLOAD QUEUE
^DIR TITLE+1, END+1
$$STATUS^IBARX START+21
$$PTCOV^IBCNSU3 START+22
PID^VADPT PRTSSN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report shows the patient name, prescription fill, and insurance"
  • Line Location: RPT+1
Function Call: WRITE
  • Prompt: !,"information for fills that were billed as part of patch PSO*7*123 clean-up."
  • Line Location: RPT+2
Function Call: WRITE
  • Prompt: !!,"You may queue the report to print, if you wish.",!
  • Line Location: RPT+3
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: !,PSONAM
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !,?4,RXP," (",PSOFILL,")"
  • Line Location: START+15
Function Call: WRITE
  • Prompt: ?43,"** NO BILL NUMBER FOR THIS FILL **"
  • Line Location: START+20
Function Call: WRITE
  • Prompt: "** COPAY CHARGE CANCELLED **"
  • Line Location: START+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,"Patch PSO*7*142 -COPAYS BILLED BY PSO*7*123 WITH RX INSURANCE INFORMATION"
  • 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",?44,"RX INSURANCE",?66,"RX INSURANCE"
  • Line Location: TITLE+7
Function Call: WRITE
  • Prompt: !,?4,"RX# (FILL)",?25,"RELEASE DATE",?43,"ON RELEASE DATE",?65,"ON BILLED DATE"
  • Line Location: TITLE+8
Function Call: WRITE
  • Prompt: !,"------------------------",?25,"------------",?43,"---------------",?65,"--------------"
  • 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: " ("_$G(VA("BID"))_")"_" "_PSODIV
  • Line Location: PRTSSN+5
Routine Call
  • %ZIS
  • Line Location:
    • DVC
Routine Call
  • DIR
  • Line Location:
    • TITLE+1
    • END+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+16, TITLE+5
^PS(59 - [#59] PRTSSN+4
^PSRX - [#52] START+19, PRTSSN+4
^PSRX("B" START+18, PRTSSN+3
^XTMP("PSOCPIB3" START+7, START+8, START+11, START+13

Label References

Name Line Occurrences
DONE DVC, QUEUE
END START+23
FULL START+14, START+15
PRTSSN START+14
TITLE START+5, FULL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC!*
%ZSI QUEUE!
BILLDT START+7*, DONE+1!
DFN PRTSSN+1~, PRTSSN+2*
DIR TITLE+1!, END+1!, DONE+1!
DIR("A" END+1*
DIR(0 TITLE+1*, END+1*
DIRUT DONE+1!
DT TITLE+5
DTOUT DONE+1!
DUOUT DONE+1!
IO START+2
IO("Q" QUEUE, DONE+1!
IOF TITLE+3, END+3
IOP DVC!, DONE+1!
IOSL START+4, FULL+1
IOST START+3
MJT TITLE+6*, DONE+1!
POP DVC!, DONE+1!
PSOBILL START+19*, START+20, START+21, DONE+1!
PSODFN START+8*, START+11, START+13, START+22, DONE+1!, PRTSSN+2
PSODIV DONE+1!, PRTSSN+4*, PRTSSN+5
PSODV START+3*, TITLE+1, END+1, END+2, DONE+1!
PSOFILL START+11*, START+13, START+15, START+19, DONE+1!
PSOFIRST START+1~, START+9*, START+14*
PSOIBST START+21*, DONE+1!
PSOJ START+6*, START+8*, START+11, START+13, DONE+1!
PSONAM START+8*, START+11, START+13, START+14, DONE+1!
PSOOUT START+3*, START+14, START+15, FULL+1, TITLE+1*, END+1, DONE+1!
PSOPGCT START+4*, TITLE+1, TITLE+5, TITLE+10*, DONE+1!
PSOPGLN START+4*, DONE+1!
PSORXP START+18*, START+19, DONE+1!, PRTSSN+3*, PRTSSN+4
RXP START+11*, START+13, START+15, START+18, DONE+1!, PRTSSN+3
VA DONE+1!
VA("BID" PRTSSN+5
X DONE+1!
XX START+12~, START+13*, START+16, START+22
Y START+16*, START+17, TITLE+1, TITLE+5*, DONE+1!
>> ZTDESC QUEUE*
>> ZTQUEUED DONE+2
>> ZTREQ DONE+2*
>> ZTRTN QUEUE*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All