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

Package: IHS Changes To Pharmacy

Routine: APSPDUR1


Information

APSPDUR1 ;IHS/DSD/JCM/ENM - PHARMACY DUR PRINT;14-Oct-2009 14:36;SM

Source Information

Source file <APSPDUR1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Patient 1 $$HRN^AUPNPAT  
Kernel 1 ($$DT,$$FMTE)^XLFDT  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Pharmacy 1 APSPDUR  

Entry Points

Name Comments DBIA/ICR reference
DATE ;EP
PRINT ;EP
EN ;EP
RX ;EP
HDR ;

External References

Name Field # of Occurrence
$$HRN^AUPNPAT PRINT+5
$$GET1^DIQ PRINT+4, PRINT+8
$$DT^XLFDT HDR+6
$$FMTE^XLFDT PRINT+6, HDR+6

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"Press Return to Continue...."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"TOTAL NUMBER OF ISSUES : ",TOTAL
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RX+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(2,DFN,.01)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?35,$J($$HRN^AUPNPAT(DFN,DUZ(2)),7)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?45,$$FMTE^XLFDT(RDATE,"5ZD")
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?55,$J($P(DATA,U,4),4)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?61,$E($$GET1^DIQ(200,$P(DATA,U,6),.01),1,18)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"Remarks: ",REM,!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!,$S($G(DUZ(2)):$P(^DIC(4,DUZ(2),0),U)_" ",1:""),"DRUG USE EVALUATION LIST"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?73,"Page ",APSPPG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"DATE OF LISTING: "_$$FMTE^XLFDT($$DT^XLFDT(),"5Z")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"All Divisions for: ",$P(^DIC(4,DUZ(2),0),U,1)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Division: ",$G(APSPDV)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,"This list will include all Outpatients dispensed one or any"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: " combination ",!,"of the following drug(s) from "
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: APSPBDF," through ",APSPEDF,!!
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: $P(^PSDRUG(DN,0),U),", "
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !!,"PATIENT",?35,"CHART",?45,"DATE"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,"NAME",?35,"NUMBER",?45,"DISPENSED",?55,"QTY",?61,"MD"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: "_"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !!?20,"NO PATIENTS RECEIVED MEDICATION"
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+18

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" EN+2
^DIC(4 - [#4] HDR+4, HDR+7
^PS(59 - [#59] HDR+3
^PSDRUG - [#50] HDR+13
^TMP($J EN+5, EN+7, DATE+1, RX+1, RX+2, PRINT+3, HDR+17

Label References

Name Line Occurrences
DATE EN+7
HDR EN+6, PRINT+2
PRINT RX+2
RX DATE+1

Naked Globals

Name Field # of Occurrence
^("XY" EN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APSPBDF HDR+11
>> APSPDARY( HDR+13
>> APSPDIV HDR+7
APSPDT EN+1~
APSPDV HDR+1~, HDR+3*, HDR+8
>> APSPEDF HDR+11
APSPPG EN+1~, EN+4*, HDR+2*, HDR+5
CT HDR+1~, HDR+12*, HDR+13*
DATA PRINT+1~, PRINT+3*, PRINT+7, PRINT+8, PRINT+9
DFN EN+1~, EN+7*, DATE+1, RX+1, RX+2, PRINT+4, PRINT+5
DIV EN+1~, EN+5*, EN+7, DATE+1, RX+1, RX+2, HDR+3
DN HDR+1~, HDR+12*, HDR+13*
DTIME EN+8
>> DTOUT EN+8
DUZ(2 PRINT+5, HDR+4, HDR+7
>> DX EN+2*
>> DY EN+2*
>> I HDR+16*
IO EN+3
IOF EN+10, PRINT+2
IOM HDR+16
IOSL PRINT+2
IOST EN+8, EN+10
NXT EN+1~, RX+2*, PRINT+3
RDATE EN+1~, DATE+1*, RX+1, RX+2, PRINT+6
REM PRINT+1~, PRINT+9*, PRINT+10
RX EN+1~, RX+1*, RX+2
TOTAL EN+1~, EN+4*, EN+9, PRINT+11*
U PRINT+7, PRINT+8, PRINT+9, HDR+3, HDR+4, HDR+7, HDR+13
>> X EN+8*
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