PSAVER6 ;BIR/JMB-Verify Invoices - CONT'D ;10/3/97
Source file <PSAVER6.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| TEMP | ||
| MM | ; | |
| SCANDIF | ;*42 inspect invoice for noted differences in OU,DUOU,PPDU,NDC | |
| START | ;|=> *42 add Post Verify variance report | |
| ADDMM | ; SEND MESSAGE REGARDING DRUGS ADDED TO PHARMACY LOCATIONS | |
| EXIT | ;Kills variables | |
| FILE | ;File data in 58.8 | |
| CS | ||
| MESSAGE | ;differences found, notify user and send message to g.PSA NDC UPDATES. | |
| GETDATA | ;Gets invoice data to help file the data | |
| MMLINE | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^VA(200 - [#200] | GET1^DIQ | 
| ^PSDRUG - [#50] | GET1^DIQ | 
| ^PSD(58.8 - [#58.8] | GET1^DIQ | 
| ^PSD(58.811 - [#58.811] | GET1^DIQ | 
| 58.8112 | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DD(58.8 | FILE+5 | 
| ^DD(58.8001 | FILE+19 | 
| ^PSD(58.8 - [#58.8] | TEMP+7, TEMP+8, TEMP+9, FILE+3, FILE+5, FILE+7, FILE+8, FILE+10, FILE+11, FILE+14* , FILE+15*, FILE+16, FILE+17*, FILE+18*, FILE+19, FILE+20, FILE+30 | 
| ^PSD(58.811 - [#58.811] | START+4, START+5, START+7, START+8, START+12, START+13, START+14, START+18, START+19, START+21 , GETDATA+2, GETDATA+5, CS+2, CS+3, CS+12, CS+13, CS+16, CS+17, TEMP, SCANDIF+3 | 
| ^PSDRUG - [#50] | GETDATA+9, GETDATA+10, TEMP+2, TEMP+6 | 
| ^TMP($J | START+1!, MM+4*, SCANDIF+2!, SCANDIF+4, SCANDIF+5, MESSAGE+5*, MESSAGE+9!, ADDMM+1!, ADDMM+6, ADDMM+8 , ADDMM+12!, MMLINE* | 
| Name | Line Occurrences | 
|---|---|
| ADDMM | SCANDIF+4 | 
| CS | GETDATA+3 | 
| FILE | START+14 | 
| GETDATA | START+14 | 
| MESSAGE | SCANDIF+5 | 
| MM | FILE+9 | 
| MMLINE | ADDMM+4, ADDMM+5, ADDMM+7, ADDMM+8 | 
| SCANDIF | START+22 | 
| Name | Field # of Occurrence | 
|---|---|
| ^(0 | START+5, START+19, FILE+29 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | EXIT+1!, FILE+2 | 
| DA | START+2!, START+9!, START+10!*, START+15!, START+16!*, EXIT+1!, FILE+4!, FILE+6*, FILE+8!, FILE+21! , FILE+24*, FILE+25!, FILE+26*, FILE+27!, FILE+28*, FILE+29* | 
| DA(1 | START+10*, START+16*, FILE+6*, FILE+23*, FILE+26*, FILE+29* | 
| DA(2 | FILE+23*, FILE+26*, FILE+29* | 
| DD | EXIT+1! | 
| DIC | START+2!, START+9!, START+15!, EXIT+1!, FILE+4!, FILE+6*, FILE+8!, FILE+21!, FILE+22*, FILE+24! , FILE+25!, FILE+27! | 
| DIC("DR" | FILE+22*, FILE+23! | 
| DIC("P" | FILE+5*, FILE+19* | 
| DIC(0 | FILE+6*, FILE+22* | 
| DIE | START+2!, START+9!, START+10*!, START+15!, START+16*!, EXIT+1!, FILE+4!, FILE+21!, FILE+25!, FILE+26*! , FILE+27!, FILE+29*! | 
| DINUM | EXIT+1!, FILE+6*, FILE+23*, FILE+24* | 
| DIR | MESSAGE+1! | 
| DLAYGO | EXIT+1!, FILE+6*, FILE+8!, FILE+23*, FILE+24! | 
| DO | EXIT+1! | 
| DR | START+2!, START+9!, START+10*!, START+15!, START+16*!, FILE+4!, FILE+21!, FILE+25!, FILE+26*, FILE+27! , FILE+29* | 
| DT | FILE+20, FILE+23, FILE+28, FILE+29 | 
| DUZ | ADDMM+3 | 
| IENS | MESSAGE+1~, MESSAGE+2*, MESSAGE+3 | 
| LC | ADDMM+4*, ADDMM+12!, MMLINE* | 
| PSA | EXIT+1! | 
| PSA0QTY | START+14, EXIT+4!, TEMP+10!* | 
| PSAA | EXIT+1! | 
| PSABAL | EXIT+1!, FILE+11*, FILE+15 | 
| PSACBAL | EXIT+1! | 
| PSACNT | EXIT+1! | 
| PSACOD | EXIT+1! | 
| PSACOST | EXIT+1! | 
| PSACS | EXIT+1!, CS+1*, CS+20, MM+3~* | 
| PSADASH | EXIT+1!, CS+15* | 
| PSADATA | START+14*, EXIT+1!, GETDATA+1, GETDATA+3, GETDATA+8, CS+1, CS+6, CS+7, CS+15, CS+18 , CS+19 | 
| PSADIFLC | SCANDIF+2!, MESSAGE+9! | 
| PSADJ | EXIT+1!, GETDATA+2*, GETDATA+3, GETDATA+4, GETDATA+5, GETDATA+8, GETDATA+10*, CS+2*, CS+3, CS+6 , CS+12*, CS+13, CS+16*, CS+17 | 
| PSADJD | EXIT+1!, GETDATA+6*, GETDATA+7, GETDATA+8, GETDATA+9, GETDATA+10 | 
| PSADJO | EXIT+1!, CS+12*, CS+13*, CS+14 | 
| PSADJP | EXIT+1!, CS+16*, CS+17*, CS+18 | 
| PSADJQ | EXIT+1!, CS+2*, CS+3*, CS+6, TEMP+10, FILE+1 | 
| PSADRG | EXIT+2!, GETDATA+3*, GETDATA+8*, GETDATA+9*, GETDATA+10*, CS, TEMP+2, TEMP+6, TEMP+8, TEMP+9 , FILE+3, FILE+6, FILE+10, FILE+11, FILE+14, FILE+15, FILE+17, FILE+18, FILE+19, FILE+20 , FILE+22, FILE+23, FILE+24, FILE+26, FILE+29, FILE+30, MM+3, MM+4, ADDMM+8* | 
| PSADT | EXIT+2!, FILE+2* | 
| PSADUOU | EXIT+2!, TEMP+1*, TEMP+2*, TEMP+3 | 
| PSADUQTY | EXIT+2! | 
| PSADUREC | EXIT+2!, TEMP+3*, TEMP+6*, FILE+1*, FILE+15, FILE+29 | 
| PSAIEN | START+3*, START+4, START+5, START+6, START+7, START+8, START+10, START+12, START+13, START+14 , START+16, START+17*, START+18, START+19, START+20, START+21, EXIT+2!, GETDATA+2, GETDATA+5, CS+2 , CS+3, CS+12, CS+13, CS+16, CS+17, TEMP, SCANDIF+3, MESSAGE+2 | 
| PSAIEN1 | START+5*, START+6*, START+7, START+8, START+10, START+12, START+13, START+14, START+16, START+19* , START+20*, START+21, EXIT+2!, GETDATA+2, GETDATA+5, CS+2, CS+3, CS+12, CS+13, CS+16 , CS+17, TEMP, SCANDIF+3, MESSAGE+2 | 
| PSAIN | START+8*, START+10, START+11, EXIT+2!, CS+20 | 
| PSAINV | START+11*, EXIT+2!, MESSAGE+3*, MESSAGE+4, ADDMM+2 | 
| PSAINVDT | START+11*, EXIT+2! | 
| PSALEN | EXIT+2!, CS+18* | 
| PSALINE | START+11*, START+12*, START+13, START+14, EXIT+2!, GETDATA+2, GETDATA+5, CS+2, CS+3, CS+12 , CS+13, CS+16, CS+17, TEMP, SCANDIF+3* | 
| PSALOC | EXIT+2!, CS+20*, TEMP+7, TEMP+8, TEMP+9, FILE+3, FILE+5, FILE+6, FILE+7, FILE+8 , FILE+10, FILE+11, FILE+14, FILE+15, FILE+16, FILE+17, FILE+18, FILE+19, FILE+20, FILE+22 , FILE+23, FILE+26, FILE+29, FILE+30, MM+4, ADDMM+6*, ADDMM+7, ADDMM+8 | 
| PSAMSG | EXIT+2! | 
| PSANDC | EXIT+2!, CS+15* | 
| PSANDCX | CS+15! | 
| PSANODE | EXIT+2!, GETDATA+5*, GETDATA+6, CS+3*, CS+13*, CS+17* | 
| PSANPDU | EXIT+2! | 
| PSANPOU | EXIT+2!, CS+18* | 
| PSAODASH | EXIT+3! | 
| PSAONDC | EXIT+3! | 
| PSAORD | START+5*, START+19*, EXIT+3!, MESSAGE+2*, MESSAGE+4, ADDMM+2 | 
| PSAOU | EXIT+3!, CS+7*, CS+14* | 
| PSAPDU | EXIT+3! | 
| PSAPOU | EXIT+3!, CS+18* | 
| PSAQTY | EXIT+3!, CS+6*, TEMP+3, TEMP+6, TEMP+10, FILE+1 | 
| PSAREORD | EXIT+3!, TEMP+1*, TEMP+8*, FILE+18 | 
| PSASET | EXIT+3! | 
| PSASTOCK | EXIT+3!, TEMP+1*, TEMP+9*, FILE+17 | 
| >> PSASUB | TEMP+1*, TEMP+2 | 
| PSASUP | START+14, EXIT+3!, GETDATA+1*, GETDATA+7*, GETDATA+8, CS | 
| PSAT | EXIT+3! | 
| PSATDRG | EXIT+3! | 
| PSATEMP | EXIT+3!, TEMP*, TEMP+1 | 
| PSAVBKG | EXIT+3! | 
| PSAVBKG( | START+3, START+6, START+17, START+20 | 
| PSAVDUZ | EXIT+3!, GETDATA+1* | 
| PSAVEND | START+5*, START+19*, EXIT+3! | 
| PSAVSN | EXIT+3!, CS+19* | 
| X | EXIT+3!, FILE+6*, FILE+23*, FILE+24*, ADDMM+4*, ADDMM+5*, ADDMM+7*, ADDMM+8*, MMLINE | 
| XMDUZ | EXIT+3!, MESSAGE+7*, ADDMM+3*, ADDMM+4 | 
| XMSUB | EXIT+3!, MESSAGE+4*, MESSAGE+5, ADDMM+2*, ADDMM+4 | 
| XMTEXT | EXIT+3!, MESSAGE+6*, ADDMM+9* | 
| XMY | EXIT+3! | 
| XMY("G.PSA ND | C UPDATES" , MESSAGE+6*, ADDMM+10* | 
| XMZ | EXIT+3! | 
| Y | EXIT+3!, FILE+24, FILE+26 |