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 |  Marked Items  | All
Print Page as PDF
Routine: PSORRPA1

Package: Outpatient Pharmacy

Routine: PSORRPA1


Information

PSORRPA1 ;AITC/BWF,RBD - remote partial prescriptions ;18 Feb 2025 8:56 AM

Source Information

Source file <PSORRPA1.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Outpatient Pharmacy 8 $$LSTRFL^PSOBPSU1  $$STATUS^PSOBPSUT  RMP^PSOCAN3  EN^PSOHDR  EN^PSOHLSN1  KILLPARK^PSOPRK  (LABEL,LOGDATA)^PSORWRAP  TRIC^PSORXL1  
VA FileMan 5 $$FIND1^DIC  FILE^DICN  (FILE,UPDATE)^DIE  ^DIK  ($$GET1,GETS)^DIQ  
Kernel 3 ($$DEFDIR,$$DEL,$$FTG)^%ZISH  (RMDEV,SAVDEV,USE)^%ZISUTL  ($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT  
Registration 1 KVA^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSORRX1  PSORWRAP  

Entry Points

Name Comments DBIA/ICR reference
PAR(VALMSG,RXNUM,PFDATE,MW,QTY,DSUPP,REMARKS,PHARM,PHONE,SITE,RX0,RX2,RXSTA,RPROV,RSIG,RPAR0,ROR1,RX3,RREF0) ;
CLC
CLCX
KILL
KL
ACT ;adds activity info for partial rx
EX
ULK ;
PARFAIL(PSOMSG,PSOIEN,RPHARM,RPHONE,RSITE) ;
VALIDDRUG(DRUGIEN) ;
UPDPAR(PSOMSG,PSOIEN,RPHARM,RPHONE,RSITE,PASSLOC) ;
VALDRGINT(DRUGIEN,FILLTYP,RXNUM) ; Interactive check for drug restrictions
UNPARK ; Unpark it if it is PARK'ed - RBD *774

External References

Name Field # of Occurrence
$$DEFDIR^%ZISH CLC+47
$$DEL^%ZISH CLC+54, CLC+68
$$FTG^%ZISH CLC+66
RMDEV^%ZISUTL CLC+70
SAVDEV^%ZISUTL CLC+52
USE^%ZISUTL CLC+70
$$FIND1^DIC PAR+22, UNPARK+5
FILE^DICN UNPARK+13
FILE^DIE CLC+31, UPDPAR+13, UNPARK+3
UPDATE^DIE CLC+5
^DIK KILL
$$GET1^DIQ PAR+4, PAR+5, PAR+10, PAR+16, CLC+40, CLC+73, PARFAIL+1, VALIDDRUG+1, VALIDDRUG+3, VALIDDRUG+5
, VALIDDRUG+8, UPDPAR+5, UPDPAR+6, UPDPAR+7, VALDRGINT+3, VALDRGINT+6, VALDRGINT+9, VALDRGINT+15, VALDRGINT+22, UNPARK+2
GETS^DIQ UPDPAR+15
$$LSTRFL^PSOBPSU1 UNPARK+7
$$STATUS^PSOBPSUT PAR+25
RMP^PSOCAN3 CLC+3
EN^PSOHDR CLC+32
EN^PSOHLSN1 PAR+31
KILLPARK^PSOPRK UNPARK+4
LABEL^PSORWRAP CLC+57
LOGDATA^PSORWRAP UPDPAR+35
TRIC^PSORXL1 PAR+25
KVA^VADPT KL+1
$$DT^XLFDT VALIDDRUG+2, VALDRGINT+4
$$FMADD^XLFDT CLC+61, CLC+65
$$FMTE^XLFDT PAR+18
$$NOW^XLFDT CLC+21, CLC+63, CLC+65, UNPARK+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Matched Drug "_$$GET1^DIQ(50,DRUGIEN,.01,"E")_" is inactive.",!,"Cannot refill."
  • Line Location: VALDRGINT+5
Function Call: WRITE
  • Prompt: !!,"This is a controlled substance. Cannot refill Rx#",RXNUM,"."
  • Line Location: VALDRGINT+11
Function Call: WRITE
  • Prompt: !!,"This is a Clozapine prescription.",!,"Cannot refill Rx # ",RXNUM,"."
  • Line Location: VALDRGINT+17
Function Call: WRITE
  • Prompt: !!,"Local Drug is restricted from OneVA Pharmacy processing.",!,"Cannot refill Rx # ",RXNUM,"."
  • Line Location: VALDRGINT+24
Function Call: WRITE
  • Prompt: !!,"Local Drug is restricted from OneVA Pharmacy processing.",!,"Cannot "_$S(FILLTYP="R":"refill",1:"process a partial fill for")_" Rx # ",RXNUM,"."
  • Line Location: VALDRGINT+25
Routine Call
  • DIC
  • Line Location:
    • PAR+22
    • UNPARK+5
Routine Call
  • DIE
  • Line Location:
    • CLC+31
    • UPDPAR+13
    • UNPARK+3
Routine Call
  • DIE
  • Line Location:
    • CLC+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] FIND1^DIC,  GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(52 PAR+33
^PS(52.5 - [#52.5] PAR+36, PAR+37
^PS(53 - [#53] CLC+43
^PS(55 - [#55] CLC+43
^PS(59 - [#59] PAR+19
^PSDRUG - [#50] CLC+34
^PSRX - [#52] PAR+18, PAR+23, PAR+24, PAR+28, PAR+29*, PAR+30, PAR+32, PAR+33, CLC, CLC+1
, CLC+2, CLC+3, CLC+34*, CLC+37, CLC+72, CLC+73, CLC+74, CLC+75, CLC+76, CLC+77
, CLC+78, KILL*, ACT+1, ACT+2, ACT+3*, UPDPAR+4, UNPARK+1
^PSRX("B" PAR+4, UNPARK+1
^XTMP("PSORLBL" CLC+60!, CLC+61*, CLC+67

Label References

Name Line Occurrences
$$VALIDDRUG PAR+17
ACT CLC+33
PARFAIL PAR+8, PAR+11, PAR+17, PAR+18, PAR+27, PAR+35, PAR+41, KILL+1
ULK PAR+32, CLCX, KILL+1
UPDPAR CLC+71

Naked Globals

Name Field # of Occurrence
^("STA" PAR+32
^(0 PAR+37, CLC
^(2 PAR+24, PAR+30
^(3 PAR+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KL!
%X KL!
%Y KL!
>> BBFLG PAR+24
>> BBRX(1 PAR+24*
>> BINGCRT CLC+35*
C PAR+2~, PAR+33*
CLERK UPDPAR+1~, UPDPAR+19*, UPDPAR+36
CLOZVAL PAR+2~, VALIDDRUG+5*, VALIDDRUG+6, VALDRGINT+1~, VALDRGINT+15*, VALDRGINT+16
COMM PAR+30*, PAR+31!
CSVAL PAR+2~, VALIDDRUG+3*, VALIDDRUG+4, VALDRGINT+1~, VALDRGINT+9*, VALDRGINT+10
D PAR+2~, PAR+33*, PAR+34
D0 KL!
D1 KL!
DA PAR+24*, PAR+25, PAR+28, PAR+29, PAR+30, PAR+31, PAR+32!, PAR+33, PAR+36, CLC
, CLC+1, CLC+2, CLC+3, CLCX!, KILL*, KL!, ACT+2*, ACT+3*, EX*, UNPARK+6~
DA(1 UNPARK+10*
>> DAT UPDPAR+35
>> DAT(1 UPDPAR+34*
DD UNPARK+6~
DEL PAR+1~, CLC+54*, CLC+68*
DELARR PAR+1~, CLC+54, CLC+68
DELARR("PSOLBL_" CLC+54*, CLC+68*
DFN KL!
DI KL!
DIC KL!, UNPARK+6~, UNPARK+10*
DIC("DR" UNPARK+11*, UNPARK+12*
DIC(0 UNPARK+10*
DIE CLC+32!, CLCX!, KL!
DIEN UPDPAR+1~, UPDPAR+7*
DIK KILL*, KL+1!
DINACT PAR+2~, VALIDDRUG+1*, VALIDDRUG+2, VALDRGINT+1~, VALDRGINT+3*, VALDRGINT+4
DINUM UNPARK+6~
DISPDT UPDPAR+1~, UPDPAR+28*, UPDPAR+34, UPDPAR+36
DLAYGO KL!, UNPARK+6~, UNPARK+10*
DNAME UPDPAR+1~, UPDPAR+6*, UPDPAR+34, UPDPAR+36
DO UNPARK+6~
DQ KL!
DR CLCX!, KL!, UNPARK+6~
DRG CLC*, CLC+34, CLCX!, KL+1!
DRUGIEN VALIDDRUG~, VALIDDRUG+1, VALIDDRUG+3, VALIDDRUG+5, VALIDDRUG+8, VALDRGINT~, VALDRGINT+3, VALDRGINT+6, VALDRGINT+9, VALDRGINT+15
, VALDRGINT+22
DSUPP PAR~, CLC+15, UPDPAR+1~, UPDPAR+18*, UPDPAR+34, UPDPAR+36
DT PAR+28, CLC+48, CLC+54, CLC+61, CLC+68, ACT+3, UNPARK+8, UNPARK+9
DUOUT KL+1!
E PAR+2~, PAR+33*
EDIV UPDPAR+1~, UPDPAR+23*, UPDPAR+36
FDA CLC+5!, CLC+31!, ACT+2*, EX!, UPDPAR+1~, UPDPAR+13!, UNPARK+3!
FDA( CLC+5*, CLC+13*, CLC+14*, CLC+15*, CLC+17*, CLC+19*, CLC+20*, CLC+21*, CLC+22*, CLC+23*
, CLC+27*, UPDPAR+10*, UPDPAR+11*, UPDPAR+12*
FDA(52 UNPARK+3*
FIL UPDPAR+1~, UPDPAR+2*, UPDPAR+15, UPDPAR+16, UPDPAR+17, UPDPAR+18, UPDPAR+19, UPDPAR+20, UPDPAR+22, UPDPAR+23
, UPDPAR+28, UPDPAR+30, UPDPAR+31, UPDPAR+32, UPDPAR+33
FILLTYP VALDRGINT~, VALDRGINT+6, VALDRGINT+12, VALDRGINT+18, VALDRGINT+24, VALDRGINT+25
FOUND PAR+1~, CLC+63*, CLC+65, CLC+67*
FTGOPEN PAR+1~, CLC+63*, CLC+65, CLC+66*
FTGSTRT PAR+1~, CLC+63*, CLC+65
FULLPTH PAR+1~, CLC+49*
HDRUG PAR+1~, PAR+16*, PAR+17
HFSDONE PAR+1~, CLC+46*
HFSIEN PAR+1~
>> HLINSTN CLC+58, CLC+59, CLC+60, CLC+61, CLC+67
HRX KL+1!
I CLC+1*, KL!, ACT+1*, EX!
I1 KL+1!
IDIV UPDPAR+1~, UPDPAR+22*, UPDPAR+36
IFN KL+1!
II KL!
IOP CLCX!
J PAR+24*, PAR+31!, KL!
JJJ KL!
LOGDATE UPDPAR+1~, UPDPAR+20*, UPDPAR+36
MW PAR~, CLC+12, CLC+13
N KL!
NDC UPDPAR+1~, UPDPAR+30*, UPDPAR+36
NEWPFIEN PAR+2~
NEWPFIEN( CLC+7
NEWPFIEN(0 CLC+7
NOONEVA PAR+2~, VALIDDRUG+8*, VALIDDRUG+9, VALDRGINT+1~, VALDRGINT+22*, VALDRGINT+23
ORN PAR+1~, PAR+21*, PAR+23, PAR+24
PAR CLC+64~*
PARDATA UPDPAR+1~
PARDATA( UPDPAR+16, UPDPAR+17, UPDPAR+18, UPDPAR+19, UPDPAR+20, UPDPAR+22, UPDPAR+23, UPDPAR+28, UPDPAR+30, UPDPAR+31
, UPDPAR+32, UPDPAR+33
PARIEN UPDPAR+1~, UPDPAR+4*, UPDPAR+8, UPDPAR+35, UPDPAR+36
PARIENS UPDPAR+1~, UPDPAR+8*, UPDPAR+10, UPDPAR+11, UPDPAR+12, UPDPAR+15, UPDPAR+16, UPDPAR+17, UPDPAR+18, UPDPAR+19
, UPDPAR+20, UPDPAR+22, UPDPAR+23, UPDPAR+28, UPDPAR+30, UPDPAR+31, UPDPAR+32, UPDPAR+33
PASSLOC PAR+1~, CLC+59*, CLC+71, UPDPAR~, UPDPAR+36
PDIR PAR+2~
PDT KL!
PERR PAR+2~, CLC+6
PFDATE PAR~, PAR+18, CLC+5, CLC+27
PFIEN PAR+2~, CLC+7*, CLC+9, CLC+10, CLC+29, CLC+75
PFIENS PAR+2~, CLC+10*, CLC+13, CLC+14, CLC+15, CLC+17, CLC+19, CLC+20, CLC+21, CLC+22
, CLC+23, CLC+27
PFIL PAR+2~
PHARM PAR~, PAR+8, PAR+11, PAR+17, PAR+18, PAR+27, PAR+35, PAR+41, CLC+71, KILL+1
PHARMST PAR+31*!
PHONE PAR~, PAR+8, PAR+11, PAR+17, PAR+18, PAR+27, PAR+35, PAR+41, CLC+71, KILL+1
PHYS CLC*, CLC+1*, CLC+20, CLCX!, KL!
PM CLC+12*, KL!
PPL CLCX!
PPL1 CLC+44~, CLC+45*
PRMK CLC+29*, CLC+32, KL!, ACT+3
PS KL!
PSDATE KL!
PSL KL!
PSNP KL!
PSOCLC CLC*, KL+1!
PSOCOMM UNPARK+6~, UNPARK+8*, UNPARK+9*, UNPARK+12
PSOD KL+1!
PSODFDIR PAR+2~, CLC+47*, CLC+49, CLC+54, CLC+66, CLC+68
>> PSODFN CLC+37*, CLC+40, CLC+43
PSOEXREP PAR+2~, CLC+55*
PSOFNAME PAR+2~, CLC+48*, CLC+49, CLC+57, CLC+66
PSOFROM PAR+2~, CLC+35*
PSOIEN PARFAIL~, PARFAIL+1, UPDPAR~, UPDPAR+4, UPDPAR+5, UPDPAR+6, UPDPAR+7, UPDPAR+8, UPDPAR+35, UPDPAR+36
PSOLIST KL+1!
PSOLST PAR+1~, KL+1!
PSOLST( PAR+21*, PAR+23, PAR+24
PSOM KL+1!
PSOMSG ULK+1!, PARFAIL~, UPDPAR~
PSOMSG(0 PARFAIL+1*, UPDPAR+36*
PSOMSG(1 UPDPAR+37*
PSOP KL+1!
PSOPAR PAR+1~, PAR+19*, CLC+12
PSOPHDUZ PAR+2~, PAR+22*, CLC, CLC+17, CLC+19, CLC+57, ACT+3
PSOPLCK ULK+1!
PSOPRZ CLC+2*, CLCX!
PSORF PAR+25~
PSORFL UNPARK+6~, UNPARK+7*, UNPARK+11
PSORPDFN PAR+23*, ULK+1!
PSORX CLCX!
PSORX("MAIL/WINDOW" CLC+39*
PSORX("METHOD OF PICKUP" , CLC+42*
PSORX("NAME" CLC+40*
PSORX("PATIEN T STATUS" , CLC+43*
PSORX("PSOL" CLC+38*
PSORX("QFLG" CLC+41*
PSORXIEN UNPARK+1~*, UNPARK+2, UNPARK+3, UNPARK+4, UNPARK+7, UNPARK+10
PSORXIENS UNPARK+3~*
PSOSIEN PAR+4*, PAR+19, CLCX!
PSOSITE PAR+19*, CLC+22, CLC+48, CLC+54, CLC+57, CLC+68, CLCX!
PSOTRIC PAR+25~
PSOU KL+1!
PSOUPUSR UNPARK+4~, UNPARK+5*, UNPARK+11
PSOX CLC+43*, CLCX!
PSOZ1 PAR+2~, PAR+36*, PAR+37
PSOZZ CLC+29*, CLCX!
PSPAR KL+1!
PSXSYS PAR+36, CLCX!
PTHDAT PAR+1~, CLC+46*
PTHPIECE PAR+1~
QTY PAR~, CLC+14, UPDPAR+1~, UPDPAR+17*, UPDPAR+34, UPDPAR+36
R3 PAR+24*, PAR+31!
REMARKS PAR~, CLC+23, CLC+29
RFDAT KL!
RFILLDT UPDPAR+1~, UPDPAR+16*, UPDPAR+34, UPDPAR+36
RFL KL!
RFL1 KL!
RLL KL!
ROR1 PAR~, CLC+76*
RPAR0 PAR~, CLC+75*
RPHARM PARFAIL~, PARFAIL+1, UPDPAR~, UPDPAR+11, UPDPAR+13!, UPDPAR+32*, UPDPAR+34, UPDPAR+36
RPHONE PARFAIL~, PARFAIL+1, UPDPAR~, UPDPAR+12, UPDPAR+13!, UPDPAR+33*, UPDPAR+36
RPROV PAR~, CLC+73*
RREF0 PAR~, CLC+78*
RREFIEN PAR+2~, CLC+77*, CLC+78
RRXIEN PAR+1~, PAR+4*, PAR+8, PAR+10, PAR+11, PAR+16, PAR+17, PAR+18, PAR+21, PAR+27
, PAR+35, PAR+41, CLC+5, CLC+10, CLC+29, CLC+37, CLC+38, CLC+45, CLC+57, CLC+71
, CLC+72, CLC+73, CLC+74, CLC+75, CLC+76, CLC+77, CLC+78, KILL+1, ACT+1, ACT+2
, ACT+3
RSIG PAR~, CLC+74*
RSITE PARFAIL~, PARFAIL+1, UPDPAR~, UPDPAR+10, UPDPAR+13!, UPDPAR+31*, UPDPAR+34, UPDPAR+36
RX0 PAR~, PAR+24*, PAR+31!, CLC+72*, CLC+73
RX2 PAR~, PAR+24*, PAR+31!, CLC+72*
RX3 PAR~, CLC+72*
RXF CLC+32!, KL!, ACT+1*, ACT+3, EX!
RXN PAR+4*, CLC+32!, CLC+34, KILL, KL+1!, EX
RXNUM PAR~, PAR+4, CLC+48, CLC+54, CLC+58, CLC+59, CLC+60, CLC+61, CLC+67, CLC+68
, VALIDDRUG+2, VALIDDRUG+4, VALIDDRUG+6, VALIDDRUG+9, UPDPAR+1~, UPDPAR+5*, UPDPAR+34, UPDPAR+36, UPDPAR+37, VALDRGINT~
, VALDRGINT+12, VALDRGINT+18, VALDRGINT+24, VALDRGINT+25, UNPARK+1
RXP CLCX!, KL+1!
RXPR CLCX!
RXPR( CLC+3, CLC+29*
RXSTA PAR~, CLC+73*
SITE PAR~, PAR+8, PAR+11, PAR+17, PAR+18, PAR+27, PAR+35, PAR+41, CLC+71, KILL+1
ST KL!
ST0 KL!
STAT PAR+31*!
STATION PAR+1~
U PAR+21, CLC+12, CLC+37, CLC+61, CLC+73, PARFAIL+1, UPDPAR+34, UPDPAR+36
VALMSG PAR~, PAR+8, PAR+11, PAR+17, PAR+18, PAR+27, PAR+35, PAR+41, CLC+6*, CLC+71
, KILL+1
VALMSG(1 PAR+6*, PAR+12*, PAR+18*, PAR+26*, PAR+34*, PAR+38*, KILL+1*, VALIDDRUG+2*, VALIDDRUG+4*, VALIDDRUG+6*
, VALIDDRUG+9*
VALMSG(2 PAR+7*, PAR+13*, PAR+18*, PAR+39*, VALIDDRUG+6*, VALIDDRUG+9*
VALMSG(3 PAR+14*, PAR+40*
X PAR+33*, KL!, UNPARK+6~, UNPARK+13*
XTMPLOC PAR+1~, CLC+58*, CLC+66
Y KL!, UNPARK+6~
Z KL!
Z1 CLC+9*, CLC+32, CLC+34, KILL, KL!
Z2 CLC+2~*
ZD CLCX!
ZD( CLC+34*

Marked Items

Name Field # of Occurrence
$T(EN^PSOHDR CLC+32
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 |  Marked Items  | All