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

Package: Pharmacy Benefits Management

Routine: PSUOP2


Information

PSUOP2 ;BIR/CFL - PSU PBM Outpatient Pharmacy Data Collection for Version 7.0 ; 7/11/06 4:21pm

;;4.0;PHARMACY BENEFITS MANAGEMENT;**6,8,9**;MARCH, 2005;Build 6

Source Information

Source file <PSUOP2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Pharmacy Benefits Management 4 (GETDRUG,PROVDR,SETREC)^PSUOP3  EN^PSUOPAM  ($$VALI,GETS,MOVEI)^PSUTL  $$TESTPAT^PSUTL1  
VA FileMan 2 C^%DTC  $$GET1^DIQ  
Outpatient Pharmacy 1 EN^PSOORDER  
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: 1

Package Total Caller Graph
Pharmacy Benefits Management 1 PSUOP0  

Entry Points

Name Comments DBIA/ICR reference
COMVARQ
PAR ; Partials
EN ;Entry to data collection
PARQ
REFQ
CMOPAQ
RTSTOCK ; test for "AR" if none then unmark CMOP
; needs PSURXIEN, PSUFIL, from CMOPA
CMOPA ; set array of CMOP recs
COMVAR ; set variables that are common between all record types
NEWX2 ;I PSUCMOP="N",((PSUFDPSUEDT)) Q
NEWX1 ;I PSUCMOP="Y" Q:((PSURELDT="")!(PSURELDTPSUEDTM))
ALLOOP ;Loop through the AL cross refererence
NEW ; New Rx
NEWQ
REF ; Refills
PIECE(%,REC,DLM) ;Piece % from record REC using delimiter DLM
; %="VARNAME^PIECE",REC=SOURCE,DLM=DELIMITER in REC
AMLOOP ; loop through "AM", partials, cross reference to see if any were missed

External References

Name Field # of Occurrence
C^%DTC AMLOOP+2
$$GET1^DIQ ALLOOP+8
EN^PSOORDER ALLOOP+17, AMLOOP+16
GETDRUG^PSUOP3 COMVAR+9
PROVDR^PSUOP3 NEWX2+13, REF+30, PAR+27
SETREC^PSUOP3 NEWX2+14, REF+31, PAR+28
EN^PSUOPAM ALLOOP+19, AMLOOP+17
$$VALI^PSUTL REF+27, PAR+24
GETS^PSUTL ALLOOP+9, AMLOOP+9
MOVEI^PSUTL ALLOOP+10, AMLOOP+10
$$TESTPAT^PSUTL1 ALLOOP+13, AMLOOP+13
PID^VADPT ALLOOP+14, AMLOOP+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSRX - [#52] ALLOOP+7, AMLOOP+8
^PSRX("AL" ALLOOP+3, ALLOOP+5
^PSRX("AM" AMLOOP+4, AMLOOP+6
^PSRX("AR" RTSTOCK+6, RTSTOCK+11
^TMP("PSOR" EN+2!, ALLOOP+18, NEW+1, NEW+5, NEWX2+1, REF+1, REF+4, REF+7, REF+9, PAR+1
, PAR+4, PAR+5, PAR+7, COMVAR+1, COMVAR+3, COMVAR+4, COMVAR+5, COMVAR+7, COMVAR+8, CMOPA+4
, CMOPA+5, RTSTOCK+4, RTSTOCK+9
^XTMP( ALLOOP+6, AMLOOP+7

Label References

Name Line Occurrences
ALLOOP EN+1
AMLOOP EN+1
CMOPA ALLOOP+20
COMVAR NEW+2, REF+2, PAR+2
NEW ALLOOP+21
PAR ALLOOP+23, AMLOOP+18
PIECE CMOPA+6, RTSTOCK+5, RTSTOCK+10
REF ALLOOP+22
RTSTOCK CMOPA+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AMLOOP+2!, PIECE~, PIECE+2
%H AMLOOP+2!
%T AMLOOP+2!
>> DFN ALLOOP+11*, ALLOOP+13, ALLOOP+17, AMLOOP+11*, AMLOOP+13, AMLOOP+16
DLM PIECE~, PIECE+2
I PIECE+2~*
PSUCAN ALLOOP+1~, ALLOOP+8*
PSUCL ALLOOP+1~
PSUCLN REF+8~, REF+10*, PAR+6~, PAR+8*, COMVAR+7*
PSUCMA CMOPA+1!
PSUCMA( REF+6, REF+26, CMOPA+7*, CMOPA+8!, CMOPA+9, RTSTOCK+7!, RTSTOCK+12!
PSUCMA(0 NEW+4, NEWX2+11
>> PSUCMOP NEW+4*, NEWX2+11, REF+6*, REF+26, PAR+10*
PSUCMP ALLOOP+1~
PSUCO ALLOOP+1~
>> PSUDIVP NEWX2+8*, REF+20*, PAR+20*
PSUDOC1 ALLOOP+1~
>> PSUDR COMVAR+1*
>> PSUDRCT NEW+11*, REF+16*, PAR+17*
>> PSUDRUG(31 NEWX2+12, REF+28, PAR+25
>> PSUDS NEW+10*, REF+15*, PAR+16*
>> PSUEDT ALLOOP+2, AMLOOP+3
>> PSUEDTM ALLOOP+2*, ALLOOP+3, AMLOOP+3*, AMLOOP+4, NEW+13, REF+18, PAR+23
>> PSUFD NEW+1*, REF+12*, PAR+12*
>> PSUFDT ALLOOP+2*, ALLOOP+3*, ALLOOP+5, AMLOOP+3*, AMLOOP+4*, AMLOOP+6
PSUFIL CMOPA+2~, CMOPA+7, CMOPA+8, CMOPA+9, RTSTOCK+3, RTSTOCK+4, RTSTOCK+6, RTSTOCK+7, RTSTOCK+11, RTSTOCK+12
>> PSUFLN REF+3*, REF+4*, REF+6, REF+7, REF+26, PAR+3*, PAR+4*, PAR+5
PSUFP ALLOOP+1~, COMVAR+8*
>> PSUMW NEWX2+7*, REF+19*, PAR+19*
PSUNDC NEWX2+10*, NEWX2+11*, NEWX2+12*, REF+25*, REF+26*, REF+27*, REF+28*, PAR+24*, PAR+25*, CMOPA+2~
, CMOPA+7
>> PSUOP(2 ALLOOP+11, AMLOOP+11
>> PSUOP(27 NEWX2+12
>> PSUOPSUB ALLOOP+6, AMLOOP+7
PSUORDT ALLOOP+1~, NEW+6*
>> PSUPDT PAR+21*
>> PSUPRID NEWX2+5*, REF+13*, PAR+14*
PSUPSO ALLOOP+16~*
>> PSUQTY NEW+7*, REF+14*, PAR+15*
PSUR0 NEW+5*, NEW+6, NEW+7, NEW+10, NEW+11, NEW+12, NEW+14, REF+7*, REF+12, REF+13
, REF+14, REF+15, REF+16, REF+17, REF+19, REF+20, REF+21, PAR+5*, PAR+12, PAR+14
, PAR+15, PAR+16, PAR+17, PAR+18, PAR+19, PAR+20, PAR+21, RTSTOCK+2~, RTSTOCK+4*, RTSTOCK+5
, RTSTOCK+9*, RTSTOCK+10
PSUR1 NEWX2+1*, NEWX2+5, NEWX2+6, NEWX2+7, NEWX2+8, REF+8~, REF+9*, REF+10, PAR+6~, PAR+7*
, PAR+8, CMOPA+2~, CMOPA+5*, CMOPA+6
>> PSUREDT REF+21*
PSURELDT NEW+12*, NEW+13, REF+17*, REF+18, REF+22*, PAR+18*, PAR+22*, PAR+23, RTSTOCK+2~, RTSTOCK+6
, RTSTOCK+11
PSURTSDT RTSTOCK+2~
>> PSURXIEN ALLOOP+4*, ALLOOP+5*, ALLOOP+6, ALLOOP+7, ALLOOP+8, ALLOOP+9, ALLOOP+17, AMLOOP+5*, AMLOOP+6*, AMLOOP+7
, AMLOOP+8, AMLOOP+9, AMLOOP+16, NEW+1, NEW+5, NEWX2+1, REF+1, REF+4, REF+7, REF+9
, REF+27, PAR+1, PAR+4, PAR+5, PAR+7, PAR+24, COMVAR+1, COMVAR+3, COMVAR+4, COMVAR+5
, COMVAR+7, COMVAR+8, CMOPA+4, CMOPA+5, RTSTOCK+4, RTSTOCK+6, RTSTOCK+9, RTSTOCK+11
>> PSURXN COMVAR+5*
>> PSURXP NEWX2+6*, COMVAR+4*
>> PSUSDT ALLOOP+2, AMLOOP+1, AMLOOP+3, NEW+13, REF+18, PAR+23
>> PSUSIG COMVAR+3*
>> PSUSSN ALLOOP+15*, AMLOOP+15*
PSUST CMOPA+2~, CMOPA+7, CMOPA+8
>> PSUTYP NEW+3*, REF+5*, PAR+9*
>> PSUWPC NEW+14*, REF+11*, PAR+11*
PSUX CMOPA+2~, CMOPA+3*, CMOPA+4*, CMOPA+5
REC PIECE~, PIECE+2
U NEW+1, NEW+6, NEW+7, NEW+10, NEW+11, NEW+12, NEW+14, NEWX2+5, NEWX2+6, NEWX2+7
, NEWX2+8, REF+10, REF+12, REF+13, REF+14, REF+15, REF+16, REF+17, REF+19, REF+20
, REF+21, PAR+8, PAR+12, PAR+14, PAR+15, PAR+16, PAR+17, PAR+18, PAR+19, PAR+20
, PAR+21, COMVAR+1, COMVAR+3, COMVAR+4, COMVAR+5, COMVAR+7, COMVAR+8, CMOPA+6, RTSTOCK+5, RTSTOCK+10
, PIECE+2
>> VA("PID" ALLOOP+15, AMLOOP+15
>> X CMOPA+6*, RTSTOCK+5*, RTSTOCK+10*
>> X1 AMLOOP+1*
>> X2 AMLOOP+1*
Y PIECE+2~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All