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

Package: IHS Changes To Pharmacy

Routine: APSPDR4


Information

APSPDR4 ;IHS/OHPRD/JCM - PHARMACY DRUG RECALL PRINT;14-Oct-2009 14:35;SM

Source Information

Source file <APSPDR4.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 $$GET1^DIQ  ^DIR  
IHS Changes To Pharmacy 1 $$FMTPHN^APSPFUNC  
IHS Patient 1 $$HRN^AUPNPAT  
Kernel 1 ($$DT,$$FMTE)^XLFDT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Pharmacy 1 APSPDR3  

Entry Points

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

External References

Name Field # of Occurrence
$$FMTPHN^APSPFUNC PRINT+14
$$HRN^AUPNPAT PRINT+16
$$GET1^DIQ PRINT+4, PRINT+6, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+15
^DIR RX+2
$$DT^XLFDT HDR+5
$$FMTE^XLFDT PRINT+17, HDR+5

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: !,@IOF
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RX+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,$$FMTPHN^APSPFUNC(HPHN)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?16,$$GET1^DIQ(2,DFN,.01)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?48,$J($$HRN^AUPNPAT(DFN,DUZ(2)),7)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?58,$$FMTE^XLFDT(RDATE,"5ZD")
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: ?72,$P(DATA,U,4)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,"ADDRESS: ",AD1," ",$G(AD2)
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: " ",$G(AD3)," ",$G(CITY)," "
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: $G(STATE)," ",$G(ZIP)
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !!,$S($G(DUZ(2)):$P(^DIC(4,DUZ(2),0),U)_" ",1:""),"DRUG RECALL LIST"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?73,"Page ",APSPPG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"DATE OF LISTING: "_$$FMTE^XLFDT($$DT^XLFDT(),"5Z")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"All Divisions for: ",$P(^DIC(4,DUZ(2),0),U,1)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Division: ",$G(APSPDV)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?25,"CONFIDENTIAL PATIENT INFORMATION"
  • 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: !!,"HOME",?16,"PATIENT",?48,"CHART",?58,"DATE",?72,"QTY"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,"PHONE",?16,"NAME",?48,"NUMBER",?58,"DISPENSED"
  • 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
Routine Call
  • DIR
  • Line Location:
    • RX+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("XY" EN+2
^DIC(4 - [#4] HDR+3, HDR+6
^PS(59 - [#59] HDR+2
^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
AD1 PRINT+1~, PRINT+6*, PRINT+7, PRINT+19
AD2 PRINT+1~, PRINT+8*, PRINT+19
AD3 PRINT+1~, PRINT+9*, PRINT+20
>> APSPBDF HDR+11
>> APSPDARY( HDR+13
>> APSPDIV HDR+6
APSPDT EN+1~
>> APSPDV HDR+2*, HDR+7
>> APSPEDF HDR+11
APSPPG EN+1~, EN+4*, HDR+1*, HDR+4
CITY PRINT+1~, PRINT+10*, PRINT+20
>> CT HDR+12*, HDR+13*
DATA PRINT+1~, PRINT+3*, PRINT+18
DFN EN+1~, EN+7*, DATE+1, RX+1, RX+2, PRINT+4, PRINT+6, PRINT+8, PRINT+9, PRINT+10
, PRINT+11, PRINT+13, PRINT+15, PRINT+16
>> DIR("A" RX+2*
>> DIR(0 RX+2*
>> DIROUT RX+2
DIV EN+1~, EN+5*, EN+7, DATE+1, RX+1, RX+2, HDR+2
>> DN HDR+12*, HDR+13*
DTIME EN+8
>> DTOUT EN+8, RX+2
>> DUOUT RX+2
DUZ(2 PRINT+16, HDR+3, HDR+6
>> DX EN+2*
>> DY EN+2*
HPHN PRINT+1~, PRINT+4*, PRINT+5*, PRINT+14
>> I HDR+16*
IO EN+3
IOF EN+10, RX+2, PRINT+2
IOM HDR+16
IOSL RX+2, PRINT+2
IOST EN+8, EN+10, RX+2, PRINT+2
NXT EN+1~, RX+2*, PRINT+3
RDATE EN+1~, DATE+1*, RX+1, RX+2, PRINT+17
RX EN+1~, RX+1*, RX+2
STATE PRINT+1~, PRINT+11*, PRINT+12*, PRINT+21
U PRINT+18, HDR+2, HDR+3, HDR+6, HDR+13
>> X EN+8*
ZIP PRINT+1~, PRINT+13*, PRINT+21
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