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

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZTLOAD  $$DT^XLFDT  BMES^XPDUTL  
Outpatient Pharmacy 2 CP^PSOCP  CP^PSOCPIBC  
VA FileMan 2 (,DD)^%DT  NOW^%DTC  
MailMan 1 ^XMD  

Entry Points

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

External References

Name Field # of Occurrence
^%DT GETDATE+9
DD^%DT EN+4, MAIL+1, MAIL+14, GETDATE+3, GETDATE+13, PATCHDT+2
NOW^%DTC EN+4, EN+15, EN+21, MAIL+1, GETDATE+3, GETDATE+8
^%ZTLOAD PSOCPIBF+17
CP^PSOCP EN+17, EN+23
CP^PSOCPIBC EN+18, EN+24
$$DT^XLFDT EN+5
^XMD MAIL+15
BMES^XPDUTL PSOCPIBF+16

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
  • Timeout: 300
  • Variable: XX
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59 - [#59] SITE+3, SITE+4, CHKSITE+4
^PSRX - [#52] EN+11, EN+14, EN+19, EN+20, EN+25, SITE+1
^PSRX("AR" EN+10
^XPD(9.7 - [#9.7] EN+7, PATCHDT+2
^XUSEC("PSO COPAY" MAIL+4

Label References

Name Line Occurrences
ASK ASK+1
CHKSITE PSOCPIBF+14
GETDATE PSOCPIBF+15, GETDATE+10, ASK+2
MAIL EN+6
PATCHDT PSOCPIBF+13
SITE EN+16, EN+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+4, EN+15, EN+21, MAIL+1, GETDATE+3, GETDATE+8
%DT GETDATE+8!*, GETDATE+9!
%DT("A" GETDATE+8*
%DT(0 GETDATE+8*
DIFROM MAIL+15~
DT EN+5*, EN+6
>> DTOUT GETDATE+9
DUZ MAIL+2
>> NOW GETDATE+2*, GETDATE+9*, GETDATE+10, GETDATE+11, ASK
PROB CHKSITE+2~, CHKSITE+3*, CHKSITE+4*, CHKSITE+17
>> PROBTEXT CHKSITE+1*, CHKSITE+5, CHKSITE+18
PSOCNT EN+1~, EN+2*, EN+19*, EN+25*, MAIL+8, MAIL+9, MAIL+10
>> PSOCXPDA MAIL+4*
PSODATE EN+1~, EN+7*, EN+8*, EN+9*, EN+10*, EN+17, EN+18, EN+23, EN+24, MAIL+14
PSOEND EN+1~, MAIL+1*, MAIL+7
>> PSOFIRST PATCHDT+1*, PATCHDT+2*, PATCHDT+3
>> PSOIB EN+11*
>> PSOINST EN+7*, PATCHDT+2*
>> PSOPAR SITE+3*
>> PSOSITE SITE+1*, SITE+2, SITE+3, SITE+4
>> PSOSITE7 SITE+4*
PSOSTART EN+1~, EN+4*, MAIL+7
PSOSTOP EN+1~, EN+3*, EN+6*, EN+10, EN+15*, EN+21*, MAIL+11
PSOTEXT EN+1~
PSOTEXT(1 MAIL+6*
PSOTEXT(2 MAIL+7*
PSOTEXT(3 MAIL+8*, MAIL+10*
PSOTEXT(4 MAIL+9*
PSOTEXT(5 MAIL+12*
PSOTEXT(6 MAIL+13*
PSOTEXT(7 MAIL+14*
RXP EN+1~, EN+10*, EN+11, EN+14, EN+19, EN+20, EN+25, SITE+1
>> SAVEY GETDATE+12*, GETDATE+15
SITE CHKSITE+2~, CHKSITE+4*
>> TODAY GETDATE+3*, GETDATE+10
>> X GETDATE+14*, ASK
XMDUZ MAIL+3*, MAIL+15!
XMSUB MAIL+3*, MAIL+15!
XMTEXT MAIL+15*!
>> XMY( MAIL+2*, MAIL+4*
>> XMY("" MAIL+5
>> XX ASK+1*, ASK+2
>> Y EN+4*, MAIL+1*, MAIL+14*, GETDATE+3*, GETDATE+4, GETDATE+5, GETDATE+6, GETDATE+9, GETDATE+10, GETDATE+11
, GETDATE+12, GETDATE+14, GETDATE+15*, ASK+3, PATCHDT+2*
YY EN+1~, EN+10*, EN+13, EN+20, EN+25, SITE+1
ZTDESC PSOCPIBF+17*!
ZTDTH PSOCPIBF+4*, PSOCPIBF+5*, PSOCPIBF+6, PSOCPIBF+17!, GETDATE+1*, GETDATE+5*, GETDATE+9*, ASK+3*, ASK+4*
ZTIO PSOCPIBF+17*!
>> ZTQUEUED PSOCPIBF+5, PSOCPIBF+18, MAIL+16
>> ZTREQ MAIL+16*
ZTRTN PSOCPIBF+17*!
>> ZTSK PSOCPIBF+18
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All