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

Package: Outpatient Pharmacy

Routine: PSOCIDC3


Information

PSOCIDC3 ;BIR/LE - continuation of Copay Correction of erroneous billed copays ;29-May-2012 14:42;PLS

Source Information

Source file <PSOCIDC3.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  $$PROD^XUPROD  
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIR  
Integrated Billing 1 $$STATUS^IBARX  
MailMan 1 ^XMD  
Outpatient Pharmacy 1 $$NAMSP^PSOCIDC1  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSOCIDC1  PSOCIDC2  PSOCIDC4  

Entry Points

Name Comments DBIA/ICR reference
FULL ;
END ;
RPT ;
MAIL3(MSG) ;management mail message
TITLE ;
CHK ;VERIFY COPAY WAS CANCELLED
DVC
QUEUE
START ;
TITLE2 ;
DONE ;
PRTSSN ;
ETIME(SECTIME) ;convert seconds to day:hr:min:sec

External References

Name Field # of Occurrence
DD^%DT MAIL3+2
NOW^%DTC MAIL3+2
^%ZIS DVC
^%ZISC DONE+2
^%ZTLOAD QUEUE
^DIR TITLE+1, TITLE2+1, END+1
$$STATUS^IBARX CHK+5
$$NAMSP^PSOCIDC1 RPT+2, START+4
$$NOW^XLFDT START+9
^XMD MAIL3+17
$$PROD^XUPROD MAIL3+6, MAIL3+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report shows the patient name and prescription information for"
  • Line Location: RPT+7
Function Call: WRITE
  • Prompt: !,"copay field corrections and copays billed erroneously that were cancelled"
  • Line Location: RPT+8
Function Call: WRITE
  • Prompt: !,"by the patch PSO*7*226."
  • Line Location: RPT+9
Function Call: WRITE
  • Prompt: !!,"You may queue the report to print, if you wish.",!
  • Line Location: RPT+11
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: !!,"Total number of released prescriptions modified: ",PSOTOT
  • Line Location: START+33
Function Call: WRITE
  • Prompt: !,"Total number of Cancelled Copay prescriptions: ",PSOTOTC
  • Line Location: START+34
Function Call: WRITE
  • Prompt: !!,"Total number of un-released prescriptions modified: ",PSOTOT
  • Line Location: START+59
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,"Patch PSO*7*226 -Corrected Released Prescriptions "
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !!,"Note that prescriptions where copay was cancelled are denoted with"
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: !,"an asterisk (*) in front of the patient name. Otherwise, only the"
  • Line Location: TITLE+6
Function Call: WRITE
  • Prompt: !,"the IBQ node was updated.",!
  • Line Location: TITLE+7
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?70,"Page: ",PSOPGCT,!
  • Line Location: TITLE+8
Function Call: WRITE
  • Prompt: "="
  • Line Location: TITLE+9
Function Call: WRITE
  • Prompt: !,?69,"INS ON DTE"
  • Line Location: TITLE+10
Function Call: WRITE
  • Prompt: !,"PATIENT NAME (SSN) DIV",?42,"RX# (FILL)",?55,"RELEASE DATE",?69,"REL BILL"
  • Line Location: TITLE+11
Function Call: WRITE
  • Prompt: !,"--------------- ------- --------------",?42,"------------"
  • Line Location: TITLE+12
Function Call: WRITE
  • Prompt: ?55,"------------",?69,"---- -----"
  • Line Location: TITLE+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE2+3
Function Call: WRITE
  • Prompt: !,"Patch PSO*7*226 -Corrected Unreleased Prescriptions "
  • Line Location: TITLE2+4
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?70,"Page: ",PSOPGCT,!
  • Line Location: TITLE2+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: TITLE2+6
Function Call: WRITE
  • Prompt: !,?69,"INS ON DTE"
  • Line Location: TITLE2+7
Function Call: WRITE
  • Prompt: !,"PATIENT NAME (SSN) DIV",?43,"RX# (FILL)",?55,"FILL DATE",?69,"REL BILL"
  • Line Location: TITLE2+8
Function Call: WRITE
  • Prompt: !,"-------------- ------- ----------------",?42,"------------"
  • Line Location: TITLE2+9
Function Call: WRITE
  • Prompt: ?55,"------------",?69,"---- -----"
  • Line Location: TITLE2+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: ?17,"("_PSOPATID_")"_" "_$E(PSODIV,1,15)
  • Line Location: PRTSSN+5
Routine Call
  • DIR
  • Line Location:
    • TITLE+1
    • TITLE2+1
    • END+1
Routine Call
  • %ZIS
  • Line Location:
    • DVC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+27, START+53, TITLE+8, TITLE2+5
^DIC(4 - [#4] MAIL3+1
^DPT - [#2] START+21, START+48, PRTSSN+1
^PS(59 - [#59] PRTSSN+4
^PSRX - [#52] START+25, START+51, CHK+3, CHK+4, PRTSSN+3
^XMB(1 - [#4.3] MAIL3+1
^XTMP( RPT+4, RPT+6, START+8, START+12, START+14, START+16, START+18, START+20, START+22, START+39
, START+41, START+43, START+45, START+47

Label References

Name Line Occurrences
CHK START+22
DONE DVC, QUEUE
END START+60
FULL START+21, START+48
PRTSSN START+24, START+50
TITLE START+10, FULL+1
TITLE2 START+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MAIL3+2
%ZIS DVC!*
%ZSI QUEUE!
BLDT START+2~, START+8*
CANCEL START+3~, START+22*, START+23, CHK+6*
DAY ETIME+1~, ETIME+2*, ETIME+3*, ETIME+9
DIFROM MAIL3+17~
DIR TITLE+1!, TITLE2+1!, END+1!, DONE+1!
DIR("A" END+1*
DIR(0 TITLE+1*, TITLE2+1*, END+1*
DIRUT DONE+1!
DT START+9*, TITLE+8, TITLE2+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
IBN CHK+2~, CHK+3*, CHK+4*, CHK+5
IO START+1
IO("Q" QUEUE, DONE+1!
IOF TITLE+3, TITLE2+3, END+3
IOP DVC!, DONE+1!
IOSL START+7, FULL+1
IOST START+6
JOBN RPT+1~, RPT+3*, RPT+5, QUEUE, START+3~, START+5*, MAIL3+7
MIN ETIME+1~, ETIME+2*, ETIME+5*, ETIME+8*, ETIME+9
MJT TITLE+9*, TITLE2+6*, DONE+1!
MSG MAIL3~, MAIL3+14
NAMSP RPT+1~, RPT+2*, RPT+4, RPT+6, START+2~, START+4*, START+8, START+12, START+14, START+16
, START+18, START+20, START+22, START+39, START+41, START+43, START+45, START+47
POP DVC!, DONE+1!
PSODFN START+2~, START+13*, START+14*, START+16, START+18, START+20, START+21, START+22, START+40*, START+41*
, START+43, START+45, START+47, START+48, PRTSSN+1
PSODIV START+2~, PRTSSN+3*, PRTSSN+4*, PRTSSN+5
PSODV START+2~, START+6*, TITLE+1, TITLE2+1, END+1, END+2
>> PSOEND MAIL3+2*
PSOFILL START+2~, START+17*, START+18*, START+20, START+22, START+26, START+44*, START+45*, START+47, START+52
, CHK+2
PSOIB CHK+2~
>> PSOINST MAIL3+1*, MAIL3+8
PSONAM START+2~, START+11*, START+12*, START+14, START+16, START+18, START+20, START+38*, START+39*, START+41
, START+43, START+45, START+47, PRTSSN+2
PSONAME START+19~, START+21*, START+23, START+46~, START+48*, START+49
PSOOUT START+2~, START+6*, START+21, START+48, FULL+1, TITLE+1*, TITLE2+1*, END+1
PSOPATID START+3~, PRTSSN+2*, PRTSSN+5
PSOPGCT START+7*, TITLE+1, TITLE+8, TITLE+14*, TITLE2+1, TITLE2+5, TITLE2+11*, DONE+1!
PSOPGLN START+7*, DONE+1!
PSOREF CHK+2~*, CHK+3, CHK+4
>> PSOSTART MAIL3+12
PSOTEXT MAIL3+3!
PSOTEXT(1 MAIL3+11*
PSOTEXT(2 MAIL3+12*
PSOTEXT(3 MAIL3+13*
PSOTEXT(4 MAIL3+14*
PSOTEXT(5 MAIL3+15*
PSOTEXT(6 MAIL3+16*
PSOTOT START+3~, START+11*, START+32*, START+33, START+38*, START+58*, START+59
PSOTOTC START+3~, START+11*, START+22*, START+34
RXO START+2~, START+19~, START+25*, START+26, START+46~, START+51*, START+52
RXP START+2~, START+15*, START+16*, START+18, START+20, START+22, START+25, START+42*, START+43*, START+45
, START+47, START+51, CHK+3, CHK+4, PRTSSN+3
SEC ETIME+1~, ETIME+2*, ETIME+6*, ETIME+8*, ETIME+10
SECTIME ETIME~, ETIME+3*, ETIME+4*, ETIME+5*, ETIME+6
SSN START+2~, PRTSSN+1*, PRTSSN+2
X DONE+1!
XMDUZ MAIL3+7*, MAIL3+17!
XMSUB MAIL3+8*, MAIL3+9*, MAIL3+10*, MAIL3+17!
XMTEXT MAIL3+17*!
>> XMY( MAIL3+4*
>> XMY("ELLZEY.LINDA@FORUM.VA.GOV" MAIL3+5*, MAIL3+6*
XX START+19~, START+20*, START+27, START+46~, START+47*, START+53, CHK+2~, CHK+3*, CHK+4*, CHK+5*
, CHK+6
Y START+19~, START+27*, START+28, START+46~, START+53*, START+54, TITLE+1, TITLE+8*, TITLE2+1, TITLE2+5*
, DONE+1!, MAIL3+2*
ZTDESC RPT+1~, QUEUE*
>> ZTQUEUED DONE+2
>> ZTREQ DONE+2*
ZTRTN RPT+1~, QUEUE*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All