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

Package: IHS Changes To Pharmacy

Routine: APSPTDD1


Information

APSPTDD1 ; IHS/DSD/ENM/CIA/PLS - TOTAL DRUGS DISPENSED PRINT ;14-Oct-2009 14:39;SM

Source Information

Source file <APSPTDD1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 $$GET1^DIQ  ^DIR  
Kernel 1 ($$DT,$$FMDIFF,$$FMTE)^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Pharmacy 1 APSPTDD  

Entry Points

Name Comments DBIA/ICR reference
EN ;ENTRY POINT
PAUS
PRINT
DIVSUB ;DIVISION SUB
DATE ;
LOOP
HDR ;

External References

Name Field # of Occurrence
$$GET1^DIQ HDR+2, HDR+7, HDR+16
^DIR PAUS+3
$$DT^XLFDT HDR+5
$$FMDIFF^XLFDT HDR+11
$$FMTE^XLFDT HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !,DRG,?41,$J($P(^TMP($J,"PSODUR",DIV,DRG,UNIT),U,2),6),?55,UNIT,?70,$J(+^(UNIT),8)
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(59,DIV,.01)," ""Total Drugs Dispensed"" List"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?73,"Page ",APSPPG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Date of Listing: "
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($$DT^XLFDT,"2ZD")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?31,"By: Drug"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"Outpatient Drugs dispensed from "
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: APSPBDF," through ",APSPEDF,!
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "Total Number of Days = "_($$FMDIFF^XLFDT(APSPED,APSPBD)),!
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?25,$$GET1^DIQ(50,DN,.01),!
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,?41,"Number",?55,"Type of Units",!
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: "Drug Name",?41,"of Rx's",?55,"Dispensed",?70,"Total"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: "_"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!?20,"NO DRUGS FOUND !"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Routine Call
  • DIR
  • Line Location:
    • PAUS+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PS(50.605 - [#50.605] GET1^DIQ
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" EN+3
^TMP($J EN+8, EN+9, LOOP, LOOP+1, DATE+4, PRINT+3

Label References

Name Line Occurrences
DATE LOOP+1
DIVSUB EN+9
HDR EN+8, EN+9, DATE+1, DATE+3
LOOP EN+9
PAUS DIVSUB+3, DATE+1

Naked Globals

Name Field # of Occurrence
^( DATE+4
^("XY" EN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APSPBD HDR+11
>> APSPBDF HDR+10
>> APSPCLS HDR+6, HDR+7, HDR+13
>> APSPDALL HDR+13
>> APSPDARY( HDR+16
APSPDT EN+1~
>> APSPED HDR+11
>> APSPEDF HDR+10
>> APSPNOD HDR+15
APSPPG EN+1~, EN+5*, DIVSUB+2*, HDR+1*, HDR+3
APSPQ EN+1~, EN+5*, EN+9, LOOP, DIVSUB+1, DATE+1, DATE+2, PAUS+4*
DIR PAUS~
DIR("?" PAUS+1*
DIR("A" PAUS+2*
DIR(0 PAUS+2*
DIV EN+1~, EN+7*, EN+9*, LOOP, LOOP+1, DATE+4, HDR+2
DN EN+2~, HDR+12*, HDR+16*
DRG EN+1~, EN+7*, LOOP*, LOOP+1, DATE+4
DTOUT LOOP+1, PAUS~
DUOUT LOOP+1, PAUS~, PAUS+4
DX EN+2~, EN+3*
DY EN+2~, EN+3*
I EN+2~, HDR+16*, PRINT+2*
IO EN+4
IOF EN+9, DATE+1, DATE+3
IOSL DATE+1, DATE+3
IOST DIVSUB+3, DATE+1, DATE+3
PSOZDUR1 EN+2~
>> TOTAL EN+5*
U DATE+4
UNIT EN+1~, EN+7*, LOOP+1*, DATE+4
X EN+2~
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