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

Package: Outpatient Pharmacy

Routine: PSOCPIBF


Information

PSOCPIBF ;BIR/EJW-Clean up to bill unbilled CMOP copays ;01/14/02

Source Information

Source file <PSOCPIBF.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
MAIL ;
GETDATE ; GET DATE/TIME OF WHEN BACKGROUND JOB SHOULD BE RUN
ASK
SITE ; SET UP VARIABLES NEEDED BY BILLING
PATCHDT ; SHOW USER WHEN CMOP PATCH WAS FIRST INSTALLED
CHKSITE ; SEE IF ANY DIVISIONS HAD THE PROBLEM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Background job must be queued to start by "_$S(Y<3020131:"Jan 30, 2002 or before.",1:"Jan 31, 2002.")
  • Line Location: GETDATE+4
Function Call: WRITE
  • Prompt: !!,"At the following prompt, enter a starting date/time after ",Y,!,"and before "_$S(Y<3020131:"Jan 31, 2002",1:"Feb 1, 2002")," or enter NOW to queue the job immediately."
  • Line Location: GETDATE+6
Function Call: WRITE
  • Prompt: !,"If this prompting is during patch installation, you will not see what you type."
  • Line Location: GETDATE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATE+8
Function Call: WRITE
  • Prompt: "Task will be queued to run NOW"
  • Line Location: GETDATE+9
Function Call: WRITE
  • Prompt: !!,"Must queue background job to start on Jan. 30 or before."
  • Line Location: GETDATE+10
Function Call: WRITE
  • Prompt: !!,"Task will be queued to run "_$S(NOW:"NOW",1:X)_" Is that correct? :"
  • Line Location: ASK+0
Function Call: READ
  • Variable: XX
  • Timeout: 300
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: " Enter Y or N"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"CMOP patch PSX*2*35 was first installed at your facility on ",PSOFIRST
  • Line Location: PATCHDT+3
Function Call: WRITE
  • Prompt: !!,"When the background job is complete, a MailMan message will be sent to the"
  • Line Location: CHKSITE+14
Function Call: WRITE
  • Prompt: !,"installer indicating how many copay eligible CMOP prescription fills were "
  • Line Location: CHKSITE+15
Function Call: WRITE
  • Prompt: !,"successfully billed."
  • Line Location: CHKSITE+16
Function Call: WRITE
  • Prompt: !!,"All "_PROBTEXT_" are set to 'YES' for all divisions."
  • Line Location: CHKSITE+18
Function Call: WRITE
  • Prompt: !,"The MailMan message at the end should indicate that no fills were found to"
  • Line Location: CHKSITE+19
Function Call: WRITE
  • Prompt: !,"reprocess. (i.e. All released CMOP fills have already been billed.)"
  • Line Location: CHKSITE+20
Info |  Source |  Entry Points |  Interaction Calls