Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSOCIDC3

Package: Outpatient Pharmacy

Routine: PSOCIDC3


Information

PSOCIDC3 ;BIR/LE - continuation of Copay Correction of erroneous billed copays ;11/08/05 1:56pm

Source Information

Source file <PSOCIDC3.m>

Entry Points

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

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+32
Function Call: WRITE
  • Prompt: !,"Total number of Cancelled Copay prescriptions: ",PSOTOTC
  • Line Location: START+33
Function Call: WRITE
  • Prompt: !!,"Total number of un-released prescriptions modified: ",PSOTOT
  • Line Location: START+57
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
Info |  Source |  Entry Points |  Interaction Calls