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

Package: Outpatient Pharmacy

Routine: PSOSUDPR


Information

PSOSUDPR ;BIR/RTR-Delete printed Rx's from Suspense File ; 10/4/96

Source Information

Source file <PSOSUDPR.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  ^DIK  ^DIR  
Outpatient Pharmacy 3 ^PSOLSET  ^PSOSUDP1  (CKDIV,PSOINST)^PSOSUPAT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO PNDPRI  

Entry Points

Name Comments DBIA/ICR reference
EN
SING ;Delete single RX
DATE ;
BDATE
EDATE
ALL ;
BAR
END
MES

External References

Name Field # of Occurrence
^%DT BDATE, EDATE
^DIC SING+4, BAR+3
^DIK SING+8, EDATE+7, BAR+6
^DIR EN+4, SING+1, SING+7, EDATE+2, EDATE+4, ALL+1, BAR, BAR+4
^PSOLSET PSOSUDPR+2
^PSOSUDP1 EN+8
CKDIV^PSOSUPAT SING+6
PSOINST^PSOSUPAT SING+2, BAR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"Site Parameters must be defined to use this option!",!
  • Line Location: PSOSUDPR+2
Function Call: WRITE
  • Prompt: !!,"This option allows you to delete printed Rx's from suspense.",!
  • Line Location: PSOSUDPR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SING+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SING+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SING+4
Function Call: WRITE
  • Prompt: $C(7),!?5,"Cannot delete, Rx# ",RXEXT," has not been printed yet!"
  • Line Location: SING+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SING+6
Function Call: WRITE
  • Prompt: !!?5,"Rx# ",RXEXT," deleted from suspense!",!
  • Line Location: SING+8
Function Call: WRITE
  • Prompt: !!,"Deleting by date range will delete based on the day the Rx was",!,"actually printed from suspense!"
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDATE+1
Function Call: WRITE
  • Prompt: !!,"Deleting printed suspense entries."
  • Line Location: EDATE+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: EDATE+7
Function Call: WRITE
  • Prompt: !,"Finished!"
  • Line Location: EDATE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BAR+0
Function Call: WRITE
  • Prompt: !!,"Invalid Prescription!",!
  • Line Location: BAR+1
Function Call: WRITE
  • Prompt: !!,"Patient: ",$P($G(^DPT(PSODFN,0)),"^")
  • Line Location: BAR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BAR+3
Function Call: WRITE
  • Prompt: !!,"Deleting Suspense entries for ",$P($G(^DPT(PSODFN,0)),"^")
  • Line Location: BAR+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: BAR+6
Function Call: WRITE
  • Prompt: !!,"Finished!",!
  • Line Location: BAR+7
Function Call: WRITE
  • Prompt: !!?3,"Nothing deleted!",!
  • Line Location: MES+0
Routine Call
  • DIC
  • Line Location:
    • SING+4
    • BAR+3
Routine Call
  • DIR
  • Line Location:
    • EN+4
    • SING+1
    • SING+7
    • EDATE+2
    • EDATE+4
    • ALL+1
    • BAR
    • BAR+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^PS(52.5 - [#52.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] BAR+2, BAR+4, BAR+5
^PS(52.5 - [#52.5] SING+5, SING+6, EDATE+6, EDATE+7, EDATE+8, BAR+6
^PS(59 - [#59] EN+5
^PSRX - [#52] SING+3, SING+5, BAR+1, BAR+2

Label References

Name Line Occurrences
ALL EN+6, BAR, BAR+3, BAR+7
BAR BAR
BDATE BDATE
DATE EN+7
EDATE EDATE
EN EN+6, EN+7, EN+8, SING+1, SING+4, SING+9
END EN+4
MES SING+1, SING+2, SING+4, SING+6, SING+7, BDATE, EDATE, EDATE+2, EDATE+4, ALL+1
, BAR+4
SING SING+2, SING+4, SING+5, SING+6, SING+7

Naked Globals

Name Field # of Occurrence
^("P" SING+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BDATE!*, EDATE*!
%DT("A" BDATE*, EDATE*
%DT(0 EDATE*
ANS SING+2*, SING+4, END!
BCNUM BAR*, BAR+1, END!
BDATE EDATE*, EDATE+6*, END!
DA SING+8*, EDATE+7*, BAR+6*, END!
DFN END!
DIC SING+4*!, BAR+3!*, END!
DIC("S" SING+4*, BAR+3*
DIC(0 SING+4*, BAR+3*
>> DIK SING+8*, EDATE+7*, BAR+6*
DIR EN!, EN+4!, SING+1!, SING+7!, EDATE+2!, EDATE+4!, ALL+1!, BAR!, BAR+4!, END!
DIR("?" EN+2*, EN+3*, SING+1*
DIR("A" EN*, EN+1*, SING+1*, SING+7*, EDATE+2*, EDATE+4*, ALL+1*, BAR*, BAR+4*
DIR("B" EN*, SING+7*, EDATE+2*, EDATE+4*, BAR+4*
DIR(0 EN*, SING+1*, SING+7*, EDATE+2*, EDATE+4*, ALL+1*, BAR*, BAR+4*
>> DTOUT EN+4, SING+1, SING+4, BDATE, EDATE, EDATE+2, ALL+1, BAR, BAR+3
>> DUOUT EN+4, SING+1, SING+4, EDATE+2, ALL+1, BAR, BAR+3
EDATE EDATE+1*, EDATE+6*, END!
EE BAR+6*, END!
OUT SING+2*, BAR*, BAR+1*, END!
PDIVFLAG EDATE+7*, EDATE+8*, END!
PSALL ALL+2*, BAR, BAR+3, END!
PSINT EDATE+7*, END!
PSOCODE EN!, EN+4*, EN+6, EN+7, EN+8, END!
PSODFN BAR+2*, BAR+3*, BAR+4, BAR+5, BAR+6, END!
PSODIVS EN+5*, EDATE+2, EDATE+3, END!
PSONLY DATE+1*, EDATE+3*, EDATE+7, END!
>> PSOPAR PSOSUDPR+2
PSORXIN BAR+6*, END!
>> PSOSITE SING+6, EDATE+8
PSPOP SING+6*, END!
QQ EDATE+7*, EDATE+8, END!
>> RXEXT SING+5*, SING+7, SING+8
RXINT SING+4*, SING+5, END!
RXN BAR+1*, BAR+2, END!
RXREC SING+4*, END!
SS EDATE+6*, EDATE+7, END!
SUSINT SING+4*, SING+5, SING+6, SING+8, END!
X SING+1, SING+3*, SING+4*, BDATE, EDATE, END!
Y EN+4, SING+2, SING+3*, SING+4, SING+7, BDATE, EDATE, EDATE+1, EDATE+2, EDATE+3
, EDATE+4, ALL+1, ALL+2, BAR, BAR+3, BAR+4, END!
Y(0 SING+4
ZZZ EN+5*, END!
Info |  Source |  Call Graph |  Caller 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