©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSUOP1 ;BIR/CFL - PSU PBM Outpatient Pharmacy Data Collection for Version 6.0 ;25 AUG 1998
Source file <PSUOP1.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Benefits Management | 2 | (GETDRUG,PROVDR,SETREC)^PSUOP3 ($$VALI,GETS,MOVEI)^PSUTL |
| Registration | 1 | PID^VADPT |
| VA Fileman | 1 | C^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADPLOOP | ;Get data for partial fills
|
|
| EN | ;Entry to data collection
|
|
| GETPART | ;Get data for Partial Fills
|
|
| COMVAR | ;Get the common variables
|
|
| CMOPARY | ;Loop through the "AR" cross reference and build CMOP array
|
|
| GETDATA | ;Get the data for New Fills, Refills and Partial fills
|
|
| ARLOOP | ;Check to see if CMOP Data exists for the reporting period
|
|
| ADLOOP | ;Loop through the AD cross reference
|
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | ADLOOP+2, CMOPARY+2 |
| GETDRUG^PSUOP3 | COMVAR+10 |
| PROVDR^PSUOP3 | GETDATA+15, GETDATA+36, GETPART+15 |
| SETREC^PSUOP3 | ADLOOP+21, ARLOOP+6, ADPLOOP+8 |
| $$VALI^PSUTL | GETDATA+13, GETDATA+33, GETDATA+34, GETPART+13 |
| GETS^PSUTL | GETDATA+18, GETPART+2, COMVAR+1 |
| MOVEI^PSUTL | GETDATA+19, GETPART+3, COMVAR+2 |
| PID^VADPT | COMVAR+4 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSRX - [#52] | ADLOOP+9, ADLOOP+16, ADLOOP+22, ADPLOOP+2 |
| ^PSRX("AD" | ADLOOP+4, ADLOOP+6, ADLOOP+8 |
| ^PSRX("AR" | CMOPARY+4, CMOPARY+6, CMOPARY+8 |
| ^TMP($J | EN+1!, ADLOOP+23!, ARLOOP+1, CMOPARY+9* |
| ^XTMP( | ADLOOP+22 |
| Name | Line Occurrences |
|---|---|
| ADLOOP | EN+2 |
| ADPLOOP | ADLOOP+22 |
| ARLOOP | ADLOOP+16 |
| CMOPARY | EN+2 |
| COMVAR | ADLOOP+12, ADPLOOP+4 |
| GETDATA | ADLOOP+20, ARLOOP+4 |
| GETPART | ADPLOOP+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | ADLOOP+2!, CMOPARY+2! |
| %H | ADLOOP+2!, CMOPARY+2! |
| %T | ADLOOP+2!, CMOPARY+2! |
| >> DFN | COMVAR+4* |
| >> PSUCDT | CMOPARY+3*, CMOPARY+4*, CMOPARY+6, CMOPARY+8 |
| >> PSUCLN | CMOPARY+7*, CMOPARY+8*, CMOPARY+9 |
| >> PSUCMOP | ADLOOP+13*, ADLOOP+17, ARLOOP+2*, ADPLOOP+3*, GETDATA+12, GETDATA+32 |
| >> PSUCRX | CMOPARY+5*, CMOPARY+6*, CMOPARY+8, CMOPARY+9 |
| >> PSUDIVP | GETDATA+10*, GETDATA+23*, GETPART+7* |
| >> PSUDR | GETDATA+30*, COMVAR+7* |
| >> PSUDRCT | GETDATA+5*, GETDATA+26*, GETPART+10* |
| >> PSUDRUG(31 | GETDATA+14, GETDATA+35, GETPART+14 |
| >> PSUDS | GETDATA+3*, GETDATA+24*, GETPART+8* |
| >> PSUEDT | ADLOOP+4, ARLOOP+5, ADPLOOP+7 |
| >> PSUFD | ADPLOOP+7, GETDATA+2*, GETDATA+20*, GETPART+4* |
| >> PSUFDT | ADLOOP+3*, ADLOOP+4*, ADLOOP+6, ADLOOP+8, ADLOOP+18 |
| >> PSUFIL | ADLOOP+7*, ADLOOP+8*, ADLOOP+11 |
| >> PSUFLN | ADLOOP+11*, ADLOOP+19, ARLOOP+1, ARLOOP+3 |
| >> PSUMW | GETDATA+9*, GETDATA+22*, GETPART+6* |
| >> PSUNDC | GETDATA+11*, GETDATA+13*, GETDATA+14*, GETDATA+31*, GETDATA+33*, GETDATA+34*, GETDATA+35*, GETPART+13*, GETPART+14* |
| PSUOP | ADLOOP+10! |
| PSUOP( | COMVAR+3 |
| PSUOP(11 | GETDATA+9 |
| PSUOP(17 | GETDATA+5 |
| PSUOP(2 | COMVAR+4 |
| PSUOP(20 | GETDATA+10 |
| PSUOP(22 | GETDATA+2 |
| PSUOP(27 | GETDATA+14 |
| PSUOP(3 | GETDATA+29, COMVAR+8 |
| PSUOP(31 | GETDATA+6 |
| PSUOP(4 | GETDATA+8 |
| PSUOP(6 | GETDATA+30, COMVAR+7 |
| PSUOP(7 | GETDATA+4 |
| PSUOP(8 | GETDATA+3 |
| >> PSUOPSUB | ADLOOP+22 |
| PSUPART | GETPART+1! |
| PSUPART( | GETPART+4, GETPART+6, GETPART+7, GETPART+8, GETPART+9, GETPART+10 |
| PSUPART(6 | GETPART+5 |
| PSUPART(8 | GETPART+11 |
| >> PSUPFN | ADPLOOP+1*, ADPLOOP+2* |
| >> PSUPRID | GETDATA+8*, GETDATA+21*, GETPART+5* |
| >> PSUQTY | GETDATA+4*, GETDATA+25*, GETPART+9* |
| >> PSUREFIL( | GETDATA+20, GETDATA+24, GETDATA+26 |
| >> PSUREFIL(1 | GETDATA+25 |
| >> PSUREFIL(15 | GETDATA+21 |
| >> PSUREFIL(17 | GETDATA+27 |
| >> PSUREFIL(2 | GETDATA+22 |
| >> PSUREFIL(8 | GETDATA+23 |
| >> PSURELDT | ARLOOP+5, GETDATA+6*, GETDATA+7*, GETDATA+27*, GETDATA+28*, GETPART+11*, GETPART+12* |
| >> PSURXIEN | ADLOOP+5*, ADLOOP+6*, ADLOOP+8, ADLOOP+9, ADLOOP+16, ADLOOP+22, ARLOOP+1, ADPLOOP+2, COMVAR+1 |
| >> PSURXN | COMVAR+3* |
| >> PSURXP | GETDATA+29*, COMVAR+8* |
| >> PSUSDT | ADLOOP+1, ADLOOP+18, ARLOOP+5, ADPLOOP+7, CMOPARY+1 |
| >> PSUSSN | COMVAR+5* |
| PSUTYP | ADLOOP+10!, ADLOOP+19*, ARLOOP+3*, ADPLOOP+5*, GETDATA+1, GETDATA+17 |
| >> PSUWPC | COMVAR+6* |
| REC | GETDATA+17! |
| >> VA("PID" | COMVAR+5 |
| >> X | ADLOOP+3, CMOPARY+3 |
| >> X1 | ADLOOP+1*, CMOPARY+1* |
| >> X2 | ADLOOP+1*, CMOPARY+1* |