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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSOORROC

Package: Outpatient Pharmacy

Routine: PSOORROC


Information

PSOORROC ;BHAM-ISC/EJW,SAB - Remote Data Interoperability Order Checks ;05/28/08

Source Information

Source file <PSOORROC.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 2 C^%DTC  ^DIR  
Kernel 1 $$DT^XLFDT  
National Drug File 1 ($$DCLCODE,$$PROD0)^PSNAPIS  
Order Entry Results Reporting 1 ($$GET,$$HAVEHDR,GET,HAVEHDR)^ORRDI1  
Outpatient Pharmacy 1 FSIG^PSOORRD2  
Toolkit 1 GETIREF^XTID  

Entry Points

Name Comments DBIA/ICR reference
REMOTE(PSODFN,DREN) ;
; Input: DFN: PATIENT file (#2) IEN
; : DREN: DRUG file (#50) IEN of order being checked
PARSE ; PULL INFORMATION FROM ^XTMP
CHKLOCAL ; IF SAME RX NUMBER AND ISSUE DATE - LOCAL RX
VAPROD(PSOPROD) ; GET VA PRODUCT FILE NAME AND DRUG CLASS
DRGNAME ;
FILTER ; FOR SAME DRUG VUID FOR SAME SITE, KEEP 1 ENTRY - CHECK BY ACTIVE STATUS FIRST THEN BY GREATEST EXPIRATION DATE
CHKEXP ;
SETRDI ;
GETPROD ;
RDUP ;display Remote orders - duplicate drug

External References

Name Field # of Occurrence
C^%DTC PARSE+21, PARSE+27
^DIR RDUP+12
$$GET^ORRDI1 REMOTE+9
$$HAVEHDR^ORRDI1 REMOTE+4
GET^ORRDI1 REMOTE+9
HAVEHDR^ORRDI1 REMOTE+3
$$DCLCODE^PSNAPIS VAPROD+1
$$PROD0^PSNAPIS VAPROD+2
FSIG^PSOORRD2 RDUP+6
$$DT^XLFDT REMOTE+7
GETIREF^XTID GETPROD+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?20,FSIG(I),!
  • Line Location: RDUP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: RDUP+12
Function Call: WRITE
  • Prompt: !
  • Line Location: RDUP+12
Routine Call
  • DIR
  • Line Location:
    • RDUP+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG - [#50] DRGNAME+2, DRGNAME+4
^PSRX - [#52] CHKLOCAL+5
^PSRX("B" CHKLOCAL+2, CHKLOCAL+4
^TMP($J REMOTE+12!, REMOTE+14, REMOTE+16, REMOTE+32*, REMOTE+33*, REMOTE+34*, PARSE+31*, PARSE+32*, FILTER+3, FILTER+4
, FILTER+8!, FILTER+9!, CHKEXP+2!, CHKEXP+7!, RDUP+3
^XTMP("ORRDI" REMOTE+5, REMOTE+11, PARSE+2, PARSE+3, PARSE+5, PARSE+6, PARSE+7, PARSE+9, PARSE+10, PARSE+12
, PARSE+13, PARSE+23, PARSE+28, PARSE+29, PARSE+30

Label References

Name Line Occurrences
CHKEXP FILTER+7, FILTER+10
CHKLOCAL PARSE+22
DRGNAME REMOTE+15
FILTER REMOTE+13
GETPROD REMOTE+31
PARSE REMOTE+13
SETRDI FILTER+8, FILTER+11, CHKEXP+7
VAPROD DRGNAME+6, GETPROD+8, GETPROD+9

Naked Globals

Name Field # of Occurrence
^( REMOTE+16, PARSE+30
^("ND" DRGNAME+4
^(1 RDUP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BADEXP PARSE+1~, PARSE+14*, PARSE+17*
>> DD REMOTE+32*, REMOTE+33, REMOTE+34
DIC GETPROD+5~
DIR RDUP+12!, RDUP+13!
DIR("?" RDUP+12*
DIR("A" RDUP+12*
DIR(0 RDUP+12*
DREN REMOTE~, DRGNAME+2
DRNM REMOTE+6~, REMOTE+30*, REMOTE+32, VAPROD+2*, DRGNAME+6, GETPROD+2*, GETPROD+7
DT REMOTE+7*, PARSE+16, PARSE+17, PARSE+19, PARSE+21, PARSE+25, PARSE+27, CHKEXP+3, CHKEXP+5
FSIG RDUP+1~, RDUP+6
FSIG( RDUP+7
>> I RDUP+7*
IT REMOTE+6~
LOCAL PARSE+1~, PARSE+22*, CHKLOCAL+7*
NDF REMOTE+6~
NEWDC PARSE+1~, PARSE+26*, PARSE+27
NEWEXP PARSE+1~, PARSE+20*, PARSE+21
NEWISS PARSE+1~, PARSE+17*
OLDEXP FILTER+1~, CHKEXP+2*, CHKEXP+5, CHKEXP+6
OLDEXP2 FILTER+1~, CHKEXP+2, CHKEXP+6*
OLDRDI FILTER+1~, FILTER+8*, CHKEXP+7*
OLDSTA FILTER+1~, FILTER+7*, FILTER+9*
PSO30 PARSE+1~, PARSE+18*, PARSE+19*, PARSE+21*, PARSE+24*, PARSE+25*, PARSE+27*
PSOCLASS REMOTE+6~, VAPROD+1*, GETPROD+2*, GETPROD+7
PSOD0 RDUP+1~, RDUP+3*
PSOD1 RDUP+1~, RDUP+3*, RDUP+5, RDUP+8, RDUP+9, RDUP+10, RDUP+11
PSODC REMOTE+6~
PSODFN REMOTE~, REMOTE+9, REMOTE+11, PARSE+2, PARSE+3, PARSE+5, PARSE+6, PARSE+7, PARSE+9, PARSE+10
, PARSE+12, PARSE+13, PARSE+23, PARSE+28, PARSE+29, PARSE+30
>> PSODRUG("IEN" REMOTE+32, DRGNAME+3*
>> PSODRUG("NAME" REMOTE+30, REMOTE+32, DRGNAME+6*
>> PSODRUG("NDF" DRGNAME+4*, DRGNAME+5, DRGNAME+6
>> PSODRUG("VA C LASS" , DRGNAME+3*
PSOFILE REMOTE+6~, GETPROD+1*, GETPROD+6, GETPROD+7, GETPROD+8, GETPROD+9
PSOICT REMOTE+6~
PSOISS CHKLOCAL+1~, CHKLOCAL+5*, CHKLOCAL+6*, CHKLOCAL+7
PSOLF RDUP+1~, RDUP+3*, RDUP+10
>> PSOPHI REMOTE+32
PSOPR GETPROD+3~, GETPROD+7*, GETPROD+8, GETPROD+9
PSOPRE PARSE+1~, PARSE+16*, PARSE+17, PARSE+19*, PARSE+20, PARSE+25*, PARSE+26, CHKEXP+1~, CHKEXP+3*, CHKEXP+4
, CHKEXP+5*, CHKEXP+6
PSOPROD REMOTE+6~, VAPROD~, VAPROD+1, VAPROD+2, DRGNAME+6*, GETPROD+2*, GETPROD+8*, GETPROD+9*
PSOPRODA REMOTE+6~, GETPROD+4!, GETPROD+6
PSOPRODA( GETPROD+7, GETPROD+8, GETPROD+9
PSORDI REMOTE+6~, REMOTE+8*, REMOTE+9*, REMOTE+10, REMOTE+16*, REMOTE+34, PARSE+1~, PARSE+2*, PARSE+3, PARSE+5
, PARSE+6, PARSE+7, PARSE+9, PARSE+10, PARSE+12, PARSE+13, PARSE+23, PARSE+28, PARSE+29, PARSE+30
, PARSE+31, PARSE+32, FILTER+1~, FILTER+2*, FILTER+3*, FILTER+4, FILTER+9, CHKEXP+2, SETRDI+1, RDUP+1~
, RDUP+3*
PSOREMX RDUP+1~, RDUP+3*, RDUP+5
PSORX CHKLOCAL+3~, CHKLOCAL+4*, CHKLOCAL+5
PSOSIG REMOTE+6~, PARSE+30*, PARSE+32*
PSOSIG( PARSE+30*, PARSE+32
PSOT RDUP+2*, RDUP+13!
PSOULN RDUP+1~, RDUP+2*, RDUP+4
PSOY DRGNAME+1~, DRGNAME+2*, DRGNAME+3, DRGNAME+4
PSOY(0 DRGNAME+2*, DRGNAME+3
RDI FILTER+1~
RDI( FILTER+5, SETRDI+1*
RDIDAYS REMOTE+6~, REMOTE+24*, REMOTE+33, PARSE+10*, PARSE+11*, PARSE+27, PARSE+31
RDIDI REMOTE+6~
RDIDNAM REMOTE+6~, REMOTE+20*, REMOTE+33, PARSE+6*, PARSE+31
RDIEXP REMOTE+6~, REMOTE+27*, REMOTE+33, PARSE+12*, PARSE+14, PARSE+17*, PARSE+19, PARSE+20, PARSE+31, FILTER+1~
, FILTER+4*, CHKEXP+3, CHKEXP+4, SETRDI+1
RDIEXP2 FILTER+1~, CHKEXP+2, CHKEXP+4*
RDIFILL REMOTE+6~, REMOTE+23*, REMOTE+33, PARSE+23*, PARSE+25, PARSE+26, PARSE+31
RDIINST REMOTE+6~, REMOTE+17*, REMOTE+32, PARSE+5*, PARSE+31, FILTER+4*, FILTER+5, SETRDI+1, RDUP+1~, RDUP+3*
, RDUP+5
RDIISS REMOTE+6~, REMOTE+29*, REMOTE+33, PARSE+13*, PARSE+15, PARSE+16, PARSE+17, PARSE+31, CHKLOCAL+7
RDIPHYS REMOTE+6~, REMOTE+28*, REMOTE+33, PARSE+29*, PARSE+31
RDIQTY REMOTE+6~, REMOTE+25*, REMOTE+33, PARSE+10*, PARSE+31
RDIREF REMOTE+6~, REMOTE+26*, REMOTE+33, PARSE+28*, PARSE+31
RDIRX REMOTE+6~, REMOTE+22*, REMOTE+32, PARSE+9*, PARSE+22, PARSE+31, CHKLOCAL+2, CHKLOCAL+4
RDISIG REMOTE+6~
RDISTA REMOTE+6~, REMOTE+21*, REMOTE+33, PARSE+3*, PARSE+4, PARSE+18, PARSE+24, PARSE+31, FILTER+1~, FILTER+4*
, FILTER+6, SETRDI+1
RDITMP REMOTE+6~, REMOTE+16*, REMOTE+17, REMOTE+18, REMOTE+20, REMOTE+21, REMOTE+22, REMOTE+23, REMOTE+24, REMOTE+25
, REMOTE+26, REMOTE+27, REMOTE+28, REMOTE+29
RDIVUID REMOTE+6~, REMOTE+18*, REMOTE+19, PARSE+7*, PARSE+8, PARSE+31, FILTER+4*, FILTER+5, SETRDI+1, GETPROD+6
X PARSE+21, PARSE+27, RDUP+13!
>> X1 PARSE+21*, PARSE+27*
>> X2 PARSE+21*, PARSE+27*
XX FILTER+1~, FILTER+4*
Y RDUP+13!
ZZ FILTER+1~, FILTER+5*, FILTER+7, FILTER+8, FILTER+9, CHKEXP+2, CHKEXP+7

Marked Items

Name Field # of Occurrence
$T(GET^ORRDI1 REMOTE+9
$T(HAVEHDR^ORRDI1 REMOTE+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All