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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APSPELRX

Package: IHS Changes To Pharmacy

Routine: APSPELRX


Information

APSPELRX ;IHS/MSC/PLS - Electronic Pharmacy Support ;20-May-2013 17:28;PLS

Source Information

Source file <APSPELRX.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS Changes To Pharmacy 4 ($$SPI,NEWRX)^APSPES1  ($$DEA,$$DEACLS)^APSPES2  (ACCEPT,DENY)^APSPES3  UPTLOG^APSPFNC2  
Kernel 3 (CLOSE,OPEN)^%ZISH  ($$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  
VA Fileman 3 UPDATE^DIE  $$GET1^DIQ  ^DIWP  
CIA Utilities 1 CAPTURE^CIAUHFS  
Order Entry Results Reporting 1 $$VALUE^ORCSAVE2  
Registration 1 (6,PID)^VADPT  
Toolkit 1 $$GET^XPAR  
VueCentric Framework 1 $$TMPGBL^CIAVMRPC  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS Changes To Pharmacy 2 APSPFNC2  APSPFNC6  
Order Entry Results Reporting 1 ORWDXA  
Outpatient Pharmacy 1 PSOHLNEW  

Entry Points

Name Comments DBIA/ICR reference
BRDCAST(RX,PHARM) ;EP
SUBS(RX) ;EP -
SS(RXIEN,PIEN) ;EP
ACT(IEN) ;EP-
FX(PIEN,FLG) ;EP
PRC(RX) ;EP
DC(ORID) ; EP -
; Send denial HL7 message
PSCRIPT(DATA,ORIFN,RXNUM) ;EP
FAXRX ;EP
GETDTNM(DIEN) ;EP
EN(RX,PHARM) ;EP
FAX(RX,PHARM) ;EP
PEI(RX) ; EP
SIG(RX) ;EP
PTADD(DFN,ARY) ;EP

External References

Name Field # of Occurrence
CLOSE^%ZISH FAX+14
OPEN^%ZISH FAX+10
$$SPI^APSPES1 SS+3
NEWRX^APSPES1 BRDCAST+13
$$DEA^APSPES2 BRDCAST+12, FAXRX+69
$$DEACLS^APSPES2 BRDCAST+12, FAXRX+69
ACCEPT^APSPES3 BRDCAST+10
DENY^APSPES3 DC+2
UPTLOG^APSPFNC2 FAX+19
CAPTURE^CIAUHFS PSCRIPT+7
$$TMPGBL^CIAVMRPC PSCRIPT+4
UPDATE^DIE PEI+12
$$GET1^DIQ ACT+1, FAX+5, FAX+7, FAXRX+11, FAXRX+13, FAXRX+20, FAXRX+24, FAXRX+28, FAXRX+29, FAXRX+30
, FAXRX+40, FAXRX+41, FAXRX+42, FAXRX+43, FAXRX+46, FAXRX+61, FAXRX+62, FAXRX+67, SS+3, FX+3
, SUBS+2
^DIWP PRC+5
$$VALUE^ORCSAVE2 BRDCAST+3, FAXRX+70
6^VADPT PTADD+2
PID^VADPT FAXRX+21
$$FMTE^XLFDT FAXRX+46, FAXRX+73
$$NOW^XLFDT FAX+8, FAXRX+73, SS+4, PEI+6
$$UP^XLFSTR FAXRX+46
$$GET^XPAR FAX+2, FAX+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$GET1^DIQ(4,INST,.01)
  • Line Location: FAXRX+40
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(4,INST,1.01)
  • Line Location: FAXRX+41
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(4,INST,1.03)_", "_$$GET1^DIQ(4,INST,.02)_" "_$$GET1^DIQ(4,INST,1.04)
  • Line Location: FAXRX+42
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(9999999.06,INST,.13)
  • Line Location: FAXRX+43
Function Call: WRITE
  • Prompt: !!,DASH,!
  • Line Location: FAXRX+44
Function Call: WRITE
  • Prompt: !,"Rx for: "_PNM_" "_VA("PID")_" DOB:"_$$UP^XLFSTR($$FMTE^XLFDT($$GET1^DIQ(2,DFN,.03,"I")))
  • Line Location: FAXRX+46
Function Call: WRITE
  • Prompt: !,?8,ADDR(1)
  • Line Location: FAXRX+47
Function Call: WRITE
  • Prompt: !,?8,ADDR(2)
  • Line Location: FAXRX+48
Function Call: WRITE
  • Prompt: !,?8,ADDR(33)
  • Line Location: FAXRX+50
Function Call: WRITE
  • Prompt: !,DASH,!
  • Line Location: FAXRX+51
Function Call: WRITE
  • Prompt: !,DRUGNM
  • Line Location: FAXRX+52
Function Call: WRITE
  • Prompt: !!,"Pharmacy may choose strength(s) of drug to meet requirements of directions."
  • Line Location: FAXRX+54
Function Call: WRITE
  • Prompt: !
  • Line Location: FAXRX+55
Function Call: WRITE
  • Prompt: !!," Dispense: ",$P(RX0,U,7)_" "_$P($G(^PSDRUG(DRUG,660)),U,8)
  • Line Location: FAXRX+57
Function Call: WRITE
  • Prompt: " Pharmacy to adjust qty for # of days."
  • Line Location: FAXRX+58
Function Call: WRITE
  • Prompt: !,"Days Supply: ",$P(RX0,U,8)
  • Line Location: FAXRX+59
Function Call: WRITE
  • Prompt: !," Refill(s): ",$P(RX0,U,9)
  • Line Location: FAXRX+60
Function Call: WRITE
  • Prompt: !," Issue Date: ",$$GET1^DIQ(52,RX,1)
  • Line Location: FAXRX+61
Function Call: WRITE
  • Prompt: !," Indicator: ",$$GET1^DIQ(52,RX,9999999.21)_$S($L(DXCODE):" ("_DXCODE_")",1:"")
  • Line Location: FAXRX+62
Function Call: WRITE
  • Prompt: !
  • Line Location: FAXRX+64
Function Call: WRITE
  • Prompt: !
  • Line Location: FAXRX+66
Function Call: WRITE
  • Prompt: !,"Signed: /ES/"_$$GET1^DIQ(200,SIGNER,.01)_" "_VANUM_$S(+DEASCH&(DEASCH<6):" "_DEA,1:"")
  • Line Location: FAXRX+67
Function Call: WRITE
  • Prompt: ?13,^(LP,0),!
  • Line Location: PRC+8
Routine Call
  • DIE
  • Line Location:
    • PEI+12

Used in RPC

RPC Name Call Tags
APSPELRX PSCRIPT PSCRIPT

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^SC - [#44] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^APSPOPHM - [#9009033.9] GET1^DIQ
^APSPRREQ - [#9009033.91] GET1^DIQ
^AUTTLOC - [#9999999.06] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APSPOPHM - [#9009033.9] SS+5, SS+6
^OR(100 - [#100] PSCRIPT+2, FAXRX+27
^PS(59 - [#59] FAXRX+16
^PSDRUG - [#50] FAXRX+57, GETDTNM+4, GETDTNM+5
^PSRX - [#52] BRDCAST+2, BRDCAST+12, FAXRX+6, FAXRX+7, FAXRX+8, FAXRX+27, FAXRX+31, FAXRX+70, PRC+4, SIG+2
, SIG+3, PEI+5, PEI+7
^PSRX("B" PSCRIPT+3
^UTILITY($J PRC+1!, PRC+6, PRC+8, PRC+9!

Label References

Name Line Occurrences
$$ACT BRDCAST+9
$$FX EN+4
$$GETDTNM FAXRX+12
$$SS EN+2
$$SUBS FAXRX+68
BRDCAST EN+3
FAX EN+5
FAXRX FAX+13
PEI EN+6
PRC FAXRX+65
PTADD FAXRX+22
SIG FAXRX+56

Naked Globals

Name Field # of Occurrence
^( PRC+5, PRC+8
^(0 GETDTNM+5, PRC+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDR FAXRX+3~, FAXRX+22
ADDR(1 FAXRX+47
ADDR(2 FAXRX+48
ADDR(3 FAXRX+49
ADDR(33 FAXRX+50
ARY FAX+1~, FAX+19, PTADD~
ARY("COM" FAX+17*
ARY("REASON" FAX+15*
ARY("RX REF" FAX+18*
ARY("TYPE" FAX+16*
ARY(1 PTADD+3*
ARY(2 PTADD+4*, PTADD+5*, PTADD+6*
ARY(3 PTADD+4*, PTADD+5*, PTADD+6*
ARY(33 PTADD+7*
ARY(4 PTADD+4*, PTADD+5*, PTADD+6*
DASH FAXRX+2~, FAXRX+33*, FAXRX+44, FAXRX+51
DATA PSCRIPT~, PSCRIPT+4*, PSCRIPT+7, FAX+1~, FAX+19
DEA FAXRX+5~, FAXRX+28*, FAXRX+67
DEASCH FAXRX+3~, FAXRX+13*, FAXRX+67
DFN FAXRX+2~, FAXRX+19*, FAXRX+20, FAXRX+22, FAXRX+46, PTADD~
DIEN GETDTNM~, GETDTNM+4, GETDTNM+5
DIWF PRC+2~, PRC+3*
DIWL PRC+2~, PRC+3*, PRC+8
DIWR PRC+2~, PRC+3*
DRUG FAXRX+4~, FAXRX+10*, FAXRX+11, FAXRX+12, FAXRX+13, FAXRX+57
DRUGNM FAXRX+4~, FAXRX+11*, FAXRX+52
DUZ(2 FAXRX+25
DXCODE FAXRX+5~, FAXRX+30*, FAXRX+62
EDT SS+2~, SS+8*, SS+9
ERR PEI+1~
FAXNUM FAX+1~, FAX+7*, FAX+10, FAX+17
FCLNAM FAX+1~, FAX+5*, FAX+6*, FAX+10, FAX+17
FDA PEI+1~
FDA( PEI+4*, PEI+5*, PEI+6*, PEI+7*, PEI+8*, PEI+9*, PEI+10*, PEI+11*
FDT FAX+1~, FAX+8*, FAX+9
FFNUM FAX+1~, FAX+4*, FAXRX+73
FJOBNM FAX+1~, FAX+9*, FAX+10
FLG FX~, FX+4, GETDTNM+1~, GETDTNM+3*, GETDTNM+4, GETDTNM+5*
FNUM FX+2~, FX+3*, FX+4
FSRV FAX+1~, FAX+2*, FAX+3, FAX+10
HLOC FAXRX+3~, FAXRX+23*, FAXRX+24
IEN ACT~, ACT+1
IENS PEI+1~, PEI+3*, PEI+4, PEI+5, PEI+6, PEI+7, PEI+8, PEI+9, PEI+10, PEI+11
INST FAXRX+3~, FAXRX+24*, FAXRX+25*, FAXRX+40, FAXRX+41, FAXRX+42, FAXRX+43
IO FAX+12
LP GETDTNM+1~, GETDTNM+2*, GETDTNM+4*, GETDTNM+5, PRC+2~, PRC+4*, PRC+5, PRC+8*, SIG+1~, SIG+2*
, SIG+3
ND7 SS+2~, SS+5*, SS+7, SS+8
NOW SS+2~, SS+4*, SS+9
ORID DC~, DC+2
ORIFN PSCRIPT~, PSCRIPT+2, BRDCAST+1~, BRDCAST+2*, BRDCAST+3, BRDCAST+10, FAXRX+5~, FAXRX+31*
PDIV FAXRX+2~, FAXRX+15*, FAXRX+16
PDIV0 FAXRX+2~, FAXRX+16*, FAXRX+17
PDIVZIP FAXRX+3~, FAXRX+17*
PHARM EN~, EN+1, EN+2, EN+3, EN+4, EN+5, BRDCAST~, FAX~, FAX+5, FAX+7
PIEN SS~, SS+1, SS+5, SS+6, FX~, FX+1, FX+3
PNM FAXRX+3~, FAXRX+20*, FAXRX+46
POP FAX+1~, FAX+11
PSZIP FAXRX+2~
RET GETDTNM+1~, GETDTNM+2*, GETDTNM+5*, GETDTNM+6
RRIEN BRDCAST+1~, BRDCAST+3*, BRDCAST+9
RX EN~, EN+1, EN+2, EN+3, EN+5, EN+6, PSCRIPT+1~, PSCRIPT+2*, BRDCAST~, BRDCAST+2
, BRDCAST+10, BRDCAST+12, BRDCAST+13, FAX~, FAX+9, FAX+19, FAXRX+6, FAXRX+7, FAXRX+8, FAXRX+27
, FAXRX+30, FAXRX+31, FAXRX+56, FAXRX+61, FAXRX+62, FAXRX+65, FAXRX+68, FAXRX+70, PRC~, PRC+4
, SIG~, SIG+2, SIG+3, SUBS~, SUBS+2, PEI~, PEI+2, PEI+4, PEI+5, PEI+7
RX0 FAXRX+2~, FAXRX+6*, FAXRX+10, FAXRX+19, FAXRX+23, FAXRX+57, FAXRX+59, FAXRX+60, FAXRX+69
RX1 PSCRIPT+1~, PSCRIPT+3*
RX2 FAXRX+2~, FAXRX+7*, FAXRX+15
RX3 FAXRX+2~, FAXRX+8*
RXIEN SS~, SS+1, SS+3
RXNUM PSCRIPT~, PSCRIPT+3
SDT SS+2~, SS+7*, SS+9
SIGNER FAXRX+4~, FAXRX+27*, FAXRX+28, FAXRX+29, FAXRX+67
SPI SS+2~, SS+3*, SS+9
SVCL SS+2~, SS+6*, SS+9
TRDNM FAXRX+4~, FAXRX+12*, FAXRX+53
U BRDCAST+2, BRDCAST+12, FAXRX+10, FAXRX+15, FAXRX+17, FAXRX+19, FAXRX+23, FAXRX+27, FAXRX+31, FAXRX+57
, FAXRX+59, FAXRX+60, FAXRX+69, FAXRX+70, SS+6, SS+7, SS+8, GETDTNM+5, PEI+5, PEI+7
VA FAXRX+3~
VA("PID" FAXRX+46
VADM PTADD+1~
VAEL PTADD+1~
VAERR PTADD+1~
VAL SUBS+1~, SUBS+2*, SUBS+3
VANUM FAXRX+5~, FAXRX+29*, FAXRX+67
VAPA PTADD+1~
VAPA(1 PTADD+3
VAPA(11 PTADD+7
VAPA(2 PTADD+4, PTADD+5, PTADD+6
VAPA(3 PTADD+4, PTADD+5, PTADD+6
VAPA(4 PTADD+6, PTADD+7
VAPA(5 PTADD+7
VAPA(6 PTADD+7
X PRC+2~, PRC+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All