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 |  Local Variables |  All
Print Page as PDF
Routine: APSQDGDG

Package: IHS Changes To Pharmacy

Routine: APSQDGDG


Information

APSQDGDG ;IHS/ASDS/ENM/POC - DRUG/DRUG INTERACTION CHECKER

Source Information

Source file <APSQDGDG.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS Changes To Pharmacy 2 EN^APSQDGDG  ^APSQSHOW  
Outpatient Pharmacy 2 ENQ^PSORXDL  (,EN1)^PSORXI  
VA Fileman 2 FILE^DICN  ^DIR  
Kernel 1 SIG^XUSESIG  

Caller Graph

Caller Graph Total: 3

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

Entry Points

Name Comments DBIA/ICR reference
EN ;CHANGED PSOSD TO AZOSD IHS/OKCAO/POC
MESS
PPL
PHARM ;pharmacist verification of drug interaction
TECH ;add tech entry to RX VERIFY file (#52.4)
BLD
CRI ;process new drug interactions entered by pharmacist
CRITN ;process multiple new drug interactions

External References

Name Field # of Occurrence
EN^APSQDGDG APSQDGDG+5
^APSQSHOW APSQDGDG+4
FILE^DICN TECH+1
^DIR PHARM+4, CRI+3, CRITN+5
ENQ^PSORXDL CRITN+7, CRITN+8
^PSORXI PHARM+8, CRI+7, CRITN+6
EN1^PSORXI CRITN+7, CRITN+8
SIG^XUSESIG CRI+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,*7,$S(PSODRUG("NAME")="OUTSIDE DRUG":"THIS DRUG",1:PSODRUG("NAME"))," CANNOT BE CHECKED FOR INTERACTIONS. IT HAS NO ENTRY IN NATIONAL DRUG FILE!!"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,*7,*7,DRG," CANNOT BE CHECKED FOR INTERACTIONS WITH ",PSODRUG("NAME"),". ",DRG," HAS NO ENTRY IN NATIONAL DRUG FILE!!",!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: *7,!,"DRUG INTERACTON WITH RX #s: "_LSI,!
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: *7,*7
  • Line Location: PHARM+3
Function Call: WRITE
  • Prompt: !!,"Deleting Rx: ",$P($G(^PSRX(DA,0)),"^")," ","Drug: ",$P($G(^PSDRUG($P(^PSRX(DA,0),"^",6),0)),"^"),!
  • Line Location: MESS+0
Routine Call
  • DIR
  • Line Location:
    • PHARM+4
    • CRI+3
    • CRITN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.4 - [#52.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(56 - [#56] EN+12, BLD+3, PHARM+1
^PSDRUG - [#50] EN+10, BLD+2, MESS
^PSRX - [#52] TECH+2*, CRITN+2, CRITN+4, CRITN+6, MESS
^XUSEC("PSORPH" EN+13, BLD

Label References

Name Line Occurrences
BLD EN+12
CRI PHARM+6
MESS CRITN+7, CRITN+8
PHARM BLD
PPL CRITN+7, CRITN+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ARRDRIEN EN+10, BLD+2
AZOSD APSQDGDG+6!, CRITN+7*, CRITN+8*
AZOSD( EN+5, EN+8, CRITN+2, CRITN+4, CRITN+6, CRITN+7!, CRITN+8!, PPL+2
CRIT EN+5*, EN+13, TECH+1, TECH+2!, BLD+3*
>> DA CRITN+7*, CRITN+8*, MESS
DD TECH+1!
DGI EN+5*, EN+13, TECH+1, TECH+2!, BLD+2*, PHARM+5*, PHARM+6*, PHARM+8*, CRI+3*, CRITN+3
, CRITN+6*
DGS EN+5*, TECH+2!
DIC TECH+1*, TECH+2!
DIC("DR" TECH+1*
DIC(0 TECH+1*
DINUM TECH+1*, TECH+2!
DIR PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+2!, CRI+3!, CRITN+2!, CRITN+5!
DIR("?" PHARM+1*, PHARM+2*, CRI+3*, CRITN+4*, CRITN+5*
DIR("A" PHARM+3*, PHARM+4*, CRI+2*, CRITN+2*, CRITN+3*
DIR("B" PHARM+4*, CRI+2*
DIR(0 PHARM+4*, CRI+2*, CRITN+3*
DIROUT PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+3!, CRI+8!, CRITN+6!, CRITN+7!, CRITN+9!
DIRUT PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+3!, CRI+8!, CRITN+6!, CRITN+7!, CRITN+9!
DLAYGO TECH+1*, TECH+2!
DO TECH+1!
DRG EN+5*, EN+8, EN+11, EN+13!, PHARM+3, CRITN+2, CRITN+3, CRITN+4, CRITN+6, CRITN+7
, CRITN+8, PPL+2
DT TECH+1
DTOUT PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+3!, CRI+8!, CRITN+6!, CRITN+7!, CRITN+9!
DUOUT PHARM+5!, PHARM+6!, PHARM+7!, PHARM+8!, CRI+3!, CRI+8!, CRITN+6!, CRITN+7!, CRITN+9!
DUZ EN+13, TECH+1, BLD
>> EN APSQDGDG+4*
ENT PPL+2*, PPL+3*, PPL+4, PPL+5, PPL+6, PPL+7!
IT EN+12*, EN+13!, BLD+2, BLD+3, PHARM+1
LSI EN+5*, EN+13!, BLD+2*
NDF EN+8*, EN+11, EN+12, EN+13!
PSHLDDRG CRITN+6*!
>> PSODFN TECH+1
PSODI TECH+1*, TECH+2!
>> PSODRUG("IEN" CRITN+6*
>> PSODRUG("NAME" EN+11, CRI+2, CRITN+2
>> PSODRUG("NDF" EN+3, EN+12
PSOHOLDA CRITN+7*!, CRITN+8*!
PSOL PPL+3*, PPL+4, PPL+5, PPL+6, PPL+7!
PSOL( PPL+2*, PPL+3
>> PSONEW("STATUS" EN+13*
>> PSORX("DFLG" EN+5, EN+12, PHARM+5*, CRI+3*, CRI+5*, CRITN+6*, CRITN+8*
>> PSORX("INTERVENE" PHARM+6*, PHARM+8*!, CRI+3!, CRI+5!, CRI+6*, CRI+7!
>> PSORX("PHARM" BLD*
>> PSORX("PSOL" PPL, PPL+2, PPL+4!, PPL+5*, PPL+6*
PSOSL PPL*, PPL+2*, PPL+7!
>> PSOX("IRXN" TECH+1, TECH+2
PSOX2 PPL*, PPL+1, PPL+2, PPL+7!
>> PSOZDEA EN+10*, EN+11
SER EN+5*, TECH+1, TECH+2!, BLD+2*, PHARM+1*, PHARM+2, PHARM+3, PHARM+4, PHARM+5, PHARM+6
, PHARM+7, PHARM+8, CRI+4, CRI+6
SERS EN+5*, TECH+2!
U EN+10
>> X TECH+1*
X1 CRI+3!, CRI+5, CRITN+2!
>> Y PHARM+5, PHARM+6, PHARM+7, PHARM+8, CRI+3, CRITN+6, CRITN+7, CRITN+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 |  Local Variables |  All