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

Package: IHS Changes To Pharmacy

Routine: APSPESR2


Information

APSPESR2 ; IHS/MSC/MGH - EXTERNAL PHARMACY PRESCRIPTIONS REPORT ;12-May-2011 16:15;DU

Source Information

Source file <APSPESR2.m>

Call Graph

Call Graph Total: 6

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

Entry Points

Name Comments DBIA/ICR reference
PRINT1 ;EP
PRINT3 ;No divisional counts
EN ;EP
PRINT5 ;EP
HDR ;EP
HDR3 ;PRINT OUT COLUMNS
DEV ;
SET(RX,IEN,TYPE) ;EP
DASH ;EP
PRINT4(DATA,DIV) ;EP
PRINT2 ;Print out by division
FIND(APSPBD,APSPED,APSPFIL,APSPSRT,APSPSRT2) ;EP
CVTDCLS(DCLS) ; EP
HDR1(SRT1) ;EP
DELFLG(RX) ;EP
PRINT ;EP
DIVVRY(RX,DIV) ;EP
HDR2(SRT2) ;EP
OUT ;EP

External References

Name Field # of Occurrence
$$DIR^APSPUTIL EN+11, EN+18, EN+21, EN+24, EN+30, EN+33, EN+37, EN+41
$$GETIEN^APSPUTIL EN+16
ASKDATES^APSPUTIL EN+6
$$HRN^AUPNPAT SET+14
$$GET1^DIQ PRINT2+5, PRINT4+6, PRINT4+8, PRINT4+9, PRINT4+16, PRINT4+17, PRINT4+18, SET+12, SET+14, SET+15
, SET+18, SET+19, HDR+7, HDR1+3, HDR1+4, HDR1+5, HDR2+6, HDR2+9, HDR2+12
^DIR PRINT5+5
^XBDBQUE DEV+4
$$FMTE^XLFDT EN+8, EN+9, PRINT4+5, HDR+3, HDR1+2, HDR2+19, HDR2+26
$$NOW^XLFDT HDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"Electronic Prescription failure report by Division"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Division: "_$$GET1^DIQ(59,DIV,.01)
  • Line Location: PRINT2+5
Function Call: WRITE
  • Prompt: !,"TOTAL Count: "_TOT
  • Line Location: PRINT2+16
Function Call: WRITE
  • Prompt: !,"TOTAL Count: "_TOT
  • Line Location: PRINT3+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"External Pharmacy Prescriptions Report",?40,$P($TR($$FMTE^XLFDT($$NOW^XLFDT,"5Z"),"@"," "),":",1,2),?(IOM-10),"Page: "_APSPPG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Report Criteria: (Prescriptions which are marked as auto-finshed)"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?5,"Inclusive Dates: "_APSPBDF_" to "_APSPEDF
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?5,"Filtered by: "_$S(APSPFIL=1:"Electronic",APSPFIL=2:"Printed",APSPFIL=3:"Reprinted",1:"All")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?5,"Pharmacy Division: "_$S(APSPDIV:$$GET1^DIQ(59,APSPDIV,.01),1:"All")
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?5,"Primary Sort: "_$S(APSPSRT=1:"Print Date",APSPSRT=2:"DEA schedule",APSPSRT=3:"Prescriber",APSPSRT=4:"User",1:"")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,?5,LINE
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DASH+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DASH+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DASH+3
Routine Call
  • DIR
  • Line Location:
    • PRINT5+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^SC - [#44] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
52.3 GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] SET+9
^PSRX - [#52] FIND+7, FIND+9, FIND+13, FIND+15, FIND+16, PRINT4+11, PRINT4+12, SET+3, SET+4, SET+5
, SET+6, DIVVRY+2, DELFLG+1
^PSRX("AC" FIND+5, FIND+6
^TMP("APSPERS" OUT+2!
^TMP("APSPESR" OUT+5!, FIND+2!, PRINT2+3, PRINT2+6, PRINT2+8, PRINT2+10, PRINT2+11, PRINT3+3, PRINT3+5, PRINT3+7
, PRINT3+8, PRINT3+10, SET+36*, SET+38*

Label References

Name Line Occurrences
$$CVTDCLS HDR2+3, HDR2+16, HDR2+23
$$DIVVRY FIND+11
DASH HDR3+4
DEV EN+43
FIND OUT+3
HDR PRINT+3, PRINT5+6
HDR1 PRINT2+7, PRINT3+4
HDR2 PRINT2+9, PRINT3+6
HDR3 HDR+10
PRINT OUT+4
PRINT1 PRINT+4
PRINT2 PRINT1+3
PRINT3 PRINT1+4
PRINT4 PRINT2+12, PRINT3+11
PRINT5 PRINT2+5, PRINT4+23, PRINT4+25, PRINT4+27, PRINT4+29, PRINT4+31, PRINT4+33, PRINT4+37
SET FIND+18, FIND+20, FIND+22, FIND+24, FIND+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A SET+20~, SET+21*, SET+36, SET+38
ACT FIND+1~, FIND+15*, FIND+16, FIND+18, FIND+20, FIND+22, FIND+24, FIND+26
ACTIEN FIND+1~
AIEN PRINT4+1~, PRINT4+2*
ANODE SET+1~, SET+6*, SET+11, SET+13
APSPBD EN+1~, EN+6, EN+8, EN+10*, OUT+3, FIND~, FIND+4
APSPBDF EN+2~, EN+8*, HDR+5
APSPDCLS EN+1~
APSPDCT EN+2~
APSPDCTN EN+2~
APSPDIV EN+1~, EN+3*, EN+11*, EN+13, EN+14*, EN+16*, EN+37, FIND+11, PRINT1+3, PRINT2+5
, SET+35, HDR+7
APSPDRG EN+2~, EN+3*
APSPDSUB EN+1~, EN+3*
APSPED EN+1~, EN+6, EN+9, EN+10*, OUT+3, FIND~, FIND+5
APSPEDF EN+2~, EN+9*, HDR+5
APSPFIL EN+2~, EN+18*, OUT+3, FIND~, FIND+18, FIND+20, FIND+22, FIND+24, FIND+26, HDR+6
APSPGRP EN+2~, EN+36*, EN+37*, PRINT1+3, SET+35
APSPOUT EN+2~, EN+40*, EN+41*, PRINT4+21, PRINT4+35, PRINT4+38, HDR+10, HDR3+1, HDR3+2
APSPPG PRINT+1~, PRINT+2*, HDR+2*, HDR+3
APSPQ EN+1~, EN+3*, EN+6, EN+7, EN+11, EN+12, EN+15, EN+16, EN+18, EN+19
, EN+21, EN+22, EN+24, EN+25, EN+28, EN+30, EN+31, EN+33, EN+34, EN+37
, EN+38, EN+41, EN+42
APSPRTYP EN+1~
APSPSRT EN+1~, EN+21*, EN+23, EN+26, EN+29, EN+32, OUT+3, FIND~, SET+22, SET+26
, SET+28, SET+31, HDR+8, HDR1+2, HDR1+3, HDR1+4, HDR1+5, HDR2+1, HDR2+11, HDR2+14
, HDR2+21
APSPSRT2 EN+1~, EN+24*, EN+27*, EN+30*, EN+33*, OUT+3, FIND~, SET+23, SET+24, SET+25
, SET+27, SET+29, SET+30, SET+32, SET+33, HDR2+2, HDR2+5, HDR2+8, HDR2+15, HDR2+18
, HDR2+22, HDR2+25
AUTO FIND+1~, FIND+9*, FIND+10
B SET+20~, SET+23*, SET+24*, SET+25*, SET+27*, SET+29*, SET+30*, SET+32*, SET+33*, SET+36
, SET+38
C SET+20~, SET+23*, SET+24*, SET+25*, SET+27*, SET+29*, SET+30*, SET+32*, SET+33*, SET+36
, SET+38
CLASS PRINT4+1~, PRINT4+3*, PRINT4+28, PRINT4+40
CLINIC PRINT4+1~, PRINT4+18*, PRINT4+24, PRINT4+40, SET+8*, SET+36, SET+38
CNT FIND+1~, FIND+3*, SET+34*, SET+36, SET+38
COM PRINT4+1~, PRINT4+7*, PRINT4+34, PRINT4+40, SET+1~, SET+19*, SET+36, SET+38
DASH DASH+1~, DASH+2*
DATA PRINT4~, PRINT4+2, PRINT4+3, PRINT4+4, PRINT4+6, PRINT4+7, PRINT4+15, PRINT4+18, PRINT4+19
DAYS PRINT4+1~, PRINT4+9*, PRINT4+30, PRINT4+40
DCLS CVTDCLS~, CVTDCLS+1, CVTDCLS+2, CVTDCLS+3, CVTDCLS+4
DEA PRINT4+1~, PRINT4+3*, PRINT4+28, PRINT4+36, PRINT4+40
DEACLASS SET+2~, SET+10*, SET+23, SET+27, SET+29, SET+32, SET+36, SET+38
DFLG PRINT+1~, PRINT+2*, PRINT+5, PRINT2+13*, PRINT3+9*
DFOUT PRINT5+4!
DIR PRINT5+1~
DIR(0 PRINT5+5*
DIRUT PRINT5+4!
DIV FIND+1~, FIND+11*, FIND+12, PRINT1+2~, PRINT2+1~, PRINT2+3*, PRINT2+5, PRINT2+6, PRINT2+8, PRINT2+10
, PRINT2+11, PRINT2+12, PRINT3+1~, PRINT3+7*, PRINT3+8, PRINT3+10, PRINT3+11, PRINT4~, PRINT4+16*, PRINT4+22
, PRINT4+40, SET+2~, SET+7*, SET+14, SET+21, DIVVRY~, DIVVRY+1, DIVVRY+2
DIVCT PRINT2+1~, PRINT2+4*, PRINT2+14*, PRINT2+15
DLOUT PRINT5+4!
DRCLASS SET+2~, SET+12*, SET+36, SET+38
DRGNM SET+2~, SET+9*, SET+36, SET+38
DRUG PRINT4+1~, PRINT4+3*, PRINT4+28, PRINT4+36, PRINT4+40, SET+2~, SET+9*, SET+12, SET+27
DT EN+6
DTOUT PRINT5+4!
DUOUT PRINT5+4!
HRN PRINT4+1~, PRINT4+3*, PRINT4+24, PRINT4+36, PRINT4+40, SET+14*, SET+36, SET+38
IEN SET~, SET+6, SET+17, SET+36, SET+38
IENS PRINT4+1~, SET+1~, SET+17*, SET+18, SET+19
IOF EN+4, HDR+1
IOM HDR+3, DASH+2
IOSL PRINT5+3
IOST PRINT5+2
LINE HDR1+1~, HDR1+2*, HDR1+3*, HDR1+4*, HDR1+5*, HDR1+6, HDR2+3*, HDR2+4, HDR2+6*, HDR2+7
, HDR2+9*, HDR2+10, HDR2+12*, HDR2+13, HDR2+16*, HDR2+17, HDR2+19*, HDR2+20, HDR2+23*, HDR2+24
, HDR2+26*, HDR2+27
LSTDSPDT SET+1~
NODE0 PRINT4+1~, SET+1~, SET+3*, SET+8, SET+9, SET+10, SET+14, SET+15, SET+16
NODE2 SET+1~, SET+4*, SET+7
NODE3 SET+1~, SET+5*
NODE6 PRINT4+1~
NUM PRINT2+1~, PRINT2+10*, PRINT2+11, PRINT3+1~, PRINT3+8*, PRINT3+10
PAT PRINT4+1~, PRINT4+4*, PRINT4+24, PRINT4+40, SET+15*, SET+36, SET+38
PDAT PRINT4+4*, PRINT4+5*, PRINT4+26, PRINT4+36, PRINT4+40, SET+1~, SET+2~, SET+11*, SET+23, SET+24
, SET+25, SET+30, SET+33, SET+36, SET+38
PRINT SET+2~
PRV PRINT4+1~, PRINT4+4*, PRINT4+17*, PRINT4+32, PRINT4+40, SET+2~, SET+8*, SET+24, SET+29, SET+30
, SET+36, SET+38
QTY PRINT4+1~, PRINT4+8*, PRINT4+30, PRINT4+40
RTSDT FIND+1~, FIND+4*, FIND+5*, FIND+6
RX SET~, SET+3, SET+4, SET+5, SET+6, SET+36, SET+38, DIVVRY~, DIVVRY+2, DELFLG~
, DELFLG+1
RXIEN FIND+1~, FIND+4*, FIND+6*, FIND+7, FIND+9, FIND+11, FIND+13, FIND+15, FIND+16, FIND+18
, FIND+20, FIND+22, FIND+24, FIND+26, PRINT4+1~, PRINT4+2*, PRINT4+8, PRINT4+9, PRINT4+11, PRINT4+12
, SET+17
RXNO PRINT4+15*, PRINT4+22, PRINT4+36, PRINT4+40, SET+2~, SET+16*, SET+36, SET+38
SCH PRINT4+1~, PRINT4+10*, PRINT4+13*, PRINT4+14*, PRINT4+30, PRINT4+40
SRT1 HDR1~, HDR1+2, HDR1+3, HDR1+4, HDR1+5
SRT2 HDR2~, HDR2+3, HDR2+6, HDR2+9, HDR2+12, HDR2+16, HDR2+19, HDR2+23, HDR2+26
SUB1 PRINT1+2~, PRINT2+1~, PRINT2+6*, PRINT2+7, PRINT2+8, PRINT2+10, PRINT2+11, PRINT3+1~, PRINT3+3*, PRINT3+4
, PRINT3+5, PRINT3+7, PRINT3+8, PRINT3+10
SUB2 PRINT1+2~, PRINT2+1~, PRINT2+8*, PRINT2+9, PRINT2+10, PRINT2+11, PRINT3+1~, PRINT3+5*, PRINT3+6, PRINT3+7
, PRINT3+8, PRINT3+10
SUB3 PRINT1+2~
SUB4 PRINT1+2~
TOT PRINT2+1~, PRINT2+2*, PRINT2+14*, PRINT2+16, PRINT3+1~, PRINT3+2*, PRINT3+12*, PRINT3+13
TYP PRINT4+1~, PRINT4+20*, PRINT4+22, PRINT4+36, PRINT4+40
TYPE OUT+1~, FIND+16*, FIND+17, FIND+18, FIND+19, FIND+20, FIND+21, FIND+22, FIND+23, FIND+24
, FIND+25, FIND+26, PRINT4+19*, PRINT4+20, SET~, SET+36, SET+38
U FIND+9, FIND+13, FIND+16, PRINT4+2, PRINT4+3, PRINT4+4, PRINT4+6, PRINT4+7, PRINT4+12, PRINT4+15
, PRINT4+18, PRINT4+19, PRINT4+40, SET+7, SET+8, SET+9, SET+10, SET+11, SET+13, SET+14
, SET+15, SET+16, SET+36, SET+38, DIVVRY+2, HDR3+6
USER PRINT4+1~, PRINT4+6*, PRINT4+32, PRINT4+36, PRINT4+40, SET+1~, SET+13*, SET+18*, SET+25, SET+32
, SET+33, SET+36, SET+38
VAL PRINT1+2~, PRINT2+1~, PRINT2+11*, PRINT2+12, PRINT3+1~, PRINT3+10*, PRINT3+11
X PRINT4+1~, PRINT4+11*, PRINT4+12, SET+1~
XBNS DEV+1~, DEV+3*
XBRP DEV+1~, DEV+2*
Y PRINT4+12*, PRINT4+13, PRINT4+14, SET+1~
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