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

Package: Outpatient Pharmacy

Routine: PSOCPIB3


Information

PSOCPIB3 ;BIR/EJW-Clean up to bill unbilled NON-SERVICE CONNECTED copays ;12/12/02

Source Information

Source file <PSOCPIB3.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$DT^XLFDT  (BMES,MES)^XPDUTL  
Outpatient Pharmacy 4 CP^PSOCP  SITE^PSOCPBA2  (CHKLOG,XTYPE)^PSOCPBAK  GETDATE^PSOCPIB4  
VA Fileman 3 DD^%DT  (C,NOW)^%DTC  ^DIR  
Integrated Billing 1 $$RXST^IBARXEU  
MailMan 1 ^XMD  
Registration 1 (DEM,PID)^VADPT  

Entry Points

Name Comments DBIA/ICR reference
MAIL2 ; SEND NAME INFO FOR USE BY AAC
EN ;
END ;
RPT ;
TITLE ;
PROCESS ;
ACCUM ; ACCUMULATE TOTALS AND SEE IF PATIENT MET ANNUAL CAP
BILL ;
; IF NO IB NUMBER FOR THIS FILL, SET UP VARIABLES AND CALL CP^PSOCP. IF THERE IS AN IB NUMBER AFTER THIS CALL, COUNT IT FOR SUMMARY MAIL MSG
DVC
QUEUE
START ;
FULL ;
DONE ;
MAIL ;
PRTSSN ;
CHKTOT ; SEE IF BILLING THIS FILL WOULD GO OVER CAP
GETDATE ; GET DATE/TIME OF WHEN BACKGROUND JOB SHOULD BE RUN

External References

Name Field # of Occurrence
DD^%DT EN+4, MAIL+1
C^%DTC EN+6
NOW^%DTC EN+4, MAIL+1
^%ZIS DVC
^%ZISC DONE+2
^%ZTLOAD PSOCPIB3+15, QUEUE
^DIR TITLE+1, END+1
$$RXST^IBARXEU EN+22
CP^PSOCP BILL+15, BILL+24
SITE^PSOCPBA2 BILL+14, BILL+23
CHKLOG^PSOCPBAK EN+13
XTYPE^PSOCPBAK EN+15
GETDATE^PSOCPIB4 GETDATE+2
DEM^VADPT MAIL2+9
PID^VADPT PRTSSN+2
$$DT^XLFDT EN+5
^XMD MAIL+14, MAIL2+12
BMES^XPDUTL PSOCPIB3+7, PSOCPIB3+10, PSOCPIB3+11, PSOCPIB3+14
MES^XPDUTL PSOCPIB3+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Clean up job for PSO*7*123 is still running. Halting..."
  • Line Location: RPT+2
Function Call: WRITE
  • Prompt: !!,"This report shows the patient name and prescription information for fills"
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: !,"that were billed as part of patch PSO*7*123 clean-up."
  • Line Location: RPT+5
Function Call: WRITE
  • Prompt: !!,"You may queue the report to print, if you wish.",!
  • Line Location: RPT+6
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+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,"Patch PSO*7*123 -COPAY PRESCRIPTION FILLS BILLED"
  • 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",?40,"RX# (FILL)",?66,"RELEASE DATE"
  • Line Location: TITLE+7
Function Call: WRITE
  • Prompt: !,"------------------------",?40,"----------",?66,"------------"
  • Line Location: TITLE+8
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
  • 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+13, TITLE+5
^DIC(4 - [#4] MAIL2+3
^DPT - [#2] EN+10, BILL+17, BILL+26
^IBAM(354.7 CHKTOT+5
^PS(59 - [#59] PRTSSN+4
^PSRX - [#52] EN+10, EN+17, EN+18, EN+19, EN+20, EN+21, BILL+8, BILL+13, BILL+16, BILL+18
, BILL+22, BILL+25, BILL+27, PRTSSN+4
^PSRX("AL" EN+9, EN+16
^PSRX("B" PRTSSN+3
^XMB(1 - [#4.3] MAIL2+3
^XTMP("PSOCPBAK" EN+7, EN+11, EN+12, EN+15*, EN+23*, EN+24*, PROCESS+1, BILL+2, BILL+3, BILL+6
, BILL+7
^XTMP("PSOCPIB3" PSOCPIB3+6, PSOCPIB3+8, EN+1, EN+6*, PROCESS+4, MAIL2+8, BILL+20*, BILL+29*, RPT+1, RPT+3
, START+6, START+8, START+10, ACCUM+4, ACCUM+5*, CHKTOT+3, CHKTOT+4*
^XUSEC("PSO COPAY" MAIL+4

Label References

Name Line Occurrences
ACCUM BILL+21, BILL+30
BILL PROCESS+1
CHKTOT BILL+10
DONE DVC, QUEUE
END START+15
FULL START+11
GETDATE PSOCPIB3+13
MAIL PROCESS+2
MAIL2 PROCESS+3
PROCESS EN+7
PRTSSN START+11
TITLE START+4, FULL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+4, MAIL+1
%ZIS DVC!*
%ZSI QUEUE!
>> BADDT EN+12*, EN+13, EN+14, EN+23
DFN MAIL2+9*, PRTSSN+1~, PRTSSN+2*
DIFROM MAIL+14~, MAIL2+12~
DIR TITLE+1!, END+1!, DONE+1!
DIR("A" END+1*
DIR(0 TITLE+1*, END+1*
DIRUT DONE+1!
DT EN+5*, EN+6, TITLE+5
DTOUT DONE+1!
DUOUT DONE+1!
DUZ MAIL+2, MAIL2+4
IO START+1
IO("Q" QUEUE, DONE+1!
IOF TITLE+3, END+3
IOP DVC!, DONE+1!
IOSL START+3, FULL+1
IOST START+2
MJT TITLE+6*, DONE+1!
POP DVC!, DONE+1!
>> PSOBILL BILL+16*, BILL+25*
>> PSOCAP( BILL+11, CHKTOT+8*, CHKTOT+9*
>> PSOCAP(302 BILL+4*
>> PSOCAP(303 BILL+5*
PSOCNT EN+2~, EN+3*, MAIL+8, MAIL+9, MAIL+13, MAIL2+2*, MAIL2+10*, BILL+19*, BILL+28*
>> PSOCPUN BILL+8*, BILL+9, ACCUM+2*, ACCUM+5, CHKTOT+8, CHKTOT+9
>> PSOCXPDA MAIL+4*
>> PSODFN EN+10*, EN+11, EN+12, EN+15, EN+22, EN+23, EN+24, MAIL2+8*, MAIL2+9, BILL+2*
, BILL+3, BILL+6, BILL+7, BILL+17, BILL+20, BILL+26, BILL+29, START+6*, START+8, START+10
, PRTSSN+2, ACCUM+4, ACCUM+5, CHKTOT+3, CHKTOT+4, CHKTOT+5
>> PSODIV PRTSSN+4*, PRTSSN+5
PSODT EN+2~, EN+8*, EN+9*, EN+14, EN+16
>> PSODV START+2*, TITLE+1, END+1, END+2
PSOEND EN+2~, MAIL+1*, MAIL+7
>> PSOFILL START+8*, START+10, START+12
>> PSOINST MAIL2+3*, MAIL2+7, MAIL2+10, MAIL2+11
>> PSOJ PROCESS+1*, BILL+2, BILL+3, BILL+6, BILL+7, START+5*, START+6*, START+8, START+10
>> PSOLOG CHKTOT+5*, CHKTOT+6, CHKTOT+7
>> PSONAM MAIL2+8*, MAIL2+10, BILL+17*, BILL+20, BILL+26*, BILL+29, START+6*, START+8, START+10, START+11
>> PSOOUT START+2*, START+11, FULL+1, TITLE+1*, END+1
PSOPGCT START+3*, TITLE+1, TITLE+5, TITLE+9*, DONE+1!
PSOPGLN START+3*, DONE+1!
>> PSOQUES GETDATE+1*
>> PSOREL EN+17*, EN+22, EN+24, BILL+7*, BILL+11, BILL+20, BILL+29, ACCUM+1, CHKTOT+1
>> PSORXP BILL+18*, BILL+20, BILL+27*, BILL+29, PRTSSN+3*, PRTSSN+4
>> PSOSCMX EN+15
>> PSOSQ CHKTOT+5*
PSOSTART EN+2~, EN+4*, MAIL+7
>> PSOSVUN BILL+9*, ACCUM+2
PSOTEXT EN+2~, MAIL2+1!, MAIL2+11
PSOTEXT( MAIL2+10*
PSOTEXT(1 MAIL+6*, MAIL2+11*
PSOTEXT(2 MAIL+7*
PSOTEXT(3 MAIL+8*, MAIL+13*
PSOTEXT(4 MAIL+9*
PSOTEXT(5 MAIL+10*
PSOTEXT(6 MAIL+11*
PSOTEXT(7 MAIL+12*
>> PSOTOT ACCUM+4*, ACCUM+5, CHKTOT+3*, CHKTOT+4, CHKTOT+7*, CHKTOT+8, CHKTOT+9
>> PSOXIN EN+22*
>> PSOYR ACCUM+1*, ACCUM+3, ACCUM+4, ACCUM+5, CHKTOT+1*, CHKTOT+2, CHKTOT+3, CHKTOT+4, CHKTOT+5, CHKTOT+8
, CHKTOT+9
RXP EN+2~, EN+9*, EN+10, EN+12, EN+16, EN+17, EN+18, EN+19, EN+20, EN+21
, EN+23, EN+24, BILL+6*, BILL+7, BILL+8, BILL+13, BILL+16, BILL+18, BILL+22, BILL+25
, BILL+27, START+8*, START+10, START+12, PRTSSN+3
>> VA("BID" MAIL2+10, PRTSSN+5
X EN+6, DONE+1!
>> X1 EN+6*
>> X2 EN+6*
XMDUZ MAIL+3*, MAIL+14!, MAIL2+7*, MAIL2+12!
XMSUB MAIL+3*, MAIL+14!, MAIL2+7*, MAIL2+12!
XMTEXT MAIL+14*!, MAIL2+12*!
XMY MAIL2+1!
XMY( MAIL+2*, MAIL+4*, MAIL2+4*
XMY("" MAIL+5
XMY("CARROLL.DAN@DOMAIN.NAME" MAIL2+6*
XMY("WHITE.ELAINE@DOMAIN.NAME" MAIL2+5*
XX START+9~, START+10*, START+13
Y EN+4*, MAIL+1*, START+13*, START+14, TITLE+1, TITLE+5*, DONE+1!
YY EN+2~, EN+16*, EN+17, EN+18, EN+19, EN+20, EN+21, EN+24, BILL+6*, BILL+7
, BILL+12, BILL+20, BILL+22, BILL+25, BILL+29
ZTDESC PSOCPIB3+15*!, QUEUE*
ZTDTH PSOCPIB3+4*, PSOCPIB3+5*, PSOCPIB3+7, PSOCPIB3+9, PSOCPIB3+15!
ZTIO PSOCPIB3+15*!
>> ZTQUEUED PSOCPIB3+5, PSOCPIB3+16, EN+1, PROCESS+5, DONE+2
>> ZTREQ EN+1*, PROCESS+5*, DONE+2*
ZTRTN PSOCPIB3+15*!, QUEUE*
>> ZTSK PSOCPIB3+16
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All