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 |  Local Variables |  All
Print Page as PDF
Routine: PSOCIDC9

Package: Outpatient Pharmacy

Routine: PSOCIDC9


Information

PSOCIDC9 ;BIR/LE - continuation of activity log corrections ;2/28/05 12:50pm

Source Information

Source file <PSOCIDC9.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  
Outpatient Pharmacy 2 $$NAMSP^PSOCIDC7  CHECK^PSOCIDC8  
VA FileMan 2 ^DIC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
RPT ;
DVC ;
QUEUE ;
START ;
FULL ;
TITLE ;
END ;
DONE ;
PRTSSN ;
LOCKED ;LIST OF LOCKED RX'S
DVC2 ;
QUEUE2 ;
START2 ;
FULL2 ;
TITLE2 ;
FIXONE ;FIX LOCKED RX'S
FIX2 ;

External References

Name Field # of Occurrence
^%ZIS DVC+1, DVC2+1
^%ZISC DONE+2
^%ZTLOAD QUEUE+1, QUEUE2+1
^DIC FIX2+3
^DIR TITLE+1, END+1, TITLE2+1
$$NAMSP^PSOCIDC7 RPT+2, START+4, LOCKED+2, START2+4, FIX2+6
CHECK^PSOCIDC8 FIX2+10
$$NOW^XLFDT START+10, START2+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report reflects all prescriptions where the activity and"
  • Line Location: RPT+7
Function Call: WRITE
  • Prompt: !,"copay activity logs were corrected. For detailed information,"
  • Line Location: RPT+8
Function Call: WRITE
  • Prompt: !,"please view the activity and copay logs on the prescriptions."
  • 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+1
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: QUEUE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,"Patch PSO*7*239 - Corrected Activity and Copay Activity logs",!!
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: "Note that this report reflects all prescriptions where the activity and/or",!
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: "copay activity logs were corrected. For detailed information, please view",!
  • Line Location: TITLE+6
Function Call: WRITE
  • Prompt: "the activity and copay activity log on the prescription.",!
  • Line Location: TITLE+7
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?70,"Page: ",PSOPGCT,!
  • Line Location: TITLE+9
Function Call: WRITE
  • Prompt: "="
  • Line Location: TITLE+10
Function Call: WRITE
  • Prompt: !,"PATIENT NAME (SSN) DIV",?42,"RX# "
  • Line Location: TITLE+13
Function Call: WRITE
  • Prompt: !,"--------------- ------- --------------",?42,"------------"
  • Line Location: TITLE+14
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
Function Call: WRITE
  • Prompt: !!,"This report reflects all prescriptions where the activity and",!
  • Line Location: LOCKED+7
Function Call: WRITE
  • Prompt: "copay activity logs could not be corrected due to the Rx being locked."
  • Line Location: LOCKED+8
Function Call: WRITE
  • Prompt: !!,"You may queue the report to print, if you wish.",!
  • Line Location: LOCKED+10
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: DVC2+1
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: QUEUE2+1
Function Call: WRITE
  • Prompt: !,$E(PSONAME,1,14)
  • Line Location: START2+15
Function Call: WRITE
  • Prompt: ?41," ",PSORXN
  • Line Location: START2+17
Function Call: WRITE
  • Prompt: !!,"Total number of prescriptions locked: ",PSONCNT,!
  • Line Location: START2+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE2+3
Function Call: WRITE
  • Prompt: !,"Patch PSO*7*239 - Locked Prescription Number Report",!!
  • Line Location: TITLE2+4
Function Call: WRITE
  • Prompt: "Note that this report reflects all prescriptions where the activity and/or",!
  • Line Location: TITLE2+5
Function Call: WRITE
  • Prompt: "copay activity logs could not be corrected. For detailed information,",!
  • Line Location: TITLE2+6
Function Call: WRITE
  • Prompt: "please view the activity and copay activity log on the prescription.",!
  • Line Location: TITLE2+7
Function Call: WRITE
  • Prompt: !!,"Note that FIXONE^PSOCIDC9 can be run from programmer's mode"
  • Line Location: TITLE2+8
Function Call: WRITE
  • Prompt: !,"to correct individual prescriptions.",!!
  • Line Location: TITLE2+9
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?70,"Page: ",PSOPGCT,!
  • Line Location: TITLE2+11
Function Call: WRITE
  • Prompt: "="
  • Line Location: TITLE2+12
Function Call: WRITE
  • Prompt: !,"PATIENT NAME (SSN) DIV",?42,"RX# "
  • Line Location: TITLE2+14
Function Call: WRITE
  • Prompt: !,"--------------- ------- --------------",?42,"------------"
  • Line Location: TITLE2+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FIXONE+2
Function Call: WRITE
  • Prompt: !,"This function is used to correct individual prescriptions that were locked"
  • Line Location: FIXONE+3
Function Call: WRITE
  • Prompt: !,"during the CIDC Activity Log clean-up process. It verifies whether the"
  • Line Location: FIXONE+4
Function Call: WRITE
  • Prompt: !,"prescription needs to be corrected, and if so corrects it. If the Rx still"
  • Line Location: FIXONE+5
Function Call: WRITE
  • Prompt: !,"cannot be locked for correction, a message stating such will be displayed."
  • Line Location: FIXONE+6
Function Call: WRITE
  • Prompt: !,"Otherwise, a message stating that no correction is needed will be displayed.",!
  • Line Location: FIXONE+7
Function Call: WRITE
  • Prompt: !,"For detailed information please view the activity and copay activity log on"
  • Line Location: FIXONE+8
Function Call: WRITE
  • Prompt: !,"the prescription. For a listing of locked Rx's, type D LOCKED^PSOCIDC9 at"
  • Line Location: FIXONE+9
Function Call: WRITE
  • Prompt: !,"the programmer's prompt.",!
  • Line Location: FIXONE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: FIX2+3
Function Call: WRITE
  • Prompt: !,"For Patient: ",PSONAM
  • Line Location: FIX2+5
Function Call: WRITE
  • Prompt: !!,"No changes are needed for this prescription.",!
  • Line Location: FIX2+9
Function Call: WRITE
  • Prompt: !,"Activity logs corrected.",!!
  • Line Location: FIX2+11
Routine Call
  • %ZIS
  • Line Location:
    • DVC+1
    • DVC2+1
Routine Call
  • DIC
  • Line Location:
    • FIX2+3
Routine Call
  • DIR
  • Line Location:
    • TITLE+1
    • END+1
    • TITLE2+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TITLE+9, TITLE2+11
^DPT - [#2] START+18, PRTSSN+1, START2+15, FIX2+4
^PS(59 - [#59] PRTSSN+4
^PSRX - [#52] START+21, PRTSSN+3, START2+14, FIX2+4, FIX2+7, FIX2+8
^XTMP( RPT+4, RPT+6, START+9, START+13, START+15, START+17, LOCKED+4, LOCKED+6, START2+8, START2+11
, START2+18
^XTMP("PSOCIDC7" FIX2+11*

Label References

Name Line Occurrences
DONE DVC+1, QUEUE+1, DVC2+1, QUEUE2+1
END START+24, START2+20
FIX2 FIX2+9, FIX2+12
FULL START+18
FULL2 START2+12
PRTSSN START+20, START2+16
TITLE START+11, FULL+1
TITLE2 START2+10, FULL2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC+1!*, DVC2+1!*
%ZSI QUEUE+1!, QUEUE2+1!
BLDT START+2~, START+9*, START2+2~, START2+8*
CANCEL START+3~, START2+3~
CSEQ FIXONE+1~, FIX2+6*, FIX2+8*
>> DFN START2+14*, FIX2+4*
DIC FIX2+2!, FIX2+3*
DIC(0 FIX2+3*
DIR TITLE+1!, END+1!, DONE+1!, TITLE2+1!
DIR("A" END+1*
DIR(0 TITLE+1*, END+1*, TITLE2+1*
DIRUT DONE+1!
DT START+10*, TITLE+9, START2+9*, TITLE2+11
DTOUT DONE+1!
DUOUT DONE+1!
DUZ FIX2+11
FIXONE FIXONE+1~, FIX2+1*, FIX2+10*
IO START+1, START2+1
IO("Q" QUEUE+1, DONE+1!, QUEUE2+1
IOF TITLE+3, END+3, TITLE2+3, FIXONE+2
IOP DVC+1!, DONE+1!, DVC2+1!
IOSL START+8, FULL+1, START2+7, FULL2+1
IOST START+7, START2+6
JOBN RPT+1~, RPT+3*, RPT+5, QUEUE+1, START+3~, START+6*, LOCKED+1~, LOCKED+3*, LOCKED+5, QUEUE2+1
, START2+3~, START2+5*
MJT TITLE+10*, DONE+1!, TITLE2+12*
NAMSP RPT+1~, RPT+2*, RPT+4, RPT+6, START+2~, START+4*, START+9, START+13, START+15, START+17
, LOCKED+1~, LOCKED+2*, LOCKED+4, LOCKED+6, START2+2~, START2+4*, START2+8, START2+11, START2+18, FIXONE+1~
, FIX2+6*
POP DVC+1!, DONE+1!, DVC2+1!
PSOCHECK FIXONE+1~, FIX2+6*, FIX2+7*, FIX2+8*, FIX2+9
PSODFN START+2~, START+14*, START+15*, START+17, START+18, PRTSSN+1, START2+2~, START2+14*, START2+15, FIX2+4*
PSODIV START+2~, PRTSSN+3*, PRTSSN+4*, PRTSSN+5, START2+2~
PSODV START+2~, START+7*, TITLE+1, END+1, END+2, LOCKED+1~, START2+2~, START2+6*, TITLE2+1
PSOFILL START+2~
PSOFONE FIXONE+1~, FIX2+1*, FIX2+11
PSOMSG FIXONE+1~, FIX2+1*
PSONAM START+2~, START+12*, START+13*, START+15, START+17, PRTSSN+2, START2+2~, START2+15*, FIX2+4*, FIX2+5
PSONAME START+18*, START+19, START2+2~, START2+15*
PSONCNT START2+3~, START2+6*, START2+13*, START2+19
PSONTIM FIXONE+1~, FIX2+1*
PSOOUT START+2~, START+7*, START+18, FULL+1, TITLE+1*, END+1, START2+2~, START2+6*, START2+12, FULL2+1
, TITLE2+1*
PSOPATID START+3~, PRTSSN+2*, PRTSSN+5, START2+3~
PSOPGCT START+8*, TITLE+1, TITLE+9, TITLE+16*, DONE+1!, START2+2~, START2+6*, START2+7*, TITLE2+1, TITLE2+11
, TITLE2+16*
PSOPGLN START+8*, DONE+1!, START2+7*
PSORXN START2+3~, START2+14*, START2+17
PSOTOT START+3~, START+12*, START+18*, START+23, START2+3~
RXO START+2~, START+21*, START+22
RXP START+2~, START+16*, START+17*, START+21, PRTSSN+3, START2+2~, START2+7*, START2+11*, START2+14, START2+18
, FIXONE+1~, FIX2+4*, FIX2+7, FIX2+8, FIX2+11
SEQ FIXONE+1~, FIX2+6*, FIX2+7*
SSN START+2~, PRTSSN+1*, PRTSSN+2, START2+2~
X DONE+1!
Y TITLE+1, TITLE+9*, DONE+1!, TITLE2+1, TITLE2+11*, FIX2+3, FIX2+4
ZTDESC RPT+1~, QUEUE+1*, LOCKED+1~, QUEUE2+1*
ZTQUEUED RPT+1~, DONE+2, LOCKED+1~
ZTREQ RPT+1~, DONE+2*, LOCKED+1~
ZTRTN RPT+1~, QUEUE+1*, LOCKED+1~, QUEUE2+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All