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

Package: Outpatient Pharmacy

Routine: PSODISP1


Information

PSODISP1 ;BHAM ISC/SAB,PDW - Rx released/unrelease report ;08 Oct 1999 9:58 AM

Source Information

Source file <PSODISP1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 (,DD)^%DT  C^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
Outpatient Pharmacy 2 CMOP^PSOCMOPA  ^PSOLSET  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO RELEASE REPORT  PSODISP2  

Entry Points

Name Comments DBIA/ICR reference
AC
RPT2
RPT
BC
TESTX
SCH(X) ;Schedule conversion
TEST ;
EXIT
CSDEA(X) ;CS Criteria .. returns a 1 if both DEA on drug & criteria 'N/C/B' are satisfied
CS ; ask CS selection criteria - store in DUD1
CP1
REF ;
HD

External References

Name Field # of Occurrence
^%DT CS+13, CS+15
DD^%DT CS+16
C^%DTC CS+11
^%ZIS CS+19
^%ZISC EXIT
^%ZTLOAD CS+23
^DIC AC+6
$$GET1^DIQ RPT2+5, RPT2+6, REF+7, REF+13, CSDEA+2
^DIR AC+5, AC+8, CS+4, CS+9
CMOP^PSOCMOPA RPT+1
^PSOLSET PSODISP1+4
$$FMTE^XLFDT RPT2+5, REF+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Pharmacy Division must be selected!",!
  • Line Location: PSODISP1+4
Function Call: WRITE
  • Prompt: @IOF,!?15,"Report of Released and UnReleased Prescriptions",!
  • Line Location: AC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: AC+6
Function Call: WRITE
  • Prompt: !
  • Line Location: AC+7
Function Call: WRITE
  • Prompt: !
  • Line Location: AC+8
Function Call: WRITE
  • Prompt: !!,"Select controlled substance schedules"
  • Line Location: CS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CS+11
Function Call: WRITE
  • Prompt: !!,"# of Released Fills - "_REL_" # of Unreleased Fills - "_UNREL_" # of Copay Fills - "_CP
  • Line Location: BC+1
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: BC+2
Function Call: WRITE
  • Prompt: !,$P(^PSRX(RXN,0),"^"),?16,$E($$GET1^DIQ(50,$P(^PSRX(RXN,0),"^",6),.01),1,30),?48,"0"
  • Line Location: RPT2+5
Function Call: WRITE
  • Prompt: ?52,$P($$FMTE^XLFDT(Y,"2Z"),"@"),?62,$$SCH($P(CSDEA,"^",2))
  • Line Location: RPT2+5
Function Call: WRITE
  • Prompt: !,$P(^PSRX(RXN,0),"^"),?16,$E($$GET1^DIQ(50,$P(^PSRX(RXN,0),"^",6),.01),1,30),?48,"0",?62,$$SCH($P(CSDEA,"^",2))
  • Line Location: RPT2+6
Function Call: WRITE
  • Prompt: ?52,$P($$FMTE^XLFDT(Y,"2Z"),"@"),?62,$$SCH($P(CSDEA,"^",2))
  • Line Location: REF+8
Function Call: WRITE
  • Prompt: ?68,$S(XY=1:"NV",XY=2:"Ref",XY=3!(XY=16):"HLD",XY=5:"SUSP",XY=10:"DONE",XY=11:"EXP",XY=12!(XY=14)!(XY=15):"DC",1:"ACT")
  • Line Location: CP1+0
Function Call: WRITE
  • Prompt: ?77,"Y"
  • Line Location: CP1+1
Function Call: WRITE
  • Prompt: ?85,"Y",?95,$S(PSX(NODE)=0:"Transmitted",PSX(NODE)=1:"Dispensed",PSX(NODE)=2:"Retransmitted",PSX(NODE)=3:"Not Dispensed",1:"Unknown")
  • Line Location: CP1+2
Function Call: WRITE
  • Prompt: @IOF,?$S('DUD:17,1:20),$S('DUD:"Release/",1:"")_"Unreleased Report for "_$P(^PS(59,SITE,0),"^",1),!
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: ?13,"Non-controlled Substance Prescriptions Only"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?8,"Controlled Substance Prescriptions (",$S(SCH=1:"Schedules I - II",SCH=2:"Schedules III - V",SCH=3:"Schedules I - V",1:"")_")"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !?18,PSDATE_" to "_PEDATE,?70,"Page: "_PG,!!,?47,"Fill/",?54,"Date",!,"Rx #",?16,"Drug",?47,"Ref#",?54,"Rel",?62,"Sch",?67,"Status",?75,"Copay "
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: "CMOP CMOP Status"
  • Condition for execution: $G(PSXSYS)
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+4
Routine Call
  • DIC
  • Line Location:
    • AC+6
Routine Call
  • DIR
  • Line Location:
    • AC+5
    • AC+8
    • CS+4
    • CS+9
Routine Call
  • %ZIS
  • Line Location:
    • CS+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CS+13, CS+14
^PS(59 - [#59] AC+1, AC+4, HD
^PS(59.7 - [#59.7] AC
^PSRX - [#52] RPT+1, RPT+2, RPT+4, RPT2, RPT2+1, RPT2+2, RPT2+3, RPT2+5, RPT2+6, RPT2+7
, REF+1, REF+2, REF+3, REF+4, REF+6, REF+7, REF+8, REF+9, REF+10, REF+13
, CP1+1, TEST+2, TEST+4, TEST+5, TEST+6, TEST+7
^PSRX("AD" RPT
^PSRX("ADP" RPT+3

Label References

Name Line Occurrences
$$CSDEA RPT2+4, REF+5
$$SCH RPT2+5, RPT2+6, REF+8, REF+13
@( RPT+2
CP1 RPT2+5, RPT2+6, REF+6
EXIT PSODISP1+4, AC+3, AC+8, CS+4, CS+6, CS+13, CS+15, CS+19, CS+20
HD BC, RPT, RPT+3
REF RPT+4
RPT BC
TEST REF+12
TESTX TEST+3

Naked Globals

Name Field # of Occurrence
^( TEST+2
^(0 RPT2+7
^(2 RPT2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT CS+13*, CS+15!, EXIT+1!
%DT("A" CS+13*, CS+15*
%DT("B" CS+13*, CS+15*
%DT(0 CS+11*, CS+13*
%ZIS CS+18!*
%ZIS("A" CS+18*
%ZIS("B" CS+18*
%ZIS("S" CS+18*
BDT EXIT!, RPT*, RPT+3*
BEG CS+13*, EXIT!
BEGDT CS+11*, CS+12*, CS+13*, CS+16, EXIT!, RPT, RPT+3
CP BC*, BC+1, EXIT+1!, CP1+1*
CSDEA EXIT!, RPT2+4*, RPT2+5, RPT2+6, REF+5*, REF+8, REF+13
DEA CSDEA+1~, CSDEA+2*, CSDEA+3, CSDEA+5, CSDEA+7
DIC AC+6*!, EXIT+1!
DIC("A" AC+6*
DIC(0 AC+6*
DIR AC+5!, AC+8!, CS+1!, CS+4!, CS+6!, CS+7!, EXIT!
DIR("?" AC+4*, AC+5*, AC+8*
DIR("A" AC+4*, AC+5*, AC+8*, CS+3*, CS+8*
DIR("B" AC+5*, AC+8*, CS+3*, CS+8*
DIR(0 AC+5*, AC+8*, CS+2*, CS+8*
DIRUT AC+5, AC+6, CS+6, EXIT!
DR EXIT!
DRUGDA CSDEA+1~, CSDEA+2*
DT CS+11, CS+14
DTOUT AC+8, CS+4, EXIT+1!
DUD AC+8*, EXIT+1!, RPT2, REF+1, HD
DUD1 CS+4!, CS+5*, CS+6, EXIT+1!, HD+1, HD+2, CSDEA+3, CSDEA+5
DUOUT AC+8, CS+4, EXIT!
END CS+14*, CS+15, EXIT!
ENDDT CS+15*, CS+16, EXIT!, RPT, RPT+3
G CS+22*, EXIT!
I AC*, AC+1*, CS+6!, CS+10*, EXIT!
IO BC
IO("Q" CS+18!, CS+20, CS+23!
IOF AC+2, BC+2, HD
ION CS+18
IOP CS+18!, CS+19*!
IOSL RPT, RPT+3
IOST BC+2
J CS+6!, CS+10*
K CS+6!, CS+10*
LB RPT+2!, RPT+4!, RPT2+7*, REF+10*
LBLP RPT+2!, RPT+4!, RPT2+6, RPT2+7*, REF+10*, REF+11, REF+12
LIN EXIT!, HD+3*
MUL AC*, AC+1*, AC+3, EXIT+1!
ND EXIT+1!, RPT*, RPT+3*
NODE EXIT!, RPT*, RPT+2, RPT+3*, REF+1, REF+2, REF+3, REF+6, REF+7, REF+8
, REF+9, REF+10, REF+11, REF+13, CP1+2
PAR EXIT!, RPT+4*, REF+1, REF+2, REF+3, REF+6, REF+7, REF+8, REF+9, REF+10
, REF+13, CP1+1
PEDATE CS+16*, EXIT+1!, HD+3
PG BC*, EXIT!, HD+3, HD+4*
>> POP CS+19
PSDATE CS+16*, EXIT+1!, HD+3
PSIN AC*, CS+11, CS+12, CS+13, EXIT+1!
PSOION CS+18*, CS+19!, CS+20!
PSOLCMF EXIT+1!, REF+12, TEST+1*, TEST+4, TEST+6*, TEST+7*
PSOLCMR TEST+1*, TEST+2*, TEST+3, TEST+6, TEST+7, TESTX!
PSOLCMRZ TEST+7*!
PSOLCR TEST+2*, TEST+4*, TEST+5, TEST+6, TEST+7, TESTX!
>> PSOPAR PSODISP1+4
>> PSOSITE AC, AC+4
PSX EXIT!, RPT+1!
PSX( REF+11, CP1+2
PSX(0 RPT2+6
>> PSXSYS RPT+1, HD+3
PSXZ EXIT!
REC EXIT!
REL BC*, BC+1, EXIT!, RPT2+5*, REF+7*
RPT EXIT!, REF+9*, REF+13*
RXN EXIT!, RPT*, RPT+1, RPT+2, RPT+3*, RPT+4, RPT2, RPT2+1, RPT2+2, RPT2+3
, RPT2+4, RPT2+5, RPT2+6, RPT2+7, REF+1, REF+2, REF+3, REF+4, REF+5, REF+6
, REF+7, REF+8, REF+9, REF+10, REF+13, CP1+1, TEST+2, TEST+4, TEST+5, TEST+6
, TEST+7
SCH CS+10*, EXIT!, HD+2
SCH( CS+10*, CSDEA+5
SITE AC*, AC+7*, EXIT+1!, RPT2+2, REF+2, HD
STOP AC+3, AC+5*, AC+6*, EXIT+1!
TYPE EXIT+1!
UNDERL EXIT+1!
UNREL BC*, BC+1, EXIT!, RPT2+6*, REF+13*
X CS+6!, CS+11, CS+13, CS+15, EXIT!, CSDEA~, CSDEA+2, SCH~, SCH+1, SCH+2
X1 CS+11*, EXIT!
X2 CS+11*, EXIT!
XY EXIT+1!, RPT2+3*, REF+4*, CP1
Y AC+6, AC+7, AC+8, CS+5, CS+6!, CS+10, CS+11*, CS+12*, CS+13, CS+14*
, CS+15, CS+16*, EXIT!, RPT2+5*, REF+8*
ZTDESC CS+21*, EXIT+1!
ZTQUEUED EXIT+1!
>> ZTREQ EXIT+1*
ZTRTN CS+21*, EXIT+1!
ZTSAVE EXIT+1!
ZTSAVE( CS+22*
ZTSAVE("SCH(" CS+21*
ZTSK CS+18!, CS+23!
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