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 ;29-May-2012 14:45;PLS

Source Information

Source file <PSODISP1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 5 (,DD)^%DT  C^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 2 CMOP^PSOCMOPA  ^PSOLSET  
Text Integration Utility 1 $$HRCN^TIUR2  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO RELEASE REPORT  PSODISP2  

Entry Points

Name Comments DBIA/ICR reference
HRCN(PT,SITE) ;EP; IHS/MSC/MGH return chart number
AC
RPT2
RPT
BC
TESTX
PTDATA1 ;Extra fields added to report Patch 1013
TEST ;
EXIT
CSDEA(X) ;CS Critera .. 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+8, CS+10
DD^%DT CS+11
C^%DTC CS+6
^%ZIS CS+14
^%ZISC EXIT
^%ZTLOAD CS+18
^DIC AC+6
$$GET1^DIQ CSDEA+3, PTDATA1+5, PTDATA1+6, PTDATA1+11, PTDATA1+13, PTDATA1+15, PTDATA1+16
^DIR AC+5, AC+8, CS+4
CMOP^PSOCMOPA RPT+1
^PSOLSET PSODISP1+5
$$HRCN^TIUR2 PTDATA1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Pharmacy Division must be selected!",!
  • Line Location: PSODISP1+5
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: !
  • Line Location: CS+6
Function Call: WRITE
  • Prompt: !!," # 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,"Original"
  • Line Location: RPT2+6
Function Call: WRITE
  • Prompt: ?29,$S(Y["@":$P(Y,"@"),1:Y),?50,"YES"
  • Line Location: RPT2+6
Function Call: WRITE
  • Prompt: ?25,$S(Y["@":$P(Y,"@"),1:Y)
  • Line Location: RPT2+9
Function Call: WRITE
  • Prompt: ?39,$S(Y["@":$P(Y,"@"),1:Y),?52,"YES"
  • Line Location: RPT2+10
Function Call: WRITE
  • Prompt: !,$P(^PSRX(RXN,0),"^"),?16,"Original",?50,"No"
  • Line Location: RPT2+11
Function Call: WRITE
  • Prompt: ?85,"YES",?95,$S(PSX(0)=0:"Transmitted",PSX(0)=1:"DISPENSED",PSX(0)=2:"Retransmitted",PSX(0)=3:"Not Dispensed",1:"Unknown")
  • Line Location: RPT2+13
Function Call: WRITE
  • Prompt: ?25,$S(Y["@":$P(Y,"@"),1:Y)
  • Line Location: REF+8
Function Call: WRITE
  • Prompt: ?39,$S(Y["@":$P(Y,"@"),1:Y),?52,"Yes"
  • Line Location: REF+9
Function Call: WRITE
  • Prompt: ?60,$S(XY=1:"Non-verified",XY=2:"Refill",XY=3!(XY=16):"Hold",XY=5:"Suspended",XY=10:"Done",XY=11:"Expired",XY=12!(XY=14)!(XY=15):"Discontinued",1:"Active")
  • Line Location: CP1+0
Function Call: WRITE
  • Prompt: ?75,"Yes"
  • Line Location: CP1+3
Function Call: WRITE
  • Prompt: ?85,"Yes",?95,$S(PSX(NODE)=0:"Transmitted",PSX(NODE)=1:"Dispensed",PSX(NODE)=2:"Retransmitted",PSX(NODE)=3:"Not Dispensed",1:"Unknown")
  • Line Location: CP1+4
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: ?17,"Controlled Substance Prescriptions Only"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !?18,PSDATE_" to "_PEDATE,?70,"Page: "_PG,!!,?12,"Fill/",?25,"Date",?39,"Date"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"Rx #",?12,"Refill",?25,"Filled",?39,"Released",?52,"Released",?61,"Status",?74,"Copay "
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: "CMOP CMOP Status"
  • Condition for execution: $G(PSXSYS)
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !?2,"Pt Name",?23,"DOB",?36,"HRN",?46,"Pharmacist",?66,"Finisher"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,?2,$E(NAME,1,19),?23,DOB,?36,HRCN,?46,$E(PHARM,1,19),?66,$E(FILL,U,14),!
  • Line Location: PTDATA1+17
Routine Call
  • DIC
  • Line Location:
    • AC+6
Routine Call
  • DIR
  • Line Location:
    • AC+5
    • AC+8
    • CS+4
Routine Call
  • %ZIS
  • Line Location:
    • CS+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
52.1 GET1^DIQ
52.2 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] HRCN+1
^DD("DD" CS+8, CS+9, RPT2+9, RPT2+10, REF+8, REF+9
^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+7, RPT2+8, RPT2+9
, RPT2+10, RPT2+11, RPT2+12, REF+1, REF+2, REF+3, REF+4, REF+6, REF+7, REF+8
, REF+9, REF+10, REF+11, CP1+3, TEST+2, TEST+4, TEST+5, TEST+6, TEST+7, PTDATA1+3
^PSRX("AD" RPT
^PSRX("ADP" RPT+3

Label References

Name Line Occurrences
$$CSDEA RPT2+4, REF+5
@( RPT+2
CP1 RPT2+10, RPT2+11, REF+6
EXIT PSODISP1+5, AC+3, AC+8, CS+4, CS+8, CS+10, CS+14, CS+15
HD BC, RPT, RPT+3
PTDATA1 CP1+5
REF RPT+4
RPT BC
TEST REF+10
TESTX TEST+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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