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

Package: Outpatient Pharmacy

Routine: PSOORRDI


Information

PSOORRDI ;BHAM-ISC/EJW - Remote Data Interoperability Order Checks ;04/25/05

Source Information

Source file <PSOORRDI.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Outpatient Pharmacy 3 HD^PSODDPR2  REMOTE^PSODDPR5  REMOTE^PSORX1  
Kernel 1 $$DT^XLFDT  
National Drug File 1 ($$DCLCODE,$$PROD0)^PSNAPIS  
Order Entry Results Reporting 1 ($$GET,$$HAVEHDR,GET,HAVEHDR)^ORRDI1  
Toolkit 1 GETIREF^XTID  
VA FileMan 1 C^%DTC  

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

Package Total Caller Graph
Outpatient Pharmacy 5 PSOCPDUP  PSOCPPRE  PSODDPR4  PSOORDRG  PSOVER1  

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 ;

External References

Name Field # of Occurrence
C^%DTC PARSE+22, PARSE+28
$$GET^ORRDI1 REMOTE+12
$$HAVEHDR^ORRDI1 REMOTE+4
GET^ORRDI1 REMOTE+12
HAVEHDR^ORRDI1 REMOTE+3
$$DCLCODE^PSNAPIS VAPROD+1
$$PROD0^PSNAPIS VAPROD+2
HD^PSODDPR2 REMOTE+7, REMOTE+8
REMOTE^PSODDPR5 REMOTE+34
REMOTE^PSORX1 REMOTE+6
$$DT^XLFDT REMOTE+10
GETIREF^XTID GETPROD+6

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+15!, REMOTE+17, REMOTE+19, REMOTE+33!, PARSE+32*, PARSE+33*, PARSE+35*, PARSE+36*, PARSE+40*, PARSE+41*
, FILTER+3, FILTER+4, FILTER+8!, FILTER+9!, CHKEXP+2!, CHKEXP+7!
^XTMP("ORRDI" REMOTE+5, REMOTE+8, REMOTE+14, PARSE+3, PARSE+4, PARSE+6, PARSE+7, PARSE+8, PARSE+10, PARSE+11
, PARSE+13, PARSE+14, PARSE+24, PARSE+30, PARSE+31, PARSE+34, PARSE+39

Label References

Name Line Occurrences
CHKEXP FILTER+7, FILTER+10
CHKLOCAL PARSE+23
FILTER REMOTE+16
GETPROD PARSE+37
PARSE REMOTE+16
SETRDI FILTER+8, FILTER+11, CHKEXP+7
VAPROD DRGNAME+6, GETPROD+8, GETPROD+9

Naked Globals

Name Field # of Occurrence
^( REMOTE+19, PARSE+34, PARSE+39
^("ND" DRGNAME+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BADEXP PARSE+1~, PARSE+15*, PARSE+18*
>> DD REMOTE+11*, PARSE+32*, PARSE+33, PARSE+35
DIC GETPROD+5~
DREN REMOTE~, DRGNAME+2
DRNM REMOTE+9~, VAPROD+2*, DRGNAME+6, GETPROD+2*, GETPROD+7
DT REMOTE+10*, PARSE+17, PARSE+18, PARSE+20, PARSE+22, PARSE+26, PARSE+28, CHKEXP+3, CHKEXP+5
IOSL REMOTE+7, REMOTE+8
IT REMOTE+9~
>> LIST REMOTE+17, REMOTE+19, PARSE+40, PARSE+41
LOCAL PARSE+1~, PARSE+23*, CHKLOCAL+7*
NDF REMOTE+9~
NEWDC PARSE+1~, PARSE+27*, PARSE+28
NEWEXP PARSE+1~, PARSE+21*, PARSE+22
NEWISS PARSE+1~, PARSE+18*
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+19*, PARSE+20*, PARSE+22*, PARSE+25*, PARSE+26*, PARSE+28*
PSOCLASS REMOTE+9~, PARSE+38, VAPROD+1*, GETPROD+2*, GETPROD+7
PSODC REMOTE+9~
PSODFN REMOTE~, REMOTE+8, REMOTE+12, REMOTE+14, PARSE+3, PARSE+4, PARSE+6, PARSE+7, PARSE+8, PARSE+10
, PARSE+11, PARSE+13, PARSE+14, PARSE+24, PARSE+30, PARSE+31, PARSE+34, PARSE+39
PSODRUG DRGNAME+1~
PSODRUG("IEN" PARSE+32, DRGNAME+3*
PSODRUG("NAME" PARSE+32, DRGNAME+6*
PSODRUG("NDF" DRGNAME+4*, DRGNAME+5, DRGNAME+6
PSODRUG("VA C LASS" , DRGNAME+3*
PSOFILE REMOTE+9~, GETPROD+1*, GETPROD+6, GETPROD+7, GETPROD+8, GETPROD+9
PSOICT REMOTE+9~
PSOISS CHKLOCAL+1~, CHKLOCAL+5*, CHKLOCAL+6*, CHKLOCAL+7
>> PSOPHI PARSE+32
PSOPR GETPROD+3~, GETPROD+7*, GETPROD+8, GETPROD+9
PSOPRE PARSE+1~, PARSE+17*, PARSE+18, PARSE+20*, PARSE+21, PARSE+26*, PARSE+27, CHKEXP+1~, CHKEXP+3*, CHKEXP+4
, CHKEXP+5*, CHKEXP+6
PSOPROD REMOTE+9~, VAPROD~, VAPROD+1, VAPROD+2, DRGNAME+6*, GETPROD+2*, GETPROD+8*, GETPROD+9*
PSOPRODA REMOTE+9~, GETPROD+4!, GETPROD+6
PSOPRODA( GETPROD+7, GETPROD+8, GETPROD+9
PSORDI REMOTE+9~, REMOTE+11*, REMOTE+12*, REMOTE+13, REMOTE+19*, PARSE+1~, PARSE+2*, PARSE+3*, PARSE+4, PARSE+6
, PARSE+7, PARSE+8, PARSE+10, PARSE+11, PARSE+13, PARSE+14, PARSE+24, PARSE+30, PARSE+31, PARSE+34
, PARSE+36, PARSE+39, PARSE+40, PARSE+41, FILTER+1~, FILTER+2*, FILTER+3*, FILTER+4, FILTER+9, CHKEXP+2
, SETRDI+1
PSORX CHKLOCAL+3~, CHKLOCAL+4*, CHKLOCAL+5
PSOSIG REMOTE+9~, PARSE+34*, PARSE+35*, PARSE+39*, PARSE+41*
PSOSIG( PARSE+34*, PARSE+35, PARSE+39*, PARSE+41
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+9~, REMOTE+27*, PARSE+11*, PARSE+12*, PARSE+28, PARSE+33, PARSE+40
RDIDI REMOTE+9~
RDIDNAM REMOTE+9~, REMOTE+23*, PARSE+7*, PARSE+32, PARSE+33, PARSE+40
RDIEXP REMOTE+9~, REMOTE+30*, PARSE+13*, PARSE+15, PARSE+18*, PARSE+20, PARSE+21, PARSE+33, PARSE+40, FILTER+1~
, FILTER+4*, CHKEXP+3, CHKEXP+4, SETRDI+1
RDIEXP2 FILTER+1~, CHKEXP+2, CHKEXP+4*
RDIFILL REMOTE+9~, REMOTE+26*, PARSE+24*, PARSE+26, PARSE+27, PARSE+33, PARSE+40
RDIINST REMOTE+9~, REMOTE+20*, PARSE+6*, PARSE+32, PARSE+40, FILTER+4*, FILTER+5, SETRDI+1
RDIISS REMOTE+9~, REMOTE+32*, PARSE+14*, PARSE+16, PARSE+17, PARSE+18, PARSE+33, PARSE+40, CHKLOCAL+7
RDIPHYS REMOTE+9~, REMOTE+31*, PARSE+31*, PARSE+33, PARSE+40
RDIQTY REMOTE+9~, REMOTE+28*, PARSE+11*, PARSE+33, PARSE+40
RDIREF REMOTE+9~, REMOTE+29*, PARSE+30*, PARSE+33, PARSE+40
RDIRX REMOTE+9~, REMOTE+25*, PARSE+10*, PARSE+23, PARSE+32, PARSE+40, CHKLOCAL+2, CHKLOCAL+4
RDISIG REMOTE+9~
RDISTA REMOTE+9~, REMOTE+24*, PARSE+4*, PARSE+5, PARSE+19, PARSE+25, PARSE+29*, PARSE+33, PARSE+40, FILTER+1~
, FILTER+4*, FILTER+6, SETRDI+1
RDITMP REMOTE+9~, REMOTE+19*, REMOTE+20, REMOTE+21, REMOTE+23, REMOTE+24, REMOTE+25, REMOTE+26, REMOTE+27, REMOTE+28
, REMOTE+29, REMOTE+30, REMOTE+31, REMOTE+32
RDIVUID REMOTE+9~, REMOTE+21*, REMOTE+22, PARSE+8*, PARSE+9, PARSE+40, FILTER+4*, FILTER+5, SETRDI+1, GETPROD+6
>> X PARSE+22, PARSE+28
>> X1 PARSE+22*, PARSE+28*
>> X2 PARSE+22*, PARSE+28*
XX FILTER+1~, FILTER+4*
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+12
$T(HAVEHDR^ORRDI1 REMOTE+3
$T(REMOTE^PSORX1 REMOTE+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All