Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSODISP1

Package: Outpatient Pharmacy

Routine: PSODISP1


Information

PSODISP1 ;BHAM ISC/SAB,PDW - Rx released/unrelease report ;Dec 13, 2021@07:59:07

Source Information

Source file <PSODISP1.m>

Entry Points

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

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: !!,"& Indicates eRx Prescription"
  • Line Location: BC+1
Function Call: WRITE
  • Prompt: !!,"# of Released Fills - "_REL_" # of Unreleased Fills - "_UNREL_" # of Copay Fills - "_CP
  • Line Location: BC+2
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: BC+3
Function Call: WRITE
  • Prompt: ?52,$P($$FMTE^XLFDT(Y,"2Z"),"@"),?62,$$SCH($P(CSDEA,"^",2))
  • Line Location: RPT2+11
Function Call: WRITE
  • Prompt: ?52,$P($$FMTE^XLFDT(Y,"2Z"),"@"),?62,$$SCH($P(CSDEA,"^",2))
  • Line Location: REF+11
Function Call: WRITE
  • Prompt: !,$S(ERXIND'="":"&",1:" "),$P(^PSRX(RXN,0),"^"),?16,$E($$GET1^DIQ(50,$P(^PSRX(RXN,0),"^",6),.01),1,30),?48,$S('$G(PAR):"",1:"P"),NODE,?62,$$SCH($P(CSDEA,"^",2))
  • Line Location: REF+16
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: ?68,"PARKED"
  • Line Location: CP1+1
Function Call: WRITE
  • Prompt: ?77,"Y"
  • Line Location: CP1+2
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+3
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call