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

Package: Virtual Patient Record

Routine: VPRSDAP


Information

VPRSDAP ;SLC/MKB -- SDA Pharmacy utilities ;10/25/18 15:29

Source Information

Source file <VPRSDAP.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Pharmacy Data Management 6 NDF^PSS50  ZERO^PSS50P7  ZERO^PSS51P1  ZERO^PSS52P6  ZERO^PSS52P7  ($$LOC,$$PLACER,LOC)^PSSUTLA1  
Virtual Patient Record 4 $$VUID^VPRD  POST^VPRHS  ($$CODE,$$WP)^VPRSDA  NDF^VPRSDAP  
Outpatient Pharmacy 3 PEN^PSO5241  RX^PSO52API  OEL^PSOORRL  
VA FileMan 2 $$EXTERNAL^DILFD  $$GET1^DIQ  
CMOP 1 ^PSXOPUTL  
Kernel 1 ($$TRIM,$$UP)^XLFSTR  
National Drug File 1 NAME^PSN50P41  
Order Entry Results Reporting 1 $$VALUE^ORX8  

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
Virtual Patient Record 2 VPR PSB EVENTS  VPRSDAP  

Entry Points

Name Comments DBIA/ICR reference
PS1(IEN) ; -- set up single medication
; Returns ORIFN, ORPK, PSTYPE & VPRPS=^TMP
SCHEDULE() ; -- return schedule name ^ type ^ admin times ^ #min
; Expects ORIFN, IEN from VPR DOSAGE STEP
CODE(MED,FILE) ; -- convert MED=ien^name to national code
; Reset MED = code^name^system for RxNorm or VUID
LOC(DFN,ID) ; -- return Hosp Location for order
IMO(X,PS) ; -- return 1, 0, or null if IMO location X
PSRX(RX) ; -- get RX info for extension properties
ROUTING(RX) ; -- get the Routing value
GETFILLS ; -- build DLIST(#)=#^data of fills, where data is
; date ^ daysSupply ^ qty ^ released ^ routing ^ remarks ^ returned
SUPPLY(IEN) ; -- return 1 or 0, if supply item
CMOP(RX) ; -- return CMOP indicator for RX
SIG(IEN) ; -- return Sig, append VPRPI if needed
DOSEFORM(IEN) ; -- return dose form
INGRD(NAME) ; -- reset NAME to ingredient IEN
; Also return VPRCODE=code^name^system
NDF(DRUG) ; -- return VA Drug Product info for DRUG (#50 ien)
; also returns DATA = code^name^system for RXN/VUID
DOSES(IEN) ; -- build DLIST(n)=instance of Dose Instructions
BCMA(IEN,MAX) ; -- get list of most recent administrations for order
PSB ; -- VPR PSB EVENTS protocol listener (BCMA)
ADMSTS(DA) ; -- return the code^name of administration status
IV() ; -- Return 1 or 0, if order is for IV/infusion
IVMEDS(IEN) ; -- build DLIST(#)=ien^amount^type[^bottle] for components
IV1(X) ; -- get VA Drug Product info for IV component X (from DLIST)
; Returns VPRPSIV = ien^name^amt^type^bottle#
IVRATE(IEN) ; -- return IV Rate, or DDEOUT if invalid
; also VPRATE = numeric amount, if ## ml/hr
IVTYPE(IEN) ; -- return IV Type, or DDEOUT if invalid

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD ADMSTS+6
$$GET1^DIQ CMOP+2, IVTYPE+6
$$VALUE^ORX8 SCHEDULE+4, IVRATE+4
NAME^PSN50P41 INGRD+5
PEN^PSO5241 PSRX+4
RX^PSO52API PSRX+6, PSRX+9
OEL^PSOORRL PS1+8
NDF^PSS50 NDF+3
ZERO^PSS50P7 DOSEFORM+3
ZERO^PSS51P1 SCHEDULE+9
ZERO^PSS52P6 IV1+6
ZERO^PSS52P7 IV1+5
$$LOC^PSSUTLA1 LOC+4
$$PLACER^PSSUTLA1 PSB+5
LOC^PSSUTLA1 LOC+3
^PSXOPUTL CMOP+4
$$VUID^VPRD CODE+4
POST^VPRHS PSB+6
$$CODE^VPRSDA CODE+3
$$WP^VPRSDA SIG+1
NDF^VPRSDAP IV1+9
$$TRIM^XLFSTR SIG+4
$$UP^XLFSTR SIG+3, SIG+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
^PSB(53.79 - [#53.79] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" CMOP+3
^DIC(42 - [#42] LOC+6
^OR(100 - [#100] PS1+3, DOSES+2, DOSES+3, BCMA+3, BCMA+4, IV+2, IVTYPE+3
^ORD(100.98 - [#100.98] IV+4
^PSB(53.79 - [#53.79] BCMA+5, BCMA+6, PSB+3, ADMSTS+3
^SC - [#44] IMO+3
^TMP("PS" PS1+9
^TMP("VPRX" SCHEDULE+8, SCHEDULE+10*, SCHEDULE+12, SUPPLY+1, DOSEFORM+2, DOSEFORM+4*, DOSEFORM+6, NDF+2, NDF+4*, NDF+6
, NDF+7, IV1+12
^TMP($J SCHEDULE+10, SCHEDULE+11!, PSRX+1, PSRX+2, PSRX+10!, DOSEFORM+4, DOSEFORM+5!, INGRD+5, INGRD+6!, NDF+4
, NDF+5!, IV1+7, IV1+13!

Label References

Name Line Occurrences
$$IV PS1+7
CODE INGRD+9, NDF+8

Naked Globals

Name Field # of Occurrence
^( SCHEDULE+12, PSB+3, ADMSTS+3
^(0 PS1+3
^(1 IV1+7
^(2 SCHEDULE+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM SCHEDULE+2~, SCHEDULE+6*, SCHEDULE+7, SCHEDULE+12
ADT BCMA+1~, BCMA+2*, BCMA+5*, BCMA+6
CLS PS1+2~, PS1+6*, PS1+8
CNT BCMA+1~, BCMA+2*, BCMA+5, BCMA+8*, IVMEDS+1~, IVMEDS+2*, IVMEDS+6*, IVMEDS+10*
DA CMOP+4~*, DOSES+1~, DOSES+2*, DOSES+3, BCMA+1~, BCMA+6*, BCMA+8, ADMSTS~, ADMSTS+1*, ADMSTS+3
>> DATA NDF+7*, NDF+8, NDF+9*, NDF+10*, NDF+11*, IV1+11*
>> DDEOUT INGRD+7*, IVRATE+2*, IVRATE+6*, IVTYPE+1*
DFN PS1+3*, PS1+8, LOC~, LOC+2*, LOC+4, PSRX+1, PSRX+2, PSRX+4, PSRX+6, PSRX+9
, PSRX+10, BCMA+3*, BCMA+5, BCMA+6, PSB+1~, PSB+3*, PSB+4, PSB+5, PSB+6, IVTYPE+5
>> DLIST( GETFILLS+7*, GETFILLS+8*, GETFILLS+9*, DOSES+4*, BCMA+8*, IVMEDS+6*, IVMEDS+10*
DRUG NDF~, NDF+2, NDF+3, NDF+4, NDF+5, NDF+6, NDF+7, NDF+11, IV1+2~, IV1+7*
, IV1+9, IV1+10
FILE CODE~, CODE+2*, CODE+3, CODE+4
FLD IVTYPE+2~, IVTYPE+4*, IVTYPE+5*, IVTYPE+6
FN LOC+1~, LOC+4*, LOC+5, LOC+6, IVTYPE+2~, IVTYPE+4*, IVTYPE+5*, IVTYPE+6
FREQ SCHEDULE+2~
GBL IVMEDS+1~, IVMEDS+3*, IVMEDS+4, IVMEDS+5, IVMEDS+7, IVMEDS+8
I SCHEDULE+2~, SCHEDULE+5*, SCHEDULE+6*, SCHEDULE+12*, GETFILLS+2~, GETFILLS+8*, GETFILLS+9*, DOSES+1~, DOSES+3*, DOSES+4
, IVMEDS+1~, IVMEDS+4*, IVMEDS+5, IVMEDS+7*, IVMEDS+8
ID LOC~, LOC+2*, LOC+4
IEN PS1~, PS1+2, SCHEDULE+4, SUPPLY~, SIG~, SIG+1, DOSEFORM~, INGRD+2~*, INGRD+5*, INGRD+7
, INGRD+8, DOSES~, DOSES+2, DOSES+3, BCMA~, BCMA+2*, BCMA+3, BCMA+4, PSB+1~, PSB+2*
PSB+3, IVMEDS~, IV1+2~, IV1+4*, IV1+5, IV1+6, IV1+7, IV1+8, IV1+11, IVRATE~
, IVRATE+3*, IVRATE+4, IVTYPE~, IVTYPE+3*
IENS IVTYPE+2~, IVTYPE+4*, IVTYPE+5*, IVTYPE+6
MAX BCMA~, BCMA+2*, BCMA+5
MED CODE~, CODE+2*, CODE+3, CODE+4, CODE+5*
N GETFILLS+2~*, GETFILLS+7*, GETFILLS+8*, GETFILLS+9*
NAME INGRD~, INGRD+3*, INGRD+4, INGRD+5, INGRD+8*, IV1+2~, IV1+7*, IV1+8, IV1+11
ND IVMEDS+1~, IVMEDS+5*, IVMEDS+6, IVMEDS+8*, IVMEDS+9
ORIFN PS1+2*, PS1+3, SCHEDULE+4, PSB+1~, PSB+5*, PSB+6, IV+2
ORPK PS1+3*, PS1+5*, PS1+8, ROUTING+2, ROUTING+3, BCMA+1~, BCMA+4*, BCMA+5, BCMA+6, PSB+1~
PSB+3*, PSB+4, PSB+5, IV+1, IVMEDS+2*, IVMEDS+3, IVMEDS+4, IVMEDS+5, IVMEDS+7, IVMEDS+8
, IVTYPE+2~, IVTYPE+3*, IVTYPE+4, IVTYPE+5
PI SIG+3~, SIG+4*, SIG+5
PS IMO~, IMO+2
>> PSB0 ADMSTS+2
>> PSBIEN PSB+2
>> PSBIEN(1 PSB+2
>> PSOI SUPPLY+1, DOSEFORM+2, DOSEFORM+3, DOSEFORM+4, DOSEFORM+5, DOSEFORM+6
>> PSTYPE PS1+7*, SCHEDULE+4, PSRX+3, IVRATE+2, IVTYPE+1
PSXZ CMOP+4~
PSXZ( CMOP+5
PSXZ("L" CMOP+5
RX PSRX~, PSRX+1*, PSRX+2, PSRX+4, PSRX+5, PSRX+6, PSRX+9, PSRX+10, ROUTING~, ROUTING+1*
, CMOP~, CMOP+1*, CMOP+2, CMOP+4
RX0 GETFILLS+3~*, GETFILLS+5
RXN GETFILLS+3~*, GETFILLS+4, GETFILLS+5
SCH SCHEDULE+2~, SCHEDULE+7*, SCHEDULE+8, SCHEDULE+9
SIG SIG+3~*, SIG+4, SIG+5
STS BCMA+1~
TYPE IV1+2~, IV1+4*, IV1+5, IV1+6, IV1+11
U PS1+3, SCHEDULE+5, SCHEDULE+7, SCHEDULE+12, CODE+4, LOC+4, IMO+3, ROUTING+2, ROUTING+3, GETFILLS+4
GETFILLS+5, GETFILLS+6, GETFILLS+8, GETFILLS+9, INGRD+8, NDF+9, NDF+10, NDF+11, DOSES+3, BCMA+3
PSB+3, ADMSTS+2, ADMSTS+4, ADMSTS+7, IV+3, IV+4, IVMEDS+6, IVMEDS+8, IVMEDS+9, IV1+4
, IV1+8, IV1+11
VPRATE PS1+7!, IVRATE+5*
>> VPRCODE INGRD+3*, INGRD+8*, INGRD+9
>> VPRPI SIG+2, SIG+4
>> VPRPS PS1+9*, SCHEDULE+5, SCHEDULE+6, ROUTING+2, GETFILLS+3, GETFILLS+8, GETFILLS+9
>> VPRPSIV IV1+3*, IV1+4, IV1+8*
>> VPRVAP NDF+6*, NDF+9, NDF+11, IV1+12*
>> VPRX52 PSRX+1*, PSRX+10, GETFILLS+6
>> VPRX52P PSRX+2*, ROUTING+3
X PS1+2~, PS1+5*, PS1+6, PS1+7, LOC+1~, LOC+4*, LOC+5, LOC+6, IMO~, IMO+3
, ROUTING+1~*, ROUTING+2*, ROUTING+3*, ROUTING+4, GETFILLS+5~*, GETFILLS+6*, GETFILLS+7, CMOP+3~*!, CMOP+5*, ADMSTS+1~
, ADMSTS+2*, ADMSTS+3, ADMSTS+4*, ADMSTS+5, ADMSTS+6*, ADMSTS+7, IV+2~, IV+4*, IV+5, IV+6
, IV1~, IV1+3, IV1+9*, IVRATE+3~, IVRATE+4*, IVRATE+5, IVTYPE+2~
X0 IV+2~*, IV+3, IV+4
Y SCHEDULE+2~*, SCHEDULE+4*, SCHEDULE+5*, SCHEDULE+7*, SCHEDULE+12*, SCHEDULE+13, CODE+2~, CODE+3*, CODE+4*, CODE+5
, LOC+1~, IMO+1~*, IMO+3*, IMO+4, ROUTING+1~*, ROUTING+4*, ROUTING+5, SUPPLY+1~*, SUPPLY+2, CMOP+1~*
, CMOP+2*, CMOP+5*, CMOP+6, SIG+1~*, SIG+2, SIG+3, SIG+5*, SIG+6, DOSEFORM+1~*, DOSEFORM+6*
, DOSEFORM+7, ADMSTS+1~, ADMSTS+2*, ADMSTS+5*, ADMSTS+6, ADMSTS+7*, ADMSTS+8, IVMEDS+1~, IVMEDS+8*, IVMEDS+9*
, IVMEDS+10, IVTYPE+2~, IVTYPE+3*, IVTYPE+6*, IVTYPE+7
Z ADMSTS+1~, ADMSTS+3*
Z0 ADMSTS+1~, ADMSTS+3*, ADMSTS+4

Marked Items

Name Field # of Occurrence
$T(LOC^PSSUTLA1 LOC+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All