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

Package: Pharmacy Benefits Management

Routine: PSUV1


Information

PSUV1 ;BIR/CFL - Extract Data of PBM IV Module ; 6/10/15 3:28pm

Source Information

Source file <PSUV1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Pharmacy Benefits Management 4 ($$UPPER,$$VAL,$$VALI,GETS,MOVEI)^PSUTL  $$TESTPAT^PSUTL1  (GETRATE,SETDRUG,SETREC,SETSUM)^PSUV2  GETDIV^PSUV3  
Kernel 2 $$VERSION^XPDUTL  $$GET^XUA4A72  
Master Patient Index VistA 1 $$GETICN^MPIF001  
National Drug File 1 ($$FORMI,$$FORMR)^PSNAPIS  
Registration 1 PID^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Benefits Management 2 PSUUD2  PSUV0  

Entry Points

Name Comments DBIA/ICR reference
IVDATA ;Loop through IV data
ADDTIV ;Loop through each additive
ICN ;Find patient ICN
SETTOT ;Set totals
; Total number of IV's ordered
SOLUTN ;Loop through each solution
OCCAMT ;Calculate the number of dispensing occurrences
SETVAR ;Setup common variables for IV Additives and Solutions
CALC ;Do calculations for additives and solutions

External References

Name Field # of Occurrence
$$GETICN^MPIF001 ICN+6
$$FORMI^PSNAPIS SETVAR+7
$$FORMR^PSNAPIS SETVAR+8
$$UPPER^PSUTL IVDATA+47
$$VAL^PSUTL IVDATA+46, ADDTIV+9
$$VALI^PSUTL IVDATA+17, IVDATA+29, IVDATA+30, IVDATA+44, IVDATA+45
GETS^PSUTL IVDATA+19, IVDATA+37, OCCAMT+4, ADDTIV+4, ADDTIV+6, ADDTIV+11, SOLUTN+3, SOLUTN+5, SOLUTN+10
MOVEI^PSUTL IVDATA+26, IVDATA+38, OCCAMT+5, ADDTIV+5, ADDTIV+7, ADDTIV+12, SOLUTN+4, SOLUTN+6, SOLUTN+11
$$TESTPAT^PSUTL1 IVDATA+16
GETRATE^PSUV2 IVDATA+53
SETDRUG^PSUV2 ADDTIV+44, SOLUTN+43
SETREC^PSUV2 ADDTIV+43, SOLUTN+42
SETSUM^PSUV2 IVDATA+58
GETDIV^PSUV3 SETTOT+7
PID^VADPT IVDATA+33
$$VERSION^XPDUTL SETVAR+6
$$GET^XUA4A72 IVDATA+49

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT("SSN" ICN+5
^PS(55 - [#55] IVDATA+6, IVDATA+8, IVDATA+10, OCCAMT+2, ADDTIV+2, SOLUTN+1
^XTMP( IVDATA+58, OCCAMT+13*, OCCAMT+15*, SETTOT+2*, SETTOT+4, SETTOT+5*, SETTOT+6*, SETTOT+12*, CALC+1*, CALC+6*
, CALC+8*, CALC+10*, CALC+12*, CALC+14*, CALC+16*
^XTMP("PSU_" IVDATA+11*, IVDATA+25*, IVDATA+41*, ICN+8*, ICN+9*, SETTOT+8*, SETTOT+9*

Label References

Name Line Occurrences
ADDTIV IVDATA+56
CALC ADDTIV+42, SOLUTN+41
ICN IVDATA+35
OCCAMT IVDATA+51
SETTOT IVDATA+54
SETVAR ADDTIV+22, SOLUTN+21
SOLUTN IVDATA+57

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADTIV ADDTIV+1*, ADDTIV+2*
>> COUNT IVDATA+12*, CALC+3*, CALC+4
>> DFN IVDATA+33*
GENRIC SOLUTN+2!
GENRIC( SOLUTN+7
GENRIC(1 SOLUTN+9
GENRIC(7 SOLUTN+39
>> OCC OCCAMT+1*, OCCAMT+2*
>> PSECT( IVDATA+48
>> PSIVNFI SETVAR+5*, SETVAR+7*
>> PSIVNFR SETVAR+5*, SETVAR+8*
PSUADD ADDTIV+3!
PSUADD( ADDTIV+13
PSUADD(2 ADDTIV+14
PSUADD(20 ADDTIV+18
PSUADD(21 ADDTIV+15
PSUADD(22 ADDTIV+19
PSUADD(3 ADDTIV+20
PSUADD(31 ADDTIV+16
PSUADD(51 ADDTIV+17
PSUADD(52 ADDTIV+21
PSUADDTV ADDTIV+3!
PSUADDTV( ADDTIV+9, ADDTIV+23
>> PSUBAGS ADDTIV+39*, SOLUTN+38*, CALC+6, CALC+8, CALC+10, CALC+12, CALC+14, CALC+16
>> PSUCAN OCCAMT+1*, OCCAMT+22*, ADDTIV+36, SOLUTN+35
PSUCAN1 ADDTIV+35~, ADDTIV+36*
>> PSUDCLS ADDTIV+14*, SOLUTN+13*
>> PSUDCST ADDTIV+40*, SOLUTN+39*, CALC+1, CALC+6, CALC+8, CALC+10, CALC+12, CALC+14, CALC+16
>> PSUDEA ADDTIV+20*, SOLUTN+19*
PSUDES1 ADDTIV+32~, ADDTIV+33*
>> PSUDEST OCCAMT+1*, OCCAMT+20*, ADDTIV+33, SOLUTN+32
>> PSUDGDA ADDTIV+10*, SOLUTN+9*
>> PSUDGU ADDTIV+9*, SOLUTN+8*
>> PSUDISP OCCAMT+1*, OCCAMT+10*, OCCAMT+11, OCCAMT+18*, OCCAMT+20*, OCCAMT+22*, ADDTIV+38, SOLUTN+37
>> PSUDISPT OCCAMT+1*, OCCAMT+11*, ADDTIV+27, SOLUTN+26
>> PSUDIV IVDATA+13*, IVDATA+29*, IVDATA+30, SETTOT+7*, SETTOT+9
>> PSUDIVNM SETTOT+7, SETTOT+8, SETTOT+9
PSUDOC IVDATA+36!
PSUDOC( IVDATA+43, IVDATA+44, IVDATA+45
PSUDOC(29 IVDATA+46
PSUDOC(9 IVDATA+39, IVDATA+40
PSUDOC1 IVDATA+1~
>> PSUEDT IVDATA+5
>> PSUFAC IVDATA+30*, IVDATA+31, OCCAMT+13, OCCAMT+15, SETTOT+2, SETTOT+4, SETTOT+5, SETTOT+6, SETTOT+7, SETTOT+12
, CALC+1, CALC+6, CALC+8, CALC+10, CALC+12, CALC+14, CALC+16
>> PSUFAC( IVDATA+31*
>> PSUFND IVDATA+52, OCCAMT+1*, OCCAMT+8*
>> PSUGNM ADDTIV+13*, SOLUTN+12*, SETVAR+1*
PSUGNRIC ADDTIV+3!
PSUGNRIC( ADDTIV+8
PSUGNRIC(1 ADDTIV+10
PSUGNRIC(7 ADDTIV+40
PSUICN ICN+2~
PSUIV IVDATA+14!, IVDATA+18!, IVDATA+22
PSUIV( IVDATA+24, IVDATA+27*, IVDATA+28*, IVDATA+29, IVDATA+41, IVDATA+49, IVDATA+53, OCCAMT+13, CALC+7, CALC+9
, CALC+11, CALC+13, CALC+15
PSUIV(104 IVDATA+32
>> PSUIVDT IVDATA+4*, IVDATA+6*, IVDATA+8, IVDATA+10, IVDATA+49
>> PSUIVSUB IVDATA+58, OCCAMT+13, OCCAMT+15, SETTOT+2, SETTOT+4, SETTOT+5, SETTOT+6, SETTOT+12, CALC+1, CALC+6
, CALC+8, CALC+10, CALC+12, CALC+14, CALC+16
>> PSUJOB IVDATA+11, IVDATA+25, IVDATA+41, ICN+8, ICN+9, SETTOT+8, SETTOT+9
>> PSUNADR ADDTIV+18*, SOLUTN+17*, SETVAR+7, SETVAR+8
>> PSUNAF ADDTIV+21*, SOLUTN+20*
>> PSUNDC ADDTIV+16*, SOLUTN+15*, SETVAR+3*
>> PSUNDCL ADDTIV+19*, SOLUTN+18*, SETVAR+7, SETVAR+8
>> PSUNFI ADDTIV+17*, SOLUTN+16*, SETVAR+4*
>> PSUNITS ADDTIV+1*, ADDTIV+38*, SOLUTN+1*, SOLUTN+37*, CALC+1
PSUOCC OCCAMT+3!
PSUOCC(1 OCCAMT+6*, OCCAMT+7
PSUOCC(2 OCCAMT+9, OCCAMT+17, OCCAMT+19, OCCAMT+21
PSUOCC(4 OCCAMT+10, OCCAMT+12, OCCAMT+13, OCCAMT+15, OCCAMT+18, OCCAMT+20, OCCAMT+22
PSUOCC(6 OCCAMT+9
>> PSUODA IVDATA+9*, IVDATA+10*, IVDATA+11, OCCAMT+2, ADDTIV+2, SOLUTN+1
PSUORDA IVDATA+2!
>> PSUOUTP IVDATA+32*, OCCAMT+14, SETTOT+10, CALC+5
>> PSUPCLS IVDATA+42*, IVDATA+44*, IVDATA+45*
>> PSUPDA IVDATA+7*, IVDATA+8*, IVDATA+10, IVDATA+16, IVDATA+25, IVDATA+33, OCCAMT+2, ADDTIV+2, SOLUTN+1
PSUPICN ICN+2~
PSUPICN1 ICN+2~, ICN+6*, ICN+7, ICN+8, ICN+9
>> PSUPNAM ADDTIV+8*, SOLUTN+7*
>> PSUPRNM ADDTIV+15*, SOLUTN+14*, SETVAR+2*
>> PSUPSV IVDATA+46*, IVDATA+47*, IVDATA+48
>> PSUPTN ICN+3*, ICN+5*, ICN+6
>> PSUPULL OCCAMT+1*, OCCAMT+12*, ADDTIV+39, SOLUTN+38
PSURCY1 ADDTIV+29~, ADDTIV+30*
>> PSURECT OCCAMT+1*, OCCAMT+18*, ADDTIV+30, SOLUTN+29
>> PSUSDT IVDATA+4, OCCAMT+7
>> PSUSERV IVDATA+47*, IVDATA+48*
>> PSUSNDR IVDATA+30
PSUSOL SOLUTN+2!
PSUSOL(1 SOLUTN+22
>> PSUSP1 IVDATA+42*, IVDATA+50*
>> PSUSP2 IVDATA+42*, IVDATA+50*
>> PSUSSN IVDATA+34*, ICN+4, ICN+5, SETTOT+4, SETTOT+6, SETTOT+8, SETTOT+9
PSUSSNA IVDATA+2!
>> PSUSTRN ADDTIV+23*, ADDTIV+27, ADDTIV+30, ADDTIV+33, ADDTIV+36, ADDTIV+38, ADDTIV+39
PSUTCS1 SOLUTN+34~, SOLUTN+35*
PSUTDS1 SOLUTN+31~, SOLUTN+32*
PSUTDSP1 ADDTIV+26~, ADDTIV+27*
>> PSUTEDT IVDATA+5*, IVDATA+17, OCCAMT+7
PSUTRS1 SOLUTN+28~, SOLUTN+29*
PSUTSOL1 SOLUTN+25~, SOLUTN+26*
>> PSUVSSN1 IVDATA+39*, IVDATA+40*, IVDATA+41
>> RECIND ADDTIV+41*, SOLUTN+40*
>> RECTYP IVDATA+55*, CALC+2*, CALC+4*
>> SOLDA SOLUTN+1*
SOLDRUG SOLUTN+2!
SOLDRUG( SOLUTN+12
SOLDRUG(2 SOLUTN+13
SOLDRUG(20 SOLUTN+17
SOLDRUG(21 SOLUTN+14
SOLDRUG(22 SOLUTN+18
SOLDRUG(3 SOLUTN+19
SOLDRUG(31 SOLUTN+15
SOLDRUG(51 SOLUTN+16
SOLDRUG(52 SOLUTN+20
>> SPECPTR IVDATA+49*, IVDATA+50
U IVDATA+50
>> VA("PID" IVDATA+34
>> VOLUME SOLUTN+22*, SOLUTN+26, SOLUTN+29, SOLUTN+32, SOLUTN+35, SOLUTN+37, SOLUTN+38
>> XX IVDATA+17*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All