©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
PSUOP2 ;BIR/CFL - PSU PBM Outpatient Pharmacy Data Collection for Version 7.0 ; 7/11/06 4:21pm
Source file <PSUOP2.m>
| 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 |
| 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",((PSUFD<PSUSDT)!(PSUFD\1>PSUEDT)) Q
|
|
| NEWX1 | ;I PSUCMOP="Y" Q:((PSURELDT="")!(PSURELDT<PSUSDT)!(PSURELDT>PSUEDTM))
|
|
| 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
|
| 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 |
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GET1^DIQ |
| 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 |
| 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 |
| >> | 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~* |