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

Package: Outpatient Pharmacy

Routine: PSOCMOPR


Information

PSOCMOPR ;BHAM ISC/PDW - CMOP CONTROLLED SUBSTANCE RX DISPENSE REPORT ; 05 Nov 1999 9:39 AM

Source Information

Source file <PSOCMOPR.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 5 (,DD)^%DT  C^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 1 ^PSOLSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO CMOP CS RX DISPENSE REPORT  

Entry Points

Name Comments DBIA/ICR reference
COMPUTE ; Deque point for computing
; store in ^XTMP(PSOSUB, for printing queue
PRTDATE ; print by date output
COLUMN ; setup column spacing
DEQUEUE ; TASKING RE-ENTRY POINT AND PROCESSING
CLEAR ; clear ^XTMP
PRTDRUG ; print by Drug
RX ; check & gather RX,Fills data
BYDATE ; print report by release date
PRINT ; print entry point
S ;ENTRY
DIVHDR ; write division header
EXIT ;EXIT
PG ;EP Page controller
CNT1 ;Continue point 1
DATE ; ask date range
C1 ; setup column spacing for byDate
BYDRUG ; pull in & print byDrug
CMOP ;loop CMOP event for fill, status, and facility
; sets TRANDA for XTMP subscript
PGHDR ; Write Page Header
D1 ; setup column spacing for byDrug

External References

Name Field # of Occurrence
^%DT DATE+2, DATE+5
DD^%DT DATE+7, DATE+8, PRTDATE+5, PRTDRUG+5
C^%DTC COMPUTE+3
^%ZIS DATE+14
^%ZISC EXIT+5
^%ZTLOAD DATE+23
^DIC S+15
$$GET1^DIQ RX+8, RX+9, RX+13, RX+18, RX+23, RX+24, RX+25, RX+26, CMOP+12, PRTDATE+7
, PRTDRUG+6
^DIR S+9, CNT1+4, PG+4
^PSOLSET S+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"A Pharmacy Division Must Be Selected!",!
  • Line Location: S+1
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 132-column format.",!
  • Line Location: DATE+10
Function Call: WRITE
  • Prompt: !,"It is recommended that this report be queued.",!!
  • Line Location: DATE+11
Function Call: WRITE
  • Prompt: !!,?5,"No Data To Report",!!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,DATE,?C1,RX_" ("_FILL_")",?C2,PAT,?C3,ST,?C4,FAC,!,DRUG,?C5,"QTY: ",QTY,!
  • Line Location: PRTDATE+10
Function Call: WRITE
  • Prompt: !!,?3,DRUG
  • Line Location: BYDRUG+5
Function Call: WRITE
  • Prompt: !,DATE,?D1,RX,?D2,QTY,?D3,PAT,?D4,ST,?D5,FAC
  • Line Location: PRTDRUG+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PGHDR+1
Function Call: WRITE
  • Prompt: !,"CMOP Controlled Substance Prescription Dispensing Report",?(IOM-12),"Page: ",PSOPG("PG")
  • Line Location: PGHDR+3
Function Call: WRITE
  • Prompt: !,BDATE," through ",EDATE
  • Line Location: PGHDR+4
Function Call: WRITE
  • Prompt: !!,?((IOM-$L(X))\2),X,!!
  • Line Location: DIVHDR+2
Function Call: WRITE
  • Prompt: !,"Release Date",?C1,"Rx#",?C2,"Patient",?C3,"CMOP",?C4,"CMOP"
  • Line Location: DIVHDR+4
Function Call: WRITE
  • Prompt: !,?C3,"STATUS",?C4,"Facility",!
  • Line Location: DIVHDR+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DIVHDR+6
Function Call: WRITE
  • Prompt: !,"Release Date",?D1,"Rx#",?D2,"QTY",?D3,"Patient",?D4,"CMOP",?D5,"CMOP"
  • Line Location: DIVHDR+8
Function Call: WRITE
  • Prompt: !,?D4,"STATUS",?D5,"Facility",!
  • Line Location: DIVHDR+9
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DIVHDR+10
Function Call: WRITE
  • Prompt: !,?3,DRUG
  • Line Location: DIVHDR+11
Routine Call
  • DIC
  • Line Location:
    • S+15
Routine Call
  • DIR
  • Line Location:
    • S+9
    • CNT1+4
    • PG+4
Routine Call
  • %ZIS
  • Line Location:
    • DATE+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PSX(550.2 - [#550.2] GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DATE+5
^PS(59 - [#59] S+4
^PSRX - [#52] RX+2, RX+3, RX+15, CMOP+6, CMOP+8
^PSRX("AD" COMPUTE+8, COMPUTE+9, COMPUTE+10
^XTMP( COMPUTE+2!, COMPUTE+4*, RX+29*, RX+30*, PRINT+5, PRINT+9!, BYDATE+2, BYDATE+4, BYDATE+5, PRTDATE+2
, BYDRUG+2, BYDRUG+4, BYDRUG+6, BYDRUG+7, PRTDRUG+2, CLEAR+2!

Label References

Name Line Occurrences
BYDATE PRINT+7
BYDRUG PRINT+8
CMOP RX+4
CNT1 S+5
COLUMN PRINT+3
COMPUTE DEQUEUE+1
DIVHDR BYDATE+3, BYDRUG+3, PGHDR+5
EXIT S+1, S+10, CNT1+5, DATE+3, DATE+6, DATE+14, DATE+20, DEQUEUE+2, PRINT+5
PG PRTDATE+9, PRTDRUG+7
PGHDR PRINT+4
PRINT DEQUEUE+1
PRTDATE BYDATE+5
PRTDRUG BYDRUG+7
RX COMPUTE+10
S S+13

Naked Globals

Name Field # of Occurrence
^( CMOP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1!, DATE+2*, DATE+5!
%DT("A" DATE+2*, DATE+5*
%DT("B" DATE+5*
%DT(0 DATE+2*, DATE+4*
%ZIS DATE+13!*
BDATE DATE+8*, EXIT+1!, PGHDR+4
C1 PRTDATE+10, EXIT+1!, DIVHDR+4, C1+1*
C2 PRTDATE+10, EXIT+1!, DIVHDR+4, C1+1*
C3 PRTDATE+10, EXIT+1!, DIVHDR+4, DIVHDR+5, C1+1*
C4 PRTDATE+10, EXIT+1!, DIVHDR+4, DIVHDR+5, C1+1*
C5 PRTDATE+10, EXIT+1!, C1+1*
C6 EXIT+1!
CMOP EXIT+1!
D1 PRTDRUG+9, EXIT+1!, DIVHDR+8, D1+2*
D2 PRTDRUG+9, EXIT+1!, DIVHDR+8, D1+2*
D3 PRTDRUG+9, EXIT+1!, DIVHDR+8, D1+2*
D4 PRTDRUG+9, EXIT+1!, DIVHDR+8, DIVHDR+9, D1+2*
D5 PRTDRUG+9, EXIT+1!, DIVHDR+8, DIVHDR+9, D1+2*
DATE PRTDATE+5*, PRTDATE+10, PRTDRUG+5*, PRTDRUG+9, EXIT+1!
DEA RX+9*, RX+10, EXIT+1!
DIC S+14!, S+15*, S+17!
DIC(0 S+15*
DIR S+6!, S+9!, CNT1+1!, CNT1+4!, PG+4!
DIR("A" S+7*, CNT1+2*
DIR("B" S+8*, CNT1+3*
DIR(0 S+6*, CNT1+1*, PG+4*
>> DIRUT S+10, CNT1+5, PG+4
DIV RX+13*, RX+18*, RX+29, RX+30, PRINT+1!, BYDATE+2*, BYDATE+4, BYDATE+5, PRTDATE+2, BYDRUG+2*
, BYDRUG+4, BYDRUG+6, BYDRUG+7, PRTDRUG+2, EXIT+1!, PGHDR+5, DIVHDR+1
DIVDA RX+13*, RX+16*, RX+18, RX+20, EXIT+1!
DRUG RX+23*, RX+29, RX+30, PRTDATE+4*, PRTDATE+10, BYDRUG+4*, BYDRUG+5, BYDRUG+6, BYDRUG+7, PRTDRUG+2
, EXIT+1!, DIVHDR+11
DRUGDA RX+8*, RX+9, RX+23, EXIT+2!
DT DATE+5, COMPUTE+3, COMPUTE+4
EDATE DATE+7*, EXIT+2!, PGHDR+4
END DATE+5*, EXIT+2!
EVDA CMOP+5*, CMOP+6*, CMOP+13!, EXIT+4!
EVENT CMOP+8*, CMOP+9, CMOP+11, EXIT+2!
EVTRDA CMOP+2*, CMOP+6*, CMOP+7, CMOP+8, CMOP+13!
FAC RX+29, RX+30, CMOP+3*, CMOP+12*, PRTDATE+4*, PRTDATE+10, PRTDRUG+4*, PRTDRUG+9, EXIT+2!
FIL EXIT+2!
FILL COMPUTE+10*, RX+13, RX+15, RX+29, RX+30, CMOP+6, PRTDATE+4*, PRTDATE+10, PRTDRUG+4*, PRTDRUG+6
, EXIT+4!
FLD EXIT+2!
>> I S+4*
IO PGHDR+1
IO("Q" DATE+13!, DATE+20, DATE+23!
IOF PGHDR+1
IOM PGHDR+3, DIVHDR+2, DIVHDR+6, DIVHDR+10
IOP DATE+13!, DATE+14*!
IOSL PG+3
IOST PG+4
PAT RX+24*, RX+29, RX+30, PRTDATE+3*, PRTDATE+6*, PRTDATE+10, PRTDRUG+3*, PRTDRUG+6*, PRTDRUG+9, EXIT+2!
PATDA RX+25*, RX+26, EXIT+2!
>> POP DATE+14
PSOION DATE+14!, DATE+15!
PSOJOB DATE+17*, DATE+18, EXIT+4!
PSOPAR S+1, EXIT+4!
PSOPG PRINT+1!, EXIT+2!
PSOPG("PG" PGHDR+2*, PGHDR+3, DIVHDR+11
PSOQUIT COMPUTE+2!, PRINT+1!, PRINT+2*, BYDATE+2, BYDATE+4, BYDATE+5, PRTDATE+9, BYDRUG+2, BYDRUG+4, BYDRUG+6
, BYDRUG+7, PRTDRUG+7, EXIT+3!, PG+2, PG+4*
PSOSUB DATE+18*, COMPUTE+2, COMPUTE+4, RX+29, RX+30, PRINT+5, PRINT+9, BYDATE+2, BYDATE+4, BYDATE+5
, PRTDATE+2, BYDRUG+2, BYDRUG+4, BYDRUG+6, BYDRUG+7, PRTDRUG+2, EXIT+2!
PSUFQ EXIT+4!
PSUIOP EXIT+4!
PSUNS EXIT+4!
PSURC EXIT+4!
PSURP EXIT+4!
PSURX EXIT+4!
QDIV S+5*, S+11*, S+13, S+16*, RX+20, EXIT+3!
QSORT CNT1+6*, RX+29, PRINT+7, PRINT+8, EXIT+3!, DIVHDR+3, DIVHDR+7
QTY RX+13*, RX+16*, RX+29, RX+30, PRTDATE+3*, PRTDATE+10, PRTDRUG+3*, PRTDRUG+9, EXIT+3!
>> RELDT RX+13*, RX+17*, RX+22*, RX+29, RX+30
RX COMPUTE+9*, COMPUTE+10, RX+2, RX+3, RX+8, RX+13, RX+15, RX+24, RX+25, RX+29
, RX+30, CMOP+6, CMOP+8, PRTDATE+4*, PRTDATE+7*, PRTDATE+10, PRTDRUG+4*, PRTDRUG+6*, PRTDRUG+9, EXIT+3!
RXF RX+15*, RX+16, RX+17, EXIT+2!
SCANBDT DATE+4*, DATE+8, COMPUTE+5, EXIT+3!
SCANDT COMPUTE+5*, COMPUTE+8*, COMPUTE+9, COMPUTE+10, BYDATE+4*, BYDATE+5, PRTDATE+2, PRTDATE+5, BYDRUG+6*, BYDRUG+7
, PRTDRUG+2, PRTDRUG+5, EXIT+3!
SCANEDT DATE+7*, COMPUTE+8, EXIT+3!
SSN RX+26*, RX+29, RX+30, PRTDATE+3*, PRTDATE+6, PRTDRUG+3*, PRTDRUG+6, EXIT+3!
ST RX+29, RX+30, CMOP+3*, CMOP+9*, CMOP+10*, PRTDATE+3*, PRTDATE+10, PRTDRUG+3*, PRTDRUG+9, EXIT+3!
TRANDA RX+5, RX+29, RX+30, CMOP+2*, CMOP+11*, CMOP+12, BYDATE+5*, PRTDATE+2, BYDRUG+7*, PRTDRUG+2
, EXIT+3!
U COMPUTE+4, RX+16, RX+17, RX+29, RX+30, CMOP+6, CMOP+9, CMOP+11, PRTDATE+3, PRTDATE+4
, PRTDRUG+3, PRTDRUG+4
>> X S+4*, S+5, DATE+3, DATE+6, DATE+21*, COMPUTE+4, PRTDATE+2*, PRTDATE+3, PRTDATE+4, PRTDRUG+2*
, PRTDRUG+3, PRTDRUG+4, DIVHDR+1*, DIVHDR+2, DIVHDR+6*, DIVHDR+10*, CLEAR+1*, CLEAR+2*
X1 COMPUTE+3*, EXIT+4!
X2 COMPUTE+3*, EXIT+4!
>> Y S+11, S+13, S+16, CNT1+6, DATE+4, DATE+5*, DATE+7, DATE+8*, PRTDATE+5*, PRTDRUG+5*
, CLEAR+1*, CLEAR+2
>> ZTDESC DATE+22*
>> ZTQUEUED EXIT+5
>> ZTREQ EXIT+5*
>> ZTRTN DATE+22*
>> ZTSAVE( DATE+21*
ZTSK DATE+13!, DATE+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