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

Package: IHS Changes To Pharmacy

Routine: APSPFUNC


Information

APSPFUNC ;IHS/CIA/PLS - MISC FUNCTIONS ;10-May-2016 13:29;DU

Source Information

Source file <APSPFUNC.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
IHS Changes To Pharmacy 5 ($$ISSCH,UPTLOG)^APSPFNC2  CALLPOS^APSPFUNC  LOG^APSPPOSH  ($$DIR,DIRZ)^APSPUTIL  ($$EN,$$TEST)^APSQBRES  
VA Fileman 4 $$FIND1^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 ($$DT,$$FMTE)^XLFDT  $$UP^XLFSTR  SIG^XUSESIG  
IHS Electronic Health Record 1 SETCTX^BEHOPTCX  
IHS Omnicell Pyxis Interface 1 STAT^BOPCAP  
Pharmacy Point of Sale 1 $$IEN59^ABSPOSRX  
Toolkit 1 $$GET^XPAR  
VueCentric Framework 1 SETCTX^CIAVCXPT  

Caller Graph

Caller Graph Total: 75

Package Total Caller Graph
Outpatient Pharmacy 34 PSODEM  PSODISP  PSODRG  PSOLLL1  PSOLLL2  PSOLLL4  PSOLLLI  PSOLMUTL  
PSON52  PSOORED1  PSOORED6  PSOORFI3  PSOORFI4  PSOORFI5  PSOORFIN  PSOORNE5  
PSOREF  PSORENW  PSORENW3  PSORENW4  PSORESK  PSORESK1  PSORX1  PSORXDL  
PSORXED  PSORXL  PSORXRP1  PSORXRP2  PSORXRPT  PSOSD1  PSOSD2  PSOSD3  
PSOSDP  UNIT DOSE  
IHS Changes To Pharmacy 16 APSEPPIM  APSPAUTO  APSPCO  APSPCSM  APSPDIR  APSPDR4  APSPEC14  APSPEC16  
APSPES2  APSPES4  APSPFNC3  APSPFUNC  APSPLBL  APSPLBL1  APSPNE4  APSPRIS  
Inpatient Medications 15 PSGOEC  PSGOECS  PSGP  PSGPLR0  PSGPR  PSGVBW0  PSIV  PSIVOPT2  
PSIVORC  PSIVORE  PSJAC  PSJOE  PSJP  PSJPR  UNIT DOSE  
IHS Electronic Health Record 4 BEHORXF1  BEHORXF2  BEHORXFN  BEHORXRT  
Barcode Medication Administration 3 PSBMLLKU  PSBOHDR  PSBRPC  
CMOP 1 PSXVND  
Pharmacy Data Management 1 PSSJXR7  
Pharmacy Point of Sale 1 ABSPOSCD  

Entry Points

Name Comments DBIA/ICR reference
HRC(DFN,D) ;EP; -- IHS health record number
; Input: IEN to File 200
; D - 1 for dashes (default = 0)
VITCWT(VAL) ; EP
ISADCHK(ORDID,CHKIEN) ;EP-
SETNDC(RX,RF,NDC) ; EP - Store NDC Value
REMMSG(DRG) ;EP-
RXSTAT(RX) ;EP
FMTPHN(X) ;EP
PAD(S,P,L) ; EP
FDTWARN(PPLARY) ;EP
FRACTXT(FRAC) ; EP
BOPSTAT ; EP
PMTFORD(POIEN) ;EP-
SETPTCX(PSODFN) ;EP
HRCD(X) ; Add dashes to given HRN value in X
DEAVAUS(PRV) ;EP -
; 1. If provider DEA# exists in File 200 use that.
; 2. If no provider DEA# exists but has VA#
; then return Facility DEA-VA-USPHS
; else return null
; Facility DEA#-VA#-USPHS (ie AU1234567-BB1234-USPHS)
FILLDT(RX) ;EP
POS(RIEN) ; EP
BPPLARY(PPL) ;EP
UPDRX(RX,RF,OVERDUR) ;PEP - Update DUR 5.1 information
RMNRFL(RX,FDT) ;EP-
BYU(SITE) ;EP-
VITAL(DFN,TYP) ; EP
ISORDFLG(ORDID) ;EP-
HRCNF(HRCN12) ; EP
ISPOE(RX) ;PEP -
FMTSSN(SSN) ;EP-
NDCVAL(RX,RF) ; EP - Return NDC Value
; NDC value for prescription is returned if Refill IEN is not supplied
CALLPOS(RIEN,RFIEN,ACT,REASON) ; EP - IHS/CIA/PLS - 03/31/04
FFDTWARN(FILLDT) ; EP
APRTY ;EP-
VITCHT(VAL) ; EP
ESIG() ;EP-
INPTCOM(COM) ;EP-
VITALF(DFN,TYP) ; EP
SRCHARY(ARY,STR) ;EP-
FRACVAL(WNUM,FRAC) ; EP
BPPLSTR(PPLARY) ;EP
CHKFDT(PPL,SFLG) ; EP
RXHLDLST(DATA,DFN,BDT,EDT) ;PEP -
VITDT(VAL) ; EP

External References

Name Field # of Occurrence
$$IEN59^ABSPOSRX POS+7
$$ISSCH^APSPFNC2 ISPOE+6
UPTLOG^APSPFNC2 POS+24
CALLPOS^APSPFUNC POS+20
LOG^APSPPOSH CALLPOS+8
$$DIR^APSPUTIL PMTFORD+16
DIRZ^APSPUTIL REMMSG+8
$$EN^APSQBRES CALLPOS+5
$$TEST^APSQBRES POS+3
SETCTX^BEHOPTCX SETPTCX+4
STAT^BOPCAP BOPSTAT+2
SETCTX^CIAVCXPT SETPTCX+3
$$FIND1^DIC HRCNF+6
FILE^DIE SETNDC+7, UPDRX+9
$$GET1^DIQ VITAL+9, NDCVAL+8, CALLPOS+3, POS+9, RXHLDLST+8, RXHLDLST+9, RXHLDLST+10, DEAVAUS+9, DEAVAUS+10, DEAVAUS+11
, PMTFORD+5, PMTFORD+6, PMTFORD+8, PMTFORD+13, ISADCHK+2, REMMSG+2, REMMSG+3, REMMSG+4, APRTY+3
^DIR POS+14, INPTCOM+7, APRTY+4
$$DT^XLFDT CHKFDT+6
$$FMTE^XLFDT VITDT+1, FDTWARN+6, PMTFORD+7, PMTFORD+13
$$UP^XLFSTR SRCHARY+9, SRCHARY+14, SRCHARY+17
$$GET^XPAR CALLPOS+6
SIG^XUSESIG ESIG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The following prescription labels will not be generated because"
  • Line Location: FDTWARN+2
Function Call: WRITE
  • Prompt: !,"of a Future Fill date:"
  • Line Location: FDTWARN+3
Function Call: WRITE
  • Prompt: !,"Please edit the fill date(s) or place the prescription(s) on suspense."
  • Line Location: FDTWARN+7
Function Call: WRITE
  • Prompt: !!,"Dispense or Orderable Item: "_$S($L(DRG):DRG,1:ORDITM)
  • Line Location: PMTFORD+9
Function Call: WRITE
  • Prompt: !,"Issue Date: "_ISSDT
  • Line Location: PMTFORD+10
Function Call: WRITE
  • Prompt: !,"Ordering Provider: "_PRV
  • Line Location: PMTFORD+11
Function Call: WRITE
  • Prompt: !!,"This order has been flagged!",!
  • Line Location: PMTFORD+12
Function Call: WRITE
  • Prompt: !,"Date/Time flagged: "_$$FMTE^XLFDT($P(FLG,U,3),"5Z")_" Flagged by: "_$$GET1^DIQ(200,$P(FLG,U,4),.01)
  • Line Location: PMTFORD+13
Function Call: WRITE
  • Prompt: !,"Reason for flag: "_$P(FLG,U,5)
  • Line Location: PMTFORD+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: PMTFORD+15
Function Call: WRITE
  • Prompt: !
  • Line Location: INPTCOM+1
Routine Call
  • DIC
  • Line Location:
    • HRCNF+6
Routine Call
  • DIE
  • Line Location:
    • SETNDC+7
    • UPDRX+9
Routine Call
  • DIR
  • Line Location:
    • POS+14
    • INPTCOM+7
    • APRTY+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(100.8 - [#100.8] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSNDF(50.68 - [#50.68] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(52.41 - [#52.41] GET1^DIQ
^AUPNVMSR - [#9000010.01] GET1^DIQ
^ABSPTL - [#9002313.57] GET1^DIQ
^APSPCTRL - [#9009033] GET1^DIQ
^AUTTLOC - [#9999999.06] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" SETPTCX+3, SETPTCX+4, BOPSTAT+2
^ABSPTL("B" POS+8
^AUPNPAT - [#9000001] HRC+4
^AUPNPAT("D" HRCNF+8
^AUPNVMSR - [#9000010.01] VITAL+11
^AUPNVMSR("AA" VITAL+6, VITAL+8
^AUPNVSIT - [#9000010] VITAL+12
^AUTTMSR("B" VITAL+3
^OR(100 - [#100] ISORDFLG+3, ISORDFLG+4, ISADCHK+2
^PS(52.41 - [#52.41] PMTFORD+2
^PS(59.5 - [#59.5] BYU+1
^PSRX - [#52] UPDRX+3, UPDRX+5, POS+19, ISPOE+2, ISPOE+4, FILLDT+2, FILLDT+3, FDTWARN+6, RXSTAT+1, RMNRFL+3
, RMNRFL+4, RMNRFL+5
^PSRX("AH" RXHLDLST+6, RXHLDLST+7

Label References

Name Line Occurrences
$$FILLDT CHKFDT+6, FDTWARN+6
$$HRCD HRC+5
$$ISORDFLG PMTFORD+3
$$VITAL VITALF+2
$$VITCWT VITALF+3
$$VITDT VITALF+3
BPPLARY CHKFDT+4
BPPLSTR CHKFDT+9
FDTWARN CHKFDT+8

Naked Globals

Name Field # of Occurrence
^( HRCNF+8
^(12 VITAL+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT CALLPOS~, CALLPOS+2, CALLPOS+5, CALLPOS+7
ACT0 ISORDFLG+1~, ISORDFLG+4*, ISORDFLG+5, ISORDFLG+6
ANS POS+1~, POS+2*, POS+6*, POS+17*, POS+23, POS+25
>> APSPPRIO APRTY+5*
APSQIT POS+4~, POS+5*, POS+15*, POS+16
APSQPOS POS+4~, POS+7*, POS+8
APSQPOST POS+4~, POS+8*, POS+9
APSQPST POS+18~
ARY CALLPOS+1~, CALLPOS+8, POS+18~, POS+24, SRCHARY~
ARY( SRCHARY+12, SRCHARY+14, SRCHARY+15, SRCHARY+17
ARY("COM" POS+23*
ARY("REASON" POS+22*
ARY("RX REF" POS+21*
ARY(1 CALLPOS+7*
ASUFAC HRCNF+1~, HRCNF+4*, HRCNF+5, HRCNF+6*, HRCNF+7, HRCNF+8
BDT RXHLDLST~, RXHLDLST+3*, RXHLDLST+11
CHKIEN ISADCHK~, ISADCHK+1, ISADCHK+2
COM INPTCOM~, INPTCOM+2~, INPTCOM+6, INPTCOM+8*, INPTCOM+9
D HRC~, HRC+5
DA APRTY+1~
DAT VITAL+1~, VITAL+11*, VITAL+12*, VITAL+13
DATA RXHLDLST~, RXHLDLST+1, RXHLDLST+12
DEAID DEAVAUS+7~, DEAVAUS+9*, DEAVAUS+12, DEAVAUS+13
DFN HRC~, HRC+4, VITAL~, VITAL+6, VITAL+8, VITALF~, VITALF+2, HRCNF+1~, HRCNF+2*, HRCNF+5
, HRCNF+7, HRCNF+9*, HRCNF+10, RXHLDLST~, RXHLDLST+2, RXHLDLST+8
DIR POS+1~, INPTCOM+2~, APRTY+1~
DIR("?" INPTCOM+5*
DIR("A" POS+10*, POS+11*, INPTCOM+4*, APRTY+2*
DIR("B" POS+12*, INPTCOM+6*, APRTY+3*
DIR(0 POS+13*, INPTCOM+4*, APRTY+4*
DIRUT INPTCOM+2~, INPTCOM+8
DNAME REMMSG+1~, REMMSG+2*, REMMSG+5
DRG ISPOE+1~, ISPOE+4*, ISPOE+5, ISPOE+6, PMTFORD+1~, PMTFORD+5*, PMTFORD+9, REMMSG~, REMMSG+2, REMMSG+3
DT FFDTWARN+1, RXHLDLST+4
DTOUT INPTCOM+2~
DUOUT INPTCOM+2~
DUZ(2 HRC+4, DEAVAUS+11
EDT RXHLDLST~, RXHLDLST+4*, RXHLDLST+11
EIE VITAL+1~, VITAL+9*, VITAL+10
FACID DEAVAUS+7~, DEAVAUS+11*, DEAVAUS+15
FDA SETNDC+1~, UPDRX+1~
FDA( SETNDC+6*, UPDRX+8*
FDAT FILLDT+1~, FILLDT+3*, FILLDT+4
FDT RMNRFL~, RMNRFL+5
FFLG CHKFDT+1~, CHKFDT+7*, CHKFDT+8
FILE NDCVAL+2~, NDCVAL+6*, NDCVAL+8
FILLDT FFDTWARN~, FFDTWARN+1
>> FL SETNDC+3*, SETNDC+6, UPDRX+6*, UPDRX+8
FLAG SRCHARY+1~*, SRCHARY+12, SRCHARY+15*, SRCHARY+16, SRCHARY+17
FLD NDCVAL+2~, NDCVAL+7*, NDCVAL+8, SETNDC+5*, SETNDC+6
FLG PMTFORD+1~, PMTFORD+3*, PMTFORD+4, PMTFORD+13, PMTFORD+14
FRAC FRACVAL~, FRACVAL+3, FRACVAL+4, FRACVAL+5, FRACVAL+6, FRACVAL+7, FRACVAL+8, FRACTXT~, FRACTXT+2*, FRACTXT+3
, FRACTXT+4, FRACTXT+5, FRACTXT+6, FRACTXT+7
GOOD VITAL+1~, VITAL+2*, VITAL+6, VITAL+8, VITAL+13*
HLP PMTFORD+1~, PMTFORD+16
HRCN HRC+3~, HRC+4*, HRC+5*, HRC+6
HRCN12 HRCNF~, HRCNF+4
HRN HRCNF+1~, HRCNF+4*, HRCNF+5, HRCNF+8
HRSN RXHLDLST+5~, RXHLDLST+6*, RXHLDLST+7
IDT VITAL+1~, VITAL+5*, VITAL+6*, VITAL+8
IEN VITAL+1~, VITAL+7*, VITAL+8*, VITAL+9, VITAL+11, VITAL+13, RMNRFL+1~, RMNRFL+4*, RMNRFL+5
IENS NDCVAL+2~, NDCVAL+5*, NDCVAL+8, SETNDC+4*, SETNDC+6, UPDRX+7*, UPDRX+8
ISSDT PMTFORD+1~, PMTFORD+7*, PMTFORD+10
L PAD~, PAD+1, PAD+2
LFN FILLDT+1~, FILLDT+2*, FILLDT+3
LINE SRCHARY+1~*, SRCHARY+5*, SRCHARY+6, SRCHARY+8*, SRCHARY+12*, SRCHARY+14, SRCHARY+15
LP CHKFDT+1~, BPPLARY+1~, BPPLARY+2*, BPPLARY+3, ISORDFLG+1~, ISORDFLG+3*, ISORDFLG+4
MSG SETNDC+1~, SETNDC+8, UPDRX+1~, UPDRX+10
MSG("DIERR" SETNDC+8, UPDRX+10
NDC SETNDC~, SETNDC+6
ORDID ISORDFLG~, ISORDFLG+3, ISORDFLG+4, ISADCHK~, ISADCHK+2
ORDITM PMTFORD+1~, PMTFORD+6*, PMTFORD+9
OUT FRACVAL+1~, FRACVAL+10*, FRACVAL+11*, FRACVAL+12*, FRACVAL+13*, FRACVAL+14, SRCHARY+1*, SRCHARY+3, SRCHARY+12, SRCHARY+16*
, SRCHARY+18*, SRCHARY+19
OVERDUR UPDRX~, UPDRX+2, UPDRX+8
P PAD~, PAD+1*, PAD+2
P0 PMTFORD+1~, PMTFORD+2*, PMTFORD+3, PMTFORD+7
>> PKIR INPTCOM+4
POE ISPOE+1~, ISPOE+2*, ISPOE+3
POIEN PMTFORD~, PMTFORD+2, PMTFORD+5, PMTFORD+6, PMTFORD+8
PPL CHKFDT~, CHKFDT+2, CHKFDT+4, BPPLARY~, BPPLARY+2, BPPLARY+3, BPPLSTR+2*, BPPLSTR+4*
PPLARY CHKFDT+1~, CHKFDT+8, CHKFDT+9, BPPLSTR~, FDTWARN~
PPLARY( CHKFDT+5, CHKFDT+6*, CHKFDT+7, BPPLARY+4*, BPPLSTR+3, BPPLSTR+4, FDTWARN+4, FDTWARN+5
PRV DEAVAUS~, DEAVAUS+6, DEAVAUS+9, DEAVAUS+10, PMTFORD+1~, PMTFORD+8*, PMTFORD+11
PSODFN SETPTCX~, SETPTCX+3, SETPTCX+4
>> PSOSITE APRTY+3
REASON CALLPOS~, CALLPOS+5, CALLPOS+7
REF FILLDT+1~
RES VITALF+1~, VITALF+3*, VITALF+4, FRACVAL+1~, FRACVAL+2*, FRACVAL+4*, FRACVAL+5*, FRACVAL+6*, FRACVAL+7*, FRACVAL+8*
, FRACVAL+9, FRACVAL+12, FRACTXT+1~, FRACTXT+3*, FRACTXT+4*, FRACTXT+5*, FRACTXT+6*, FRACTXT+7*, FRACTXT+8, FMTPHN+1~
, ISORDFLG+1~, ISORDFLG+2*, ISORDFLG+6*, ISORDFLG+7, INPTCOM+3*
RET VITAL+1~, VITAL+2*, VITAL+13*, VITAL+14, POS+18~, POS+24, DEAVAUS+7~, DEAVAUS+8*, DEAVAUS+13*, DEAVAUS+15*
, DEAVAUS+16
RF NDCVAL~, NDCVAL+3*, NDCVAL+5, NDCVAL+6, NDCVAL+7, SETNDC~, SETNDC+2*, SETNDC+3, SETNDC+4, SETNDC+5
, UPDRX~, UPDRX+4*, UPDRX+5, UPDRX+6, UPDRX+7
RF0 FILLDT+1~
RFIEN CALLPOS~, CALLPOS+4*, CALLPOS+5, CALLPOS+7, POS+7, POS+18~, POS+19*, POS+20, POS+21
RFS RMNRFL+1~, RMNRFL+4*, RMNRFL+6*, RMNRFL+7
RIEN CALLPOS~, CALLPOS+2, CALLPOS+3, CALLPOS+5, CALLPOS+7, POS~, POS+7, POS+19, POS+20, POS+24
RX NDCVAL~, NDCVAL+4, NDCVAL+5, SETNDC~, SETNDC+4, UPDRX~, UPDRX+2, UPDRX+3, UPDRX+5, UPDRX+7
, RXHLDLST+7*, RXHLDLST+8, RXHLDLST+9, RXHLDLST+10, RXHLDLST+12, ISPOE~, ISPOE+2, ISPOE+4, CHKFDT+1~, CHKFDT+5*
, CHKFDT+6, CHKFDT+7, BPPLARY+1~, BPPLARY+3*, BPPLARY+4, BPPLSTR+1~, BPPLSTR+3*, BPPLSTR+4, FILLDT~, FILLDT+2
, FILLDT+3, FDTWARN+1~, FDTWARN+4*, FDTWARN+5, FDTWARN+6, RXSTAT~, RXSTAT+1, RMNRFL~, RMNRFL+2*, RMNRFL+3
, RMNRFL+4, RMNRFL+5
RXISD RXHLDLST+5~, RXHLDLST+10*, RXHLDLST+11
S PAD~, PAD+2
SFLG CHKFDT~, CHKFDT+3*, CHKFDT+9
SITE BYU~, BYU+1
SSN FMTSSN~, FMTSSN+2*, FMTSSN+3
STR SRCHARY~, SRCHARY+3, SRCHARY+4, SRCHARY+7
STR( SRCHARY+5, SRCHARY+6
STRX SRCHARY+1~, SRCHARY+2*, SRCHARY+6*, SRCHARY+7*, SRCHARY+9*, SRCHARY+10*, SRCHARY+11, SRCHARY+16, SRCHARY+18
TYP VITAL~, VITAL+3*, VITAL+4, VITAL+6, VITAL+8, VITALF~, VITALF+2
U VITAL+12, VITAL+13, VITALF+3, CALLPOS+7, ISPOE+2, ISPOE+4, FILLDT+3, FDTWARN+6, RMNRFL+4, RMNRFL+5
, PMTFORD+7, PMTFORD+13, PMTFORD+14, ISADCHK+2
VAID DEAVAUS+7~, DEAVAUS+10*, DEAVAUS+14, DEAVAUS+15
VAIEN REMMSG+1~, REMMSG+3*, REMMSG+4
VAL VITCHT~, VITCHT+1, VITCWT~, VITCWT+1, VITDT~, VITDT+1, VITALF+1~, VITALF+2*, VITALF+3
VIS VITAL+1~
WNUM FRACVAL~, FRACVAL+3, FRACVAL+9, FRACVAL+11, FRACVAL+12
X HRCD~, HRCD+1*, HRCD+2*, HRCD+3, VITAL+11*, VITAL+12, VITAL+13, CALLPOS+1~, CALLPOS+5*, CALLPOS+7
, SETPTCX+1~, SETPTCX+3*, SETPTCX+4*, BOPSTAT+1~, BOPSTAT+2*, FMTPHN~, FMTPHN+2, FMTPHN+3, FMTPHN+4, FMTPHN+5
, FMTPHN+6, FMTPHN+7, FMTPHN+8, ESIG+1~, FMTSSN+1~, FMTSSN+3*, FMTSSN+4
X1 ESIG+1~, ESIG+3, SRCHARY+13~, SRCHARY+14*, SRCHARY+16, SRCHARY+17*, SRCHARY+18
>> XQY0 SETPTCX+2
Y POS+15, HRCNF+1~, HRCNF+8*, HRCNF+9, INPTCOM+2~, INPTCOM+8, APRTY+5
Y(0 APRTY+5
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