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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APSQDRDU

Package: IHS Changes To Pharmacy

Routine: APSQDRDU


Information

APSQDRDU ;BHAM/ISC/SAB/ENM/POC - DUPLICATE DRUG AND CLASS CHECKER

Source Information

Source file <APSQDRDU.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS Changes To Pharmacy 2 EN^APSQDRDU  ^APSQSHOW  
Outpatient Pharmacy 2 CAN^PSOCAN  STAT^PSOFUNC  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Changes To Pharmacy 3 APSQDRDU  APSQDRG  APSQFAS4  

Entry Points

Name Comments DBIA/ICR reference
EN
ASKCAN
DOSE ;I '$D(PSOCLOZ) G EXIT
EXIT
DUP
DATA
CLS

External References

Name Field # of Occurrence
EN^APSQDRDU APSQDRDU+4
^APSQSHOW APSQDRDU+3
^DIR DOSE+1, DOSE+4, DOSE+5, ASKCAN+2
CAN^PSOCAN ASKCAN+5
STAT^PSOFUNC DATA+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PSONULN,!,*7,"DUPLICATE DRUG "_$P(DNM,"^")_" in Prescription: ",$P(^PSRX(+AZOSD(DNM),0),"^")
  • Line Location: DUP+0
Function Call: WRITE
  • Prompt: !!,$J("Status: ",24)
  • Line Location: DATA+1
Function Call: WRITE
  • Prompt: ST
  • Line Location: DATA+1
Function Call: WRITE
  • Prompt: ST
  • Line Location: DATA+1
Function Call: WRITE
  • Prompt: !,$J("SIG: ",24),$P(DUPRX0,"^",10),!,$J("QTY: ",24),$P(DUPRX0,"^",7),?40,$J("# of refills: ",24),RFLS
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: !,$J("Provider: ",24),PHYS,?40,$J("Refills remaining: ",24),RFLS-$S($D(^PSRX(RXREC,1,0)):$P(^(0),"^",4),1:0)
  • Line Location: DATA+3
Function Call: WRITE
  • Prompt: !?40,$J("Last filled on: ",24),$E(LSTFL,4,5),"/",$E(LSTFL,6,7),"/",$E(LSTFL,2,3)
  • Line Location: DATA+4
Function Call: WRITE
  • Prompt: !,"PATIENT ON AUTHORIZED ABSENSE!"
  • Line Location: DATA+5
Function Call: WRITE
  • Prompt: " RX has been "_ACT_"."
  • Line Location: ASKCAN+5
Function Call: WRITE
  • Prompt: !,PSONULN
  • Line Location: CLS+0
Routine Call
  • DIR
  • Line Location:
    • DOSE+1
    • DOSE+4
    • DOSE+5
    • ASKCAN+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53 - [#53] DATA+5
^PSRX - [#52] DUP, DATA, DATA+3, DATA+4, ASKCAN+1, ASKCAN+5
^VA(200 - [#200] DATA+2
^XUSEC("PSORPH" EN+3, EN+4

Label References

Name Line Occurrences
CLS EN+5
DOSE DOSE+4, DOSE+5
DUP EN+3, EN+4
EXIT EN+6, DOSE+1, DOSE+3, DOSE+4, DOSE+5

Naked Globals

Name Field # of Occurrence
^(0 DATA+2, DATA+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT EXIT!, ASKCAN+2*, ASKCAN+3, ASKCAN+4, ASKCAN+5
AZOSD APSQDRDU+5!
AZOSD( EN+2, EN+5, DUP, DUP+1, ASKCAN, ASKCAN+1, ASKCAN+2, ASKCAN+3, ASKCAN+4, ASKCAN+5*
, CLS+1
CAN EXIT!, CLS+1*
DA EXIT!, ASKCAN+2*, ASKCAN+5
DIR DOSE+1!, DOSE+4!, DOSE+5!, EXIT!, ASKCAN+2!
DIR("?" ASKCAN+1*
DIR("A" DOSE+1*, DOSE+4*, DOSE+5*, ASKCAN+1*
DIR("B" DOSE+4*
DIR(0 DOSE+1*, DOSE+4*, DOSE+5*, ASKCAN+1*
DNM EN*, EN+2*, EN+3, EN+4, EN+5, EXIT!, DUP, DUP+1, ASKCAN, ASKCAN+1
, ASKCAN+2, ASKCAN+3, ASKCAN+4, ASKCAN+5, CLS+1
>> DTOUT DOSE+1, DOSE+4, DOSE+5
>> DUOUT DOSE+1, DOSE+4, DOSE+5
DUP DUP*, ASKCAN+3!, ASKCAN+6!
DUPRX0 EXIT!, DATA*, DATA+2
DUZ EN+3, EN+4, ASKCAN+3, ASKCAN+4
>> EN APSQDRDU+3*
ISSD EXIT!, DATA*, DATA+1
J EXIT!, DATA+1*
LSTFL EXIT!, DATA+4*
MSG EXIT!, DUP+1*, ASKCAN+3*, ASKCAN+4*, CLS*
PHYS EXIT!, DATA+2*, DATA+3
>> PSCAN( ASKCAN+5*
PSOCD DOSE+2*, DOSE+3, DOSE+4, DOSE+5, DOSE+6, EXIT!
PSOCLC EXIT!, ASKCAN+3*, ASKCAN+4*
PSOCLOZ EXIT!
>> PSODRUG("NAME" EN+3, EN+4, EN+5
>> PSODRUG("VA C LASS" , EN+5
PSOLDT DOSE+3, DOSE+6, EXIT!
PSOLR DOSE+3, DOSE+6, EXIT!
>> PSONEW("SAND" DOSE+3*, DOSE+6*
PSONULN EN*, EXIT!, DUP, DATA+5, CLS
>> PSONV DUP+1, ASKCAN+2, ASKCAN+4, CLS
>> PSOPAR EN+3, DATA+5
>> PSORX("DFLG" EN+2, EN+3, EN+4, ASKCAN+3*
>> PSORX("PATIEN T STATUS" , DATA+5
REA EXIT!, ASKCAN+3*, ASKCAN+4*, ASKCAN+5
RFLS EXIT!, DATA*, DATA+2, DATA+3
RX0 EXIT!, DATA*, DATA+1!
RX2 EXIT!, DATA*, DATA+1!
RXN EXIT!
RXREC EXIT!, DUP+1*, DATA, DATA+1, DATA+3, DATA+4, ASKCAN+2, CLS+1*
>> SPCANC ASKCAN+2
ST EXIT!, DATA+1
>> X DOSE+2, DOSE+4, DOSE+5
Y EXIT!, ASKCAN+3
ZZ EXIT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All