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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOFIXDT

Package: Outpatient Pharmacy

Routine: PSOFIXDT


Information

PSOFIXDT ;BHAM ISC/RTR - COSIGNER AND FILL DATE CLEAN UP;7/29/94

Source Information

Source file <PSOFIXDT.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^%DT  (C,NOW)^%DTC  ^DIE  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
START
SUS
BEG
MAIL
END

External References

Name Field # of Occurrence
^%DT PSOFIXDT+11
C^%DTC PSOFIXDT+10, START+1
NOW^%DTC PSOFIXDT+11
^%ZTLOAD PSOFIXDT+12, PSOFIXDT+13, PSOFIXDT+14
^DIE BEG+3, BEG+4
^XMD MAIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"It appears from your version entry in your Pharmacy System File (#59.7)",!,"that you are not running Outpatient V 6.0.!",!
  • Line Location: PSOFIXDT+2
Function Call: WRITE
  • Prompt: !,"There is a problem with the Date OP Installed field in your Pharmacy",!,"System File (#59.7), check entry and start again!",!!
  • Line Location: PSOFIXDT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PSOFIXDT+4
Function Call: WRITE
  • Prompt: !,"This routine will queue three separate jobs.",!
  • Line Location: PSOFIXDT+4
Function Call: WRITE
  • Prompt: !,"One job will generate a mail message listing prescriptions with missing",!,"Fill dates or Refill dates.",!
  • Line Location: PSOFIXDT+5
Function Call: WRITE
  • Prompt: !,"A second job will generate a mail message listing entries in your Suspense",!,"File (#52.5) with missing Suspense dates.",!
  • Line Location: PSOFIXDT+6
Function Call: WRITE
  • Prompt: !,"A third job will look through your prescription file for any -1 entries",!,"in your Cosigning Physician field.",!
  • Line Location: PSOFIXDT+7
Function Call: WRITE
  • Prompt: "If we find any, we will update that field with the appropriate entry,",!,"based on the Usual Cosigner field in the New Person File for the",!,"provider of the prescription. If there is a problem with the Usual Cosigner"
  • Line Location: PSOFIXDT+8
Function Call: WRITE
  • Prompt: !,"entry in the New Person File, we will set that field to null.",!,"A mail message will be sent to you with the number of entries changed.",!
  • Line Location: PSOFIXDT+9
Function Call: WRITE
  • Prompt: !,"Try again later!",!
  • Line Location: PSOFIXDT+11
Function Call: WRITE
  • Prompt: !!,"TASKS QUEUED!",!
  • Line Location: PSOFIXDT+14
Routine Call
  • DIE
  • Line Location:
    • BEG+3
    • BEG+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.5 - [#52.5] SUS+2
^PS(59.7 - [#59.7] PSOFIXDT+2, PSOFIXDT+3
^PSRX - [#52] BEG+1, START+2, START+3, START+4, START+5, START+6, SUS+2
^PSRX("AD" BEG+1, START+1
^TMP($J BEG!*, BEG+5*, BEG+6*, START!*, START+5*, START+6*, START+7*, SUS!*, SUS+1*, SUS+2*
, SUS+3*, END!
^VA(200 - [#200] BEG+2

Label References

Name Line Occurrences
END PSOFIXDT+2, PSOFIXDT+3, PSOFIXDT+11, PSOFIXDT+14, BEG+7, START+8
MAIL BEG+7, START+8, SUS+4

Naked Globals

Name Field # of Occurrence
^("PS" BEG+2
^(0 START+6
^(2 START+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PSOFIXDT+11
%DT PSOFIXDT+11*, END!
%DT("A" PSOFIXDT+11*
%DT("B" PSOFIXDT+11*
%DT(0 PSOFIXDT+11*
AAA BEG+1*, END!
BBB BEG+1*, BEG+3, BEG+4, END!
CCC START+1*, END!
CNT BEG+1*, BEG+3*, BEG+5, END!
DA BEG+1!, BEG+3*, BEG+4*, END!
DIE BEG+3*, BEG+4*, END!
DR BEG+1!, BEG+3*, BEG+4*, END!
DT BEG+2
DTOUT PSOFIXDT+11, END!
DUOUT END!
DUZ MAIL
IOF PSOFIXDT+4
>> LLL START+6*
PPP START+2*, START+3, START+4, START+5, START+6, END!
PSCNUM BEG+2*, BEG+3, END!
PSCOS BEG+1*, BEG+2*, BEG+3, BEG+4, END!
PSOCNT BEG+1*, BEG+4*, BEG+5, BEG+6, END!
PSOCOUNT START+2*, START+5*, START+6*, START+7, END!
PSOQTIME PSOFIXDT+11*, PSOFIXDT+12, PSOFIXDT+13, PSOFIXDT+14, END!
PSOSTART PSOFIXDT+2*, PSOFIXDT+3*, PSOFIXDT+10*, PSOFIXDT+12, PSOFIXDT+14, BEG+1, START+1, END!
PSOTOT BEG+1*, BEG+5*, BEG+6, END!
PSPRV BEG+1!*, BEG+2, END!
PSSUB START+2*, START+5*, START+6*, END!
PSUS BEG+1!
RRR SUS+2*, END!
RXNUM START+4*, START+5, START+6, END!
>> RXSTART START+1*, START+2
SUSCOUNT SUS*, SUS+2*, SUS+3, END!
>> X PSOFIXDT+10, START+1
>> X1 PSOFIXDT+10*, START+1*
>> X2 PSOFIXDT+10*, START+1*
XMDUZ END!, MAIL*
XMSUB BEG+7*, START+8*, SUS+4*, END!
XMTEXT END!, MAIL*
XMY END!
XMY( MAIL*
Y PSOFIXDT+11, END!
ZTDESC PSOFIXDT+12*, PSOFIXDT+13*, PSOFIXDT+14*, END!
ZTDTH PSOFIXDT+12*, PSOFIXDT+13*, PSOFIXDT+14*, END!
ZTIO PSOFIXDT+12*, PSOFIXDT+13*, PSOFIXDT+14*, END!
>> ZTQUEUED END
>> ZTREQ END*
ZTRTN PSOFIXDT+12*, PSOFIXDT+13*, PSOFIXDT+14*, END!
ZTSAVE END!
ZTSAVE("PSOSTART" PSOFIXDT+12*, PSOFIXDT+14*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All