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 |