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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APSPDRX

Package: IHS Changes To Pharmacy

Routine: APSPDRX


Information

APSPDRX ; IHS/DSD/ENM/PLS - DAILY RX LOG;11-Jun-2013 18:05;PLS

Source Information

Source file <APSPDRX.m>

Call Graph

Call Graph Total: 7

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  
Outpatient Pharmacy 1 ^PSOLSET  

Entry Points

Name Comments DBIA/ICR reference
HDR
PRNT
DIVVRY(RXDIV,RPTDIV) ;EP
DEV ;
DSPL ;GET DATA FROM TMP GBL
DSPS
PRT ;
INIT ;
PR1
PR2
DSET ;
EP ;ENTRY POINT
OUT

External References

Name Field # of Occurrence
$$DIR^APSPUTIL INIT+12
$$GETIEN^APSPUTIL INIT+17
ASKDATES^APSPUTIL INIT+6
$$HRN^AUPNPAT DSET+13
$$GET1^DIQ DSET+8, DSET+9, DSET+10, DSET+13, DSPL+3, DSPS+1, DSPS+9, HDR+4
^DIR HDR
^PSOLSET INIT+1
^XBDBQUE DEV+4
$$FMTE^XLFDT INIT+8, INIT+9, DSPS+10, HDR+3
$$NOW^XLFDT HDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Site Param's Defined!..quitting."
  • Line Location: INIT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: "Pharmacy Daily Rx Report",!!
  • Line Location: INIT+5
Function Call: WRITE
  • Prompt: !!,"End of Report"
  • Line Location: OUT+6
Function Call: WRITE
  • Prompt: !,"Rx #: "_APSPRX,?17,"Name: "_APSPNM,?54,"Chart #: "_$P(APSP,U,6)
  • Line Location: DSPS+8
Function Call: WRITE
  • Prompt: !,"DRUG: "_$P(APSP,U,3),?37,"Qty: "_$P(APSP,U,5),?47,"Provider: "_$$GET1^DIQ(200,$P(APSP,U,4),.01)
  • Line Location: DSPS+9
Function Call: WRITE
  • Prompt: !,"Division: "_DIVNM,?37,APSPTYP,?53,"D/Time: "_$TR($$FMTE^XLFDT($E(APSPDT,1,12),"5Z"),"@"," ")
  • Line Location: DSPS+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPS+11
Function Call: WRITE
  • Prompt: @IOF,?38,"(",APSPG,")",!,"DAILY PRESCRIPTION ACTIVITY REPORT"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?51,"Print Date: ",?59,$TR($$FMTE^XLFDT($E($$NOW^XLFDT(),1,12),"5Z"),"@"," "),!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?5,"Pharmacy Division: "_$S(APSPDIV:$$GET1^DIQ(59,APSPDIV,.01),1:"All"),!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?10,"For Rx's dispensed from "_APSPBDF_" to "_APSPEDF,!!
  • Line Location: HDR+6
Routine Call
  • DIR
  • Line Location:
    • HDR

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] DSET+7
^PSRX - [#52] DSET+4
^PSRX("ZAL" OUT+5, PRT+1, PR1, PR2
^TMP($J OUT+3!, DSET+2, DSET+14*, DSET+15*, DSPL+2, DSPL+4, DSPL+5, DSPL+6, DSPS

Label References

Name Line Occurrences
$$DIVVRY DSET+11
DEV INIT+19
DSET PR2
DSPL PRNT
DSPS DSPL+6
HDR PRNT, DSPS+6
PR1 PRT+1
PR2 PR1
PRNT OUT+6
PRT OUT+5

Naked Globals

Name Field # of Occurrence
^(0 DSET+5, DSET+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APSBDF INIT+2~
APSP DSPL+1~, DSPS*, DSPS+1, DSPS+2, DSPS+3, DSPS+4, DSPS+5, DSPS+8, DSPS+9
APSPBD INIT+2~, INIT+6, INIT+8, INIT+10*, OUT+5
>> APSPBDF INIT+8*, HDR+6
>> APSPCN DSET+13*, DSET+15, DSPS+4*
APSPDFN OUT+1~, DSET+5*, DSET+13, DSET+15
APSPDG OUT+1~, DSET+6*, DSET+7
APSPDIV INIT+2~, INIT+12*, INIT+14, INIT+15*, INIT+17*, DSET+11, HDR+4
>> APSPDP PRNT*
>> APSPDRG DSET+7*, DSET+15
APSPDT OUT~, OUT+5*, PRT+1, PR1, PR2, DSET+14, DSPL+1~, DSPL+4*, DSPL+5, DSPL+6
, DSPS+10
APSPED INIT+2~, INIT+6, INIT+9, INIT+10*, OUT+5
APSPEDF INIT+2~, INIT+9*, HDR+6
APSPG OUT~, OUT+4*, HDR, HDR+1*, HDR+2
APSPLN OUT~, PR1*, PR2, DSET+8, DSET+9, DSET+10
APSPNM OUT+1~, DSPL+1~, DSPS+1*, DSPS+8
APSPOUT OUT~, OUT+4*, DSPL+4, DSPL+5, DSPL+6, DSPS+6, HDR*
>> APSPP DSPS+2*
APSPPRV OUT+1~, DSET+8*, DSET+15
>> APSPQ INIT+6, INIT+7, INIT+12, INIT+13, INIT+16, INIT+17, INIT+18, DSPS+3*
APSPRN OUT~
APSPRX OUT~, DSET+4*, DSET+14, DSET+15, DSPL+1~, DSPL+5*, DSPL+6, DSPS+8
APSPSTN OUT+1~
>> APSPTYP DSPS+7*, DSPS+10
>> APSPZX PRNT*
DIR HDR!
DIR("A" HDR*
DIR(0 HDR*
DIV OUT+1~, DSET+9*, DSET+11, DSET+13, DSET+14, DSPL+1~, DSPL+2*, DSPL+3, DSPL+4, DSPL+5
, DSPL+6
DIVNM DSPL+1~, DSPL+3*, DSPS+10
DT INIT+6
FTYPE OUT~, PR2*, DSET+8, DSET+9, DSET+10, DSET+15, DSPS+5*, DSPS+7
>> I HDR+5*
IO OUT+2
IOF INIT+4, HDR+2
IOSL DSPS+6
IOST HDR
NXT DSET+1~, DSET+2*, DSET+3*, DSET+14, DSET+15, DSPL+1~, DSPL+6*, DSPS
>> PSOPAR INIT+1
QTY OUT+1~, DSET+10*, DSET+15
RPTDIV DIVVRY~, DIVVRY+1, DIVVRY+2
RXDIV DIVVRY~, DIVVRY+2
>> RXIEN PRT+1*, PR1, PR2, DSET+4, DSET+8, DSET+9, DSET+10
U DSET+4, DSET+5, DSET+6, DSET+7, DSET+15, DSPS+1, DSPS+2, DSPS+3, DSPS+4, DSPS+5
, DSPS+8, DSPS+9
>> X HDR
XBNS DEV+1~, DEV+3*
XBRP DEV+1~, DEV+2*
Info |  Source |  Call 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