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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APSPSWKL

Package: IHS Changes To Pharmacy

Routine: APSPSWKL


Information

APSPSWKL ; IHS/MSC/PLS - PHARMACY STAFF WORKLOAD REPORT ;11-Jul-2012 17:31;PLS

Source Information

Source file <APSPSWKL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 $$GET1^DIQ  ^DIR  
IHS Changes To Pharmacy 1 ($$DIR,$$DIRYN,$$GETIEN,$$GETIEN1,ASKDATES)^APSPUTIL  
IHS VA Utilities 1 ^XBDBQUE  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
PRT2 ;Print all providers
EN ;EP
HDR2 ; Hader for all users
PAUS ;
HDR1 ; Header for individual users
FIND(SDT,EDT,XREF) ;EP
DIVVRY(RX,DIV,TYP,SIEN) ;EP
DSPRDT(RX,TYP,SIEN) ;EP
DEV ;
PRINT ;Print out the report
NEW(RXIEN,IEN) ;Find new prescriptions
REFILL(RXIEN,IEN) ;Find refills
SETNEW(PHARM) ;Set the pharmacist data
PRT1 ;Print individual providers
ROUND(VAL,SD) ;
SETRFILL(PHARM) ;Set provider data
OUT ;EP

External References

Name Field # of Occurrence
$$DIR^APSPUTIL EN+13, EN+20
$$DIRYN^APSPUTIL EN+33
$$GETIEN^APSPUTIL EN+18
$$GETIEN1^APSPUTIL EN+24
ASKDATES^APSPUTIL EN+8
$$GET1^DIQ EN+26, EN+27, FIND+7, FIND+11, SETNEW+2, SETRFILL+2
^DIR PAUS+4
^XBDBQUE DEV+4
$$FMTE^XLFDT EN+10, EN+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"Pharmacy Staff Workload Report"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,?50,"Total New RX: "_$P(APSPTOT,U,1)
  • Line Location: PRT1+8
Function Call: WRITE
  • Prompt: !,?50,"Total Refills: "_$P(APSPTOT,U,2)
  • Line Location: PRT1+9
Function Call: WRITE
  • Prompt: !,?50,"GRAND TOTAL: "_$P(APSPTOT,U,3)
  • Line Location: PRT1+10
Function Call: WRITE
  • Prompt: !!,?50,"Total New RX: "_$P(APSPTOT,U,1)
  • Line Location: PRT2+14
Function Call: WRITE
  • Prompt: !,?50,"Total Refills: "_$P(APSPTOT,U,2)
  • Line Location: PRT2+15
Function Call: WRITE
  • Prompt: !,?50,"GRAND TOTAL: "_$P(APSPTOT,U,3)
  • Line Location: PRT2+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,"Pharmacist Workload Report: Individual Users"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,"Pharmacy User",?30,"New",?40,"Refills",?50,"Total"
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: !,"Pharmacist Workload Report: All Users"
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !,"Pharmacy User",?30,"New",?40,"% total",?50,"Refills",?60,"% total",?70,"Total"
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR2+6
Routine Call
  • DIR
  • Line Location:
    • PAUS+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX - [#52] FIND+3, FIND+5, FIND+6, FIND+10, NEW+2, REFILL+2, DIVVRY+2, DSPRDT+1
^TMP("APSPW" EN+3!, OUT+5!, SETNEW+4, SETNEW+5, SETNEW+8*, SETNEW+9, SETNEW+10*, SETRFILL+4, SETRFILL+5, SETRFILL+8*
, SETRFILL+9, SETRFILL+10*, PRT1+3, PRT1+4, PRT2+3, PRT2+4
^TMP($J OUT+2!

Label References

Name Line Occurrences
$$DIVVRY FIND+12
$$DSPRDT FIND+13
$$ROUND PRT2+8, PRT2+10
DEV EN+36
FIND OUT+3
HDR1 PRT1+2, PRT1+6
HDR2 PRT2+2, PRT2+12
NEW FIND+14
PAUS PRT1+6, PRT2+12
PRINT OUT+4
PRT1 PRINT+2
PRT2 PRINT+3
REFILL FIND+15
SETNEW NEW+3, NEW+5
SETRFILL REFILL+3, REFILL+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%NEW PRINT+1~, PRT2+7*, PRT2+8*, PRT2+11
%RFILL PRINT+1~, PRT2+9*, PRT2+10*, PRT2+11
A0 FIND+1~
ACTIEN FIND+1~
AOSOQ EN+1~
APSPBD EN+2~, EN+8, EN+10, EN+12*, OUT+3
APSPBDF EN+1~, EN+10*
APSPCLAS EN+2~, EN+26*, EN+28
APSPCNT EN+1~, EN+4*, EN+30*
APSPDARY EN+2~, EN+21*
APSPDARY( EN+29*, NEW+5, REFILL+5
APSPDIV EN+1~, EN+4*, EN+13*, EN+15, EN+16*, EN+18*, FIND+12
APSPED EN+2~, EN+8, EN+11, EN+12*, OUT+3
APSPEDF EN+1~, EN+11*
APSPNAME EN+1~, EN+27*, EN+29, EN+32
APSPNUM EN+1~, EN+20*, EN+21, EN+22, NEW+3, NEW+4, REFILL+3, REFILL+4, PRINT+2, PRINT+3
APSPQ EN+2~, EN+4*, EN+8, EN+9, EN+13, EN+14, EN+17, EN+18, EN+19, EN+20
, EN+33, EN+34, EN+35, PRT1+6, PRT1+7, PRT2+12, PRT2+13, PAUS+5*
APSPTOT EN+2~, EN+5*, SETNEW+11, SETNEW+13*, SETRFILL+11, SETRFILL+13*, PRT1+8, PRT1+9, PRT1+10, PRT2+6
, PRT2+14, PRT2+15, PRT2+16
APSPTYP EN+2~, EN+4*
APSPUSR EN+1~, EN+4*, EN+24*, EN+25, EN+26, EN+27, EN+29
DATA SETNEW+1~, SETNEW+5*, SETNEW+6, SETRFILL+1~, SETRFILL+5*, SETRFILL+6
DIR PAUS+1~
DIR("?" PAUS+2*
DIR("A" PAUS+3*
DIR(0 PAUS+3*
DIV DIVVRY~, DIVVRY+1, DIVVRY+2
DT EN+8
DTOUT PAUS+1~
DUOUT PAUS+1~, PAUS+5
EDT FIND~, FIND+3
FDTLP FIND+1~, FIND+2*, FIND+3*, FIND+5, FIND+10
FILLDT FIND+1~
GT SETNEW+1~, SETNEW+11*, SETNEW+12*, SETNEW+13, SETRFILL+1~, SETRFILL+11*, SETRFILL+12*, SETRFILL+13
IEN FIND+1~, FIND+10*, FIND+11, FIND+12, FIND+13, FIND+14, FIND+15, NEW~, REFILL~, REFILL+2
IO OUT+1
IOF EN+6, HDR1+2, HDR2+2
IOSL PRT1+6, PRT2+12
IOST PRT1+6, PRT2+12, HDR1+2, HDR2+2
LIN HDR1+1~, HDR1+5*, HDR2+1~, HDR2+5*
NNUM PRT2+1~, PRT2+5*, PRT2+8, PRT2+11
NP SETNEW+1~, SETNEW+6*, SETNEW+7*, SETNEW+8, SETRFILL+1~, SETRFILL+6*, SETRFILL+8
NT SETNEW+1~, SETNEW+11*, SETNEW+12*, SETNEW+13, SETRFILL+1~, SETRFILL+11*, SETRFILL+13
NTOT PRT2+1~, PRT2+6*, PRT2+7, PRT2+8
NUMBERS PRINT+1~, PRT1+1~, PRT1+4*, PRT1+5, PRT2+1~, PRT2+4*, PRT2+5
PHARM FIND+1~, NEW+1~, NEW+2*, NEW+3, NEW+5, SETNEW~, SETNEW+2, REFILL+1~, REFILL+2*, REFILL+3
, REFILL+5, SETRFILL~, SETRFILL+2, PRINT+1~, PRT1+1~, PRT1+3*, PRT1+4, PRT1+5, PRT2+1~, PRT2+3*
, PRT2+4, PRT2+11
PHARNAME SETNEW+1~, SETNEW+2*, SETNEW+3*, SETNEW+4, SETNEW+5, SETNEW+8, SETNEW+9, SETNEW+10, SETRFILL+1~, SETRFILL+2*
, SETRFILL+3*, SETRFILL+4, SETRFILL+5, SETRFILL+8, SETRFILL+9, SETRFILL+10
QFLG EN+2~, EN+23, EN+25*, EN+33*, EN+34*
RNUM PRT2+1~, PRT2+5*, PRT2+10, PRT2+11
RP SETNEW+1~, SETNEW+6*, SETNEW+8, SETRFILL+1~, SETRFILL+6*, SETRFILL+7*, SETRFILL+8
RT SETNEW+1~, SETNEW+11*, SETNEW+13, SETRFILL+1~, SETRFILL+11*, SETRFILL+12*, SETRFILL+13
RTOT PRT2+1~, PRT2+6*, PRT2+9, PRT2+10
RTSDT FIND+1~
RX DIVVRY~, DIVVRY+2, DSPRDT~, DSPRDT+1
RXIEN FIND+1~, FIND+4*, FIND+5*, FIND+6, FIND+7, FIND+10, FIND+11, FIND+12, FIND+13, FIND+14
, FIND+15, NEW~, NEW+2, REFILL~, REFILL+2
SD ROUND~, ROUND+1, ROUND+2
SDT FIND~, FIND+2
SIEN DIVVRY~, DIVVRY+2, DSPRDT~, DSPRDT+1
TOT PRINT+1~, PRT2+1~, PRT2+5*, PRT2+11
TP SETNEW+1~, SETNEW+6*, SETNEW+7*, SETNEW+8, SETRFILL+1~, SETRFILL+6*, SETRFILL+7*, SETRFILL+8
TYP DIVVRY~, DIVVRY+2, DSPRDT~, DSPRDT+1
U EN+5, FIND+6, NEW+2, SETNEW+6, SETNEW+8, SETNEW+10, SETNEW+11, SETNEW+13, REFILL+2, SETRFILL+6
, SETRFILL+8, SETRFILL+10, SETRFILL+11, SETRFILL+13, DIVVRY+2, DSPRDT+1, PRT1+5, PRT1+8, PRT1+9, PRT1+10
, PRT2+5, PRT2+6, PRT2+14, PRT2+15, PRT2+16
VAL ROUND~, ROUND+1, ROUND+2
XBNS DEV+1~, DEV+3*
XBRP DEV+1~, DEV+2*
XREF FIND~, FIND+3, FIND+5, FIND+10, FIND+12, FIND+13
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All